Продолжаю выкладывать свои лабораторные работы.
Цель работы:
-Освоение средств и примеров отладки программ в интегрированной среде программирования Турбо Паскаль.
Задание:
-Исправить ошибки в тексте программы Error.pas.
Исходный текст программы:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Program error (input,output); var i,j: integer; m: array [1..10,1..20] of char; begin for i:=1 to 10 do for i:=1 to 10 do begin if i=(2*j) or j=2*(11-i) then m[i,j]:='*' else m[i,j]:=' ' for i:=1 to 10 do for i:=1 to 20 do writeln(m[i,j]); writeln end end. |
Работа над ошибками.
Сообщения об ошибках:
“THEN EXPECTED”
“; EXPECTED”
В программе дано два цикла с переменной i. Второе i следует заменить на j. Кроме того, следует исправить число 10 на число 20, так как размерность массива 10*20.
Для более упорядоченного вывода можно заменить writeln(m([i,j]) на write(m[i,j]).
Исправленный текст программы:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Program error (input,output); var i,j: integer; m:array [1..10,1..20] of char; begin for i:=1 to 10 do for j:=1 to 20 do begin if (2*i=(j)) or (j=2*(11-i)) then m[i,j]:='*' else m[i,j]:=' ' end; for i:=1 to 10 do begin for j:=1 to 20 do write(m[i,j]); writeln; end; readln end. |
Вывод:
Мы получили навыки по работе с отладчиком среды Турбо Паскаль. Также мы получили программу, правильно выполняющую необходимое задание.