Вопрос Не могу понять, где ошибка в программе,помогите пожалуйста!!

Angry · 7 Фев 2024

Напишите программный код на языке Паскаль для решения следующей задачи.

Даны переменные a и b, значения которых нужно ввести с клавиатуры. Вычислите значение функции Z (a, b).
вот что у меня получилось

var a,b,y,x1,x2,x3,z:real;

begin

write ('Введите значение a и b:'

readln (a,b);

y:=sqrt(a)+sqrt(b);

x1:=power(sqrt,4);

x2:=sin;

x3:=1/y;

z:=x1+x2-x3;

writeln (z)

end.

vitexrus · 7 Фев 2024

Лучше так: var a, b, c: real;
begin
write('a b: ');
readln(a, b);
c := a * a + b * b;
writeln(sqrt(sqrt(c))+sin(c)-1/c)
end. Или так: var a, b, c: real;
begin
while true do
begin
write('a b » ');
readln(a, b);
if (a = 0) and (b=0) then
begin
writeln('Деление на ноль!');
continue
end
else
begin
c := a * a + b * b;
writeln('Z(a,b) = ', sqrt(sqrt(c))+sin(c)-1/c)
end
end
end.

апап · 7 Фев 2024

уже отсюда y:=sqrt(a)+sqrt(b);
это просто корень из а плюс корень из б
а по картинке это квадраты, то бишь
y:=a*a+b*b; или по другому, что я бы не советовал y:=sqr(a)+sqr(b);

БОТ-СМЕРТИ · 7 Фев 2024

у синуса а и в в квадрат не возвел!

makarov1111 · 7 Фев 2024

program CalculateZ;

var
a, b, z: Real;

begin
Write('Введите значение a и b: ');
Readln(a, b);
z := Sqrt(a * a + b * b) + Sin(a * a + b * b) - 1 / (a * a + b * b);
Writeln('Значение функции Z(a, b): ', z:0:4);
end.

dimon734437 · 7 Фев 2024

Язык гоvно

Вопрос Не могу понять, где ошибка в программе,помогите пожалуйста!!

Похожие темы

Privacy & Transparency

Privacy & Transparency