Исправить программу. - 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.

Объяснение кода листинга программы

  1. Объявлены три переменные типа real: x, y, z.
  2. Выводится сообщение «Vvedit x = » и считывается значение переменной x.
  3. Выводится сообщение «Vvedit y = » и считывается значение переменной y.
  4. Проверяется условие x*y<=0.
  5. Если условие истинно, выводится сообщение «Г‚ГўГҐГ¤ГЁГІГҐ ГІГГЄГЁГҐ x ГЁ y, ÷òîáû âûïîëГÿëîñü óñëîâèå x*y>0».
  6. Если условие ложно, начинается выполнение блока if.
  7. Если условие xy<1 истинно, переменной z присваивается значение xy+ln(x*y).
  8. Если условие xy>1 истинно, переменной z присваивается значение xy-ln(x*y).
  9. Если условие x*y=1 истинно, переменной z присваивается значение 1.
  10. Выводится значение переменной z.
  11. Конец программы.

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы