Лабораторная работа №17 «Поиск и исправление ошибок в алгоритме»

Задание: Проанализировать представленный код, исправить логические и синтаксические ошибки. Определить, какая задача стояла перед программистом. Добавить комментарий к каждой строчке программы, поясняющий, что она выполняет.

№ варианта

Код

1

program C2;

Const N=10;

var i, j, X, Y :integer;

a:array [1..N] of integer;

Begn

For i:=1 to N do

readln (a[i]);

X:=a[1];

Y:=a[1];

For j:= 2 to N do

if a[j]>X then

X:=a[j];

if a[j]<Y then

Y:=a[i];

end;

write (X-Y);

readln;

End

2

uses ctr;

const

Sz = 100;

var

a,b: array [1..Sz] of integer;

aN: integer;

bN: integer;

begin   aN := 20;

for var i:=1 to aN do

a[i] := Radom(10);

writeln('???: ');

for var i:=3 to aN do

write(a[i],' ');

writeln; 

bN := -5;

for var i:=1 to aN do

if a[i] mod 2 = 0

begin

bN += 1;

b[bN] := a[i];

end;

for var i:=1 to bN do

write(b[i],' ');

end

3

programm 2C;

Var a:array[1..100] of integer;

i,k, n:integer;

Begin

read(n);

For i:=1 to n+1 do

begn

a[i]:=rand(10);

if a[i]<i then k:=k+1;

write(a[i],' ');

end;

writeln;

write('Итого: ',);

end.

4

const N = 0;

var a: arrai [1..N] of integer;

begin

clrsr;

for i:=1 to N do

a[i] := Random(100);

write(a[i],' ');

writeln;

for var i:=1 to N-1 do

a[i] := a[i+1];

a[N] := 0;

writeln('После: ');

for var i:=1 to a do

write(a[i],' ');

wrteln; 

end.

 

5

Const n = 6;

Var

arr: array[1..n] of integer;

j, b, a: integer;

Begin

for i := 1 to n - 1 do

writeln(arr[i]);

for i := 1 to n - 1 do

write(arr[i]:5);

writeln;

write('Укажите еще один элемент: ');

readln(b);

write('Позиция в массиве: ');

readln(a);

for i := n - 1 downto a + 1 do

arr[i+1] := arr[i];

arr[a] := b;

write(' Ваш массив: ');

for k := 1 to n do

write(arr[i]:5);

writeln;

readln

End.

 

компьютер

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

вариант

1

2

3

4

5

1

2

3

4

5

1

2

3

4

5

1

2

3

4

5

1

2

3

4

5

1

2

3

4

5