Модули - найти ошибки в коде - Pascal ABC
Формулировка задачи:
Здравствуйте! Помогите найти ошибку. Заранее, спасибо!
Решение задачи: «Модули - найти ошибки в коде»
textual
Листинг программы
Procedure vvod(var a:mass); Procedure print(a:mass); Procedure vsaimoobr(var a:mass); Implementation Procedure vvod(var a:mass); var i:integer; begin for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;{vvod} end; Procedure print(a:mass); var i:integer; begin for i:=1 to n do write(a[i]:7:2); writeln; end;{print} Procedure vsaimoobr(var a:mass); var vz_obr:boolean; i:integer; begin vz_obr:=false; for i:=1 to n-1 do if a[i]*a[i+1]=1 then begin writeln('vsaimoobr = ',a[i]:10:2,a[i+1]:10:2); vz_obr:=true; end; if vz_obr=false then write('takih net'); end; {vsaimoobr} end.
Объяснение кода листинга программы
- В процедуре vvod переменной a присваивается значение массива.
- В процедуре print значение каждого элемента массива a выводится на экран через функцию write.
- В процедуре vsaimoobr проверяется условие a[i]*a[i+1] = 1. Если это условие выполняется, то выводится сообщение vsaimoobr = и значения a[i] и a[i+1]. Также устанавливается значение переменной vz_obr в true. Если условие не выполняется, то выводится сообщение takih net.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д