Создать программу ** языке Pascal для вычисления следующего арифметического...

0 голосов
44 просмотров

Создать программу на языке Pascal для вычисления следующего арифметического выражения.Помогите пж,заранее спасибо)


image

Информатика (358 баллов) | 44 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

Program Rick_and_Morty;
var a,b:integer;
Begin

write('введите a: ');
readln (a);
write('введите b: ');
readln (b);

writeln('b^4 = ',b*b*b*b );
writeln('a+b^4 = ',a+b*b*b*b );
writeln('7.1*(a+b^4) = ',7.1*(a+b*b*b*b) );
writeln('корень из (7.1*(a+b^4)) = ', sqrt(7.1*(a+b*b*b*b)) );

writeln('');

writeln('a^2 = ', a*a );
writeln('3*a^2 = ', 3*(a*a) );
writeln('(3*a^2)-b = ', (3*(a*a))-b );
writeln('модуль((3*a^2)-b) = ', abs((3*(a*a))-b) );
writeln('9.2* (модуль((3*a^2)-b)) = ', 9.2 *(abs((3*(a*a))-b)) );

writeln('ответ:');

writeln('(корень из (7.1*(a+b^4)))/(9.2* (модуль((3*a^2)-b))) = ', (sqrt(7.1*(a+b*b*b*b)))/(9.2 *(abs((3*(a*a))-b))) );

writeln('');
writeln('конец');
end.

(425 баллов)
0 голосов
// PascalABC.NET 3.3, сборка 1623 от 16.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите a и b черезх пробел:');
  var y:=Sqrt(7.1*(a+Sqr(b*b)))/(9.2*Abs(3*a*a-b));
  Writeln('y=',y)
end.
(150k баллов)