Исправить программу. - Pascal ABC
Формулировка задачи:
Решение задачи: «Исправить программу.»
textual
Листинг программы
program qq; uses crt; var x,y,z:real; begin write('Vvedit x = '); readln(x); write('Vvedit y = '); readln(y); if x*y<=0 then writeln('Ââåäèòå ГІГ*ГЄГЁГҐ x ГЁ y, ÷òîáû âûïîëГ*ÿëîñü óñëîâèå x*y>0') else begin if x*y<1 then z:=x*y+ln(x*y) else if x*y>1 then z:=x*y-ln(x*y) else z:=1; writeln('z = ',z:5:2); end; end.
Объяснение кода листинга программы
- Объявлены три переменные типа real: x, y, z.
- Выводится сообщение «Vvedit x = » и считывается значение переменной x.
- Выводится сообщение «Vvedit y = » и считывается значение переменной y.
- Проверяется условие x*y<=0.
- Если условие истинно, выводится сообщение «Г‚ГўГҐГ¤ГЁГІГҐ ГІГГЄГЁГҐ x ГЁ y, ÷òîáû âûïîëГÿëîñü óñëîâèå x*y>0».
- Если условие ложно, начинается выполнение блока if.
- Если условие xy<1 истинно, переменной z присваивается значение xy+ln(x*y).
- Если условие xy>1 истинно, переменной z присваивается значение xy-ln(x*y).
- Если условие x*y=1 истинно, переменной z присваивается значение 1.
- Выводится значение переменной z.
- Конец программы.