40 баллов! Очень нужно, помогите, пожалуйста! Написать программу Паскаль. Вводится х. Вывести у
$y=\frac{\sqrt{x^{2}+4+2} }{2}$

Ответы

Ответ дал: fedrfedr

Ответ:

program Calc;

var

x, y, z: Real;

begin

Write ('Введите x: ');

ReadLn (x);

z := Sqr (x) + 4 + 2;

if z > 0 then begin

y := Sqrt (z) / 2;

WriteLn ('y = ', y :10 :5);

end else

WriteLn ('Значение не определено');

ReadLn;

end.

Объяснение:

возможно "4" забыли на "x" умножить, тогда замените:

z := Sqr (x) + 4 * x + 2;

LSM54: А можно записать Write ('Введите x: ');
ReadLn (x);, как
Writeln ('Введите : ');
Write('x=');
ReadLn (x); также вместо WriteLn ('Значение не определено'); может написать WriteLn ('x=',y);?
И не очень понимаю зачем if z > 0 then begin?

fedrfedr: Я написал написал свой вариант, а вы правьте как нравиться, у каждого свои представления как лучше информацию показать.

fedrfedr: if z > 0 then begin - для проверки подкоренного выражения на положительное значение, иначе программа завершится с ошибкой

Ответ дал: AnonimusPro

var x: real;

begin

write('x=');

readln(x);

write('y=',sqrt(x*x+4+2)/2);

end.

Вас заинтересует

Другие предметы

2 месяца назад