Program nl;
Var: x,y; real;
Begin
Readln (x);
if x>=0 then
y:= x*x
Else
y:= sqrt(x)
Writeln(y);
End.
Program nl;
Var: x,y;real;
Begin
Readln(x);
if (8-x)<>0 then
y:=3x/8-x
Else
Writeln('решений нет');
Writeln(y);
End.
Правильно ли я составил программу для Паскаль?
![](https://st.uroker.com/files/84f/84f5abf65cd58d79cad240a856e10ddd.jpg)
Ответы
Ответ:
Объяснение:
Есть ошибки. Не будет компилироваться. Будет ошибка выполнения в первой программе для отрицательных значений x.
Жирным выделены строчки, где есть ошибки.
1) Описание переменных следует писать так
Var x, y: real;
2) Пропущена точка с запятой
y:= sqrt(x);
3) Корень с отрицательного числа
y:= sqrt(x)
4) Во второй программе в объявлении переменных
Var x, y: real;
5) Пропущены знаки операций
y :=3 * x / (8 - x)
6) во второй программе, если знаменатель == 0, то после вывода - решений нет, следует вывод не инициализированного значения у.
Вывод значения y надо перенести выше, после вычисления y.
Program nl;
Var: x,y; real;
Begin
Readln (x);
if x >= 0 then
y:= x*x
Else
y:= sqrt(x)
Writeln(y);
End.
Program nl;
Var: x,y;real;
Begin
Readln(x);
if (8-x)<>0 then
y:=3x/8-x
Else
Writeln('решений нет');
Writeln(y);
End.
Так лучше будет (по возможности исправлено)
{ Тело первой программы }
Var x, y: real;
Begin
Write ('Input x: ');
Readln(x);
if x >= 0 then
y := x * x
Else
y := sqrt(abs(x));
Writeln('y: ', y: 10: 3);
Readln(); // удерживаем консоль
End.
{ Тело второй программы }
Var x, y: real;
Begin
Write ('Input x: ');
Readln(x);
if (8-x) <> 0 then
bеgin
y:=3*x/(8-x);
Writeln(' y=', y: 10: 2);
end
Else
Writeln('решений нет');
Readln(); // удерживаем консоль
End.