1 Відповідь від yar

(18 відповідей, залишених у Pascal/Delphi)

Torbins написав:

Комп'ютер за вас рівняння розв'язувати не буде. Ви спочатку самі мусите їх розв'язати, а за допомогою комп'ютера уже зможете різні значення в розв'язок підставляти.

Я маю на увазі, чи не повинна програма (див. повідомлення 12) видавати відповідні повідомлення, чи достатньо повідомлень про помилку, наприклад 207 або 200? Для прикладу, помилка 207 з’явиться при введених  значеннях a=3, b=-3.

Перейти до форуму: Pascal/Delphi

2 Відповідь від yar

(18 відповідей, залишених у Pascal/Delphi)

Chemist-i написав:
▼Прихований текст

facepalm

А так?

program rrr;
var f,a,b,c :real;
BEGIN
readln (a,b,c);
f:=a*ln((a+b)*(a+b))/ln(a)+cos(b/c)*cos(b/c);
writeln (f);
end.

А якщо (a+b)=0 або (ln(a)+cos(b/c)*cos(b/c))=0?

Перейти до форуму: Pascal/Delphi