В10.  Умение исполнить циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке


 

Задачи

1.      В массиве Day хранятся данные о количестве израсходованных денег за телефон за неделю (Day [1] — данные за понедельник, Day [2] — за вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Паскаль

Алгоритмический язык

var i, m, d:

integer;

Day: array[1..7] of

integer;

begin

Day [1]:=79;

Day[2]:=25;

Day [3]:=67;

Day[4]:=80;

Day [5]:=63;

Day[6]:=17;

Day [7]:=68;

d:= 1; m:= Day [1];

for i:=2 to 7 do

begin

if Day [i] > m then

begin

m:= Day [i]; d:=i

end

end;

write(d);

end.

алг

нач

целтаб Day[1:7]

цел i, m, d

Day [1]:=79;

Day [2]:=25;

Day [3]:=67;

Day [4]:=80;

Day [5]:=63;

Day [6]:=17;

Day [7]:=68;

d:= 1; m:= Day [1]

нц для i от 2 до 7

если Day[i] > m то

m:= Day[i]; d:=i

все

кц

вывод d

кон

 

2.      В массиве E хранятся данные измерений среднемесячного расхода электроэнергии за год в киловаттах (Е[1] — данные за январь, Е[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Паскаль

Алгоритмический язык

var i, k, d: integer;

E: array[1..12] of

integer;

begin

E[1]:=125; E[2]:=234;

E[3]:=168; E[4]:=89;

E[5]:=108; E[6]:=86;

E[7]:=108; E[8]:=648;

E[9]:=259; E[10]:=386;

E[11]:=250; E[12]:=367;

d:= 1; k:=E[1];

for i:=2 to 12 do

begin

if E[i] < k then

begin

k:=E[i]; d:=i

end

end;

write(d);

end.

алг

нач

целтаб E[1:12]

цел i, k, d

E[1]:=125; E[2]:=234;

E[3]:=168; E[4]:=89;

E[5]:=108; E[6]:=86;

E[7]:=108; E[8]:=648;

E[9]:=259; E[10]:=386;

E[11]:=250; E[12]:=367;

d:= 1; k:=E[1]

нц для i от 2 до 12

если E[i] < k то

k:=E[i]; d:=i

все

кц

вывод d

кон

3.      .

4.      п

На главную