Лабораторная
работа №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 |