Question

как исправить ошибки ? 1 лабораторная

program laboratorywork1;

var a,b,c:real;

begin

write('vvedite a b c');

ReadLn(a,b,c);

((sqr(a)+sqr(b)+ sin(a))*cos(b)+c/sin(a)+b* cos(b)-sqr(a-b)

Writeln('a=',a:5:2,' b=',b:5:2,' c=',c:5:2);

end.

Answer 1

program labka;

var

a, b, c: integer;

var

z: real;

begin

writeln('vvedite a b c');

ReadLn(a, b, c);

z := (sqr(a) + sqr(b) + sin(a)) * cos(b) + c / (sin(a) + b * cos(b)) - exp(abs(a - b));

Writeln('z= ', z: 5: 2);

readln;

end.

Добавлено:

z: real;

*Значение формулы должно хранится в какой-нибудь переменной, а не просто так! *

Исправлено:

1)

var a, b, c: integer;

//было var a, b, c: real//

*В задании написано, что a, b и с являются целочисленными переменными( от фразы "целое число")*

2)

Обновлена формула:

-Добавлены и убраны скобки;

-В конце исправлено "корень из (а-b)" на "е в степени модуля (a-b)";

3)

Исправлен вывод.

*Нужно вывести значение вычисленной формулы!!! *