Предмет: Информатика, автор: Лёля13987

При любых значениях выдает один и тот же ответ ,помогите найти ошибку

Приложения:

Лёля13987: Program Z2;
Var q,s,n,x,y,m,w,a,b,c:real;
begin
write ('введите число a=');
readln (a);
write ('введите число b=');
readln (b);
write('введите число c=');
readln (c);
q:=sqrt(3+(sqrt(s))/(8-(sqrt(n))));
s:= sqrt(a-(x/y));
x:=c+sqrt(a)*sin(sqrt(c));
y:=sin(3*b)*cos(3*b);
n:= sqrt(b+(m/w));
m := ln(1+sin(a));
w:= sqrt(b)+sqrt(c)/(a*a-1)+(a/c*b);
writeln(q);
end.
Ziorar: Считается ку в самом начале, когда ещё не вычислены ни s, ни n. Вот и результат один и тот же. Есть и ещё ошибки.
Лёля13987: а какие еще?
Ziorar: я проще сейчас в ответе напишу всё, когда программу доведу до ума
Лёля13987: Хорошо,спасибо огромное
Ziorar: вообще, все формулы в обратном порядке расположены
Лёля13987: не поняла
Ziorar: сверху идут те формулы, что должны быть снизу
Лёля13987: x:=sqrt(a-(c+sqrt(a)*sin(sqrt(c))/(sin(3*b)*cos(3*b))));
n:=(sqrt(b+(ln(1+sin(a))/sqrt((b+c/sqr(a)-1)+a/c*b))));
q:=sqrt(3+(sqrt(x))/8-(sqrt(n)));
Лёля13987: Спасибо всем огромное

Ответы

Автор ответа: maxpavlutenkof
1

Program Z2;

Var q,s,n,x,y,m,w,a,b,c: real;

Begin

write ('введите число a=');

readln (a);

write ('введите число b=');

readln (b);

write('введите число c=');

readln (c);

x := c+sqrt(a)*sin(sqrt(c));

y := sin(3*b)*cos(3*b);

s := sqrt(a-x/y);

m := ln(1+sin(a));

w := sqrt((b+c)/(a*a-1))+(a/(c*b));//error x2

n := sqrt(b+(m/w));

q := sqrt((3+s)/(8-n));//error x4

writeln(q);

End.

Объяснение:

комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и ... вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать


maxpavlutenkof: + неправильно построение действий
Автор ответа: Ziorar
1

Ответ:

Program Z2;

Var q,s,n,x,y,m,w,a,b,c:real;

begin

write ('введите число a=');

readln (a);

write ('введите число b=');

readln (b);

write('введите число c=');

readln (c);

x:=c+sqrt(a)*sin(sqrt(c));

y:=sin(3*b)*cos(3*b);

s:= sqrt(a-(x/y));

m := ln(1+sin(a));

w:= sqrt((b+c)/(a*a-1))+(a/(c*b));

n:= sqrt(b+(m/w));

q:=sqrt((3+s)/(8-n));

writeln(q);

end.


Ziorar: И с ответами сходится
maxpavlutenkof: а не sqrt((...)+(...))
maxpavlutenkof: эм.... я твою пргу запускал , мне выдавало 9.94...
maxpavlutenkof: для первого случая
Ziorar: Сейчас ещё раз скопировал отсюда свой ответ, и для первого случая выдаёт 0.99413562009126
Ziorar: Так что всё у меня нормально с ответом.
maxpavlutenkof: так ... вот щас я чет вопросом задался , падажи
maxpavlutenkof: блиииин , чел сорян , это я слепой
Ziorar: Ну, разберутся уж, когда проверять будут решение, раз без ошибок то и удалять не будут. А вообще, я обычно если чьё то решение отмечаю как ошибочное, сначала нахожу, в чём ошибка и указываю в комментариях. Если уж автор через час не исправит ёе, тогда уже можно отмечать как ошибочное. А иначе, странно как то получается.
maxpavlutenkof: так пххх , мне чет показалось , что в первом случае ответ 1.18... , а к томуже скобок не заметил , крч заглажу вину луцком
Похожие вопросы
Предмет: Английский язык, автор: jurayevahilola0
Предмет: История, автор: белыч7