Срочно нужна помощь! Программа в Паскаль

0 интересует 0 не интересует
47 просмотров

Срочно нужна помощь! Программа в Паскаль


image

спросил от Одаренный (1.2k баллов) в категории Информатика
оставил комментарий от Одаренный (1.2k баллов)
0 0

x, y заданы в градусах или радианах?

1 Ответ
0 интересует 0 не интересует
ответил от Одаренный (1.2k баллов)

приводим уравнение к виду:

a=\frac{4cos(x-\pi/6)}{2-cos(2y)}

считаем:

var

   x, y, z, a, b : real;

   

begin

   writeln('Введите:');

   write('x=');

   readln(x);

   write('y=');

   readln(y);

   write('z=');

   readln(z);

   a := (4*cos(x-pi/6))/(2-cos(2*y));

   b := 1+sqr(z)/(3+sqr(z)/5);

   writeln('a=', a:0:2);

   writeln('b=', b:0:2);

end.

если я не накосячил с расчетами то должно быть как то так.

оставил комментарий от Одаренный (3.5k баллов)
0 0

Выведет число a с точностью до двух знаков после запятой

оставил комментарий от Одаренный (3.5k баллов)
0 0

там не особо важно. Просто отмените округление переменных в ходе решения и в выводе сделайте данное форматирование.

оставил комментарий от Одаренный (1.2k баллов)
0 0

убрал округление, сделал формат вывод... должно работать в онлайн паскале

оставил комментарий от Одаренный (1.2k баллов)
0 0

когда переделывал, со скобкой накосячил... исправил

оставил комментарий от Одаренный (1.2k баллов)
0 0

но... при форматном выводе не идет округление, поэтому в последнем знаке могут быть отличия

оставил комментарий от Одаренный (1.2k баллов)
0 0

тестировал тут https://rextester.com/l/pascal_online_compiler у меня работает

оставил комментарий от Одаренный (1.2k баллов)
0 0

всегда пожалуйста

...