Домашние задания: Информатика

Помогите с информатикой срочно

составьте программу вычисляющие значение выражения запишите ее в соответствии с правилами pascal
ТТ
Татьяна Тишкова
81 
 Program P1;  

uses crt;  

var a, b, c, f: real;  

begin  

clrscr;  

writeln ('Вводите значения переменных с клавиатуры (только числа). При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой. После ввода каждого числа нажимайте клавишу Enter.');  

write ('Введите значение переменной a: a=');  

readln (a);  

write ('Введите значение переменной b: b=');  

readln (b);  

if b=sqr (3.04) then writeln ('Ошибка: Происходит деление на 0.') else begin  

   write ('Введите значение переменной с: с=');  

   readln (c);  

   write ('Введите значение переменной f: f=');  

   readln (f);  

   writeln ('Ответ: X=', (a/(b+sqr(3.04))+c*f)/(sqrt (1024)/(25+sqr (b))));  

   end;  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end.
Виктория Козлова
Виктория Козлова
43 559
Лучший ответ
Пример программы на языке Pascal для вычисления значения выражения
x=((a/b+3.04^2)+f*c)/(sqrt(1024))/(25+b^2):



program CalculateExpression;

var
a, b, f, c, b2: Real;
x: Real;

begin
// Ввод значений переменных a, b, f, c
writeln('Введите значения переменных a, b, f, c:');
readln(a, b, f, c);

// Вычисление квадрата числа 3.04
x := sqr(3.04);

// Вычисление b^2
b2 := sqr(b);

// Вычисление значения выражения x
x := ((a/b + x) + f*c)/(sqrt(1024))/(25 + b2);

// Вывод результата
writeln('Значение выражения равно: ', x);
end.

Примечание: функция sqr используется для возведения числа в квадрат, функция sqrt - для извлечения квадратного корня. В данной программе предполагается, что все переменные вводятся пользователем во время выполнения программы.
РИ
Руслан Исаков
14 606

Похожие вопросы