Программирование
+3Не могу понять, где ошибка в программе,помогите пожалуйста!!
Напишите программный код на языке Паскаль для решения следующей задачи.
Даны переменные 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(y),4);
x2:=sin(y);
x3:=1/y;
z:=x1+x2-x3;
writeln (z)
end.
По дате
По рейтингу
Лучше так:
1234567
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. Или так:
123456789101112131415161718
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. уже отсюда y:=sqrt(a)+sqrt(b);
это просто корень из а плюс корень из б
а по картинке это квадраты, то бишь
y:=a*a+b*b; или по другому, что я бы не советовал y:=sqr(a)+sqr(b);
у синуса а и в в квадрат не возвел!
1234567891011
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. Язык гоvно
Больше по теме
