Question

Помогите пожалуйста, очень срочно!!! 35 баллов! 1) Написать программу на языке Паскаль вычисления выражения:S = 4f^2-√25+12m №2 Написать программу на языке Паскаль вычисления выражения. В ответе должно быть не только число, но и подпись кто выполнил.V = (2z^2-13)/(5h-10)+|n-25|

Answer 1

Ответ:

~~~~~~~~~~

1)

begin

 var (f, m) := readinteger2;

 var s := 4 * sqr(f) - sqrt(25) + 12 * m;

 write(s);

end.

~~~~~~~~~~

2)

begin

 var (z, h, n) := readinteger3;

 var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25);

 write(v);

 writeln('Выполнил: ВАШЕ ФИО');

end.

~~~~~~~~~~

Объяснение:

~~~~~~~~~~

sqr(x) - возводит число х в квадрат;

sqrt(x) - вычисляет квадратный корень из числа x;

abs(x) - вычисляет модуль числа х.

~~~~~~~~~~

1)

begin  // Начало программы

 var (f, m) := readinteger2;  // Считываем с клавиатуры значения f и m

 var s := 4 * sqr(f) - sqrt(25) + 12 * m;  // Вычисляем выражение

 write(s);  // Выводим ответ

end. // Конец программы

~~~~~~~~~~

2)

begin  // Начало программы

 var (z, h, n) := readinteger3;  // Считываем с клавиатуры значения z, h и n.

 var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25);  // Вычисляем выражение

 write(v);  // Выводим ответ

 writeln('Выполнил: ВАШЕ ФИО'); // Здесь вводите свое ФИО

end. // Конец программы

~~~~~~~~~~

Answer 2

Конечно, я помогу вам написать программы на языке Паскаль для вычисления данных выражений. Вот две программы, которые соответствуют вашим задачам:

Программа для вычисления выражения S = 4f^2 - √25 + 12m:

pascalCopy code
program Expression1;
var
  f, m, S: real;
begin
  writeln('Введите значение f:');
  readln(f);
  writeln('Введите значение m:');
  readln(m);
  
  S := 4 * sqr(f) - sqrt(25) + 12 * m;
  
  writeln('Результат выражения S = ', S);
end.

Программа для вычисления выражения V = (2z^2 - 13) / (5h - 10) + |n - 25|:

pascalCopy code
program Expression2;
var
  z, h, n, V: real;
begin
  writeln('Введите значение z:');
  readln(z);
  writeln('Введите значение h:');
  readln(h);
  writeln('Введите значение n:');
  readln(n);
  
  V := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25);
  
  writeln('Результат выражения V = ', V);
  writeln('Программу выполнил: Ваше_Имя_Или_Ник');
end.

Замените "Ваше_Имя_Или_Ник" на ваше имя или ник, чтобы подписать программу. После выполнения каждой из этих программ, вы получите результат вычисления выражения и подпись.