Виды взаимодействия литосферных плит |
Процессы, происходящие в литосфере |
Расхождение |
Образуется новая океаническая кора |
Столкновение океанической плиты с континентальной |
Океаническая кора погружается под континент |
Столкновение континентальных литосферных плит |
Горные цепи |
Решение задания:
a - имя массива
i - индекс элемента массива
a[i] - элемент массива
s - переменная, в которой хранится произведение элементов массива, кратных 5(пяти)
Оператор присваивания значения i-му элементу массива:
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;
Условие кратности 5 i-го элемента массива:
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;
Программа на Паскаль:
program z80;
Const n = 12;
var a:array [1..n] of integer; i, s: integer;
BEGIN
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;
write (a[i], ' ');
if i=n then writeln();
end;
s:= 1;
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;
Writeln ('Произведение элементов массива, кратных пяти равно ', s);
END.
Первый этап
Исходные данные:
а - количество деталей за 1 час
d - количество деталей, на которое увеличилась выработка
Требуется найти:
S - количество деталей за К часов
Второй этап
Соотношения, связывающие исходные данные и результат:
S := (2a + d*(K-1))2 * K
Третий этап
Блок-схема:
Четвертый этап
program z67;
var a, d, K: integer; s: real;
BEGIN
write ('Введите количество деталей за 1 час: ');
readln (a);
write ('Введите количество деталей, на которое увеличилась выработка: ');
readln (d);
write ('Введите время работы рабочего: ');
readln (K);
S := (2*a + d*(K-1))/2 * K;
writeln ('Рабочий изготовил за ', K , ' часов ', S , ' деталь(-ей)');
END.
Пятый этап
Протестируйте программу при следующих исходных данных:
Шестой этап
Выполните расчеты при a=15; d=3; K=8.
Результат: 204
