Вычислить значение выражения - Pascal ABC (14492)

Узнай цену своей работы

Формулировка задачи:

Даны переменные x,y,z,m,n. Вычислить: при Вывести на печать a, b, c, m1, min, max.

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
program prim;
uses crt;
function max (x,y,z:real):real;
var t:real;
begin
t:=x;
if y>t then t:=y;
if z>t then t:=z;
max:=t;
end;
function min (x,y,z:real):real;
var t:real;
begin
t:=x;
if y<t then t:=y;
if z<t then t:=z;
min:=t;
end;
var x,y,z,m,n,a,b,c, m1, mi, ma:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
write('z=');
readln(z);
write('m=');
readln(m);
write('n=');
readln(n);
if (x*y)>=z then begin
a:=max(x,y,z);
b:=min(x,y,z);
c:=abs(a-b);
end else
if (x*y)<=z then
begin
a:=sin(x)/cos(x);
b:=sin(x);
c:=cos(x);
end;
 
if m*n>=1 then m1:=a*b*c else
if ((m*n>=0) and (m*n<=1))
then m1:= sqr(a)+sqr(b)+sqr(c) else
if m*n<=0 then m1:=0;
 
writeln ('a=',a:5:3);
writeln ('b=',b:5:3);
writeln ('c=',c:5:3);
writeln ('m1=',m1:5:3);
 
end.

Объяснение кода листинга программы

  1. Создается программа Prim.
  2. Используются единицы и определения для переменных: t, x, y, z, m, n, a, b, c, m1, mi, ma.
  3. Читаются значения переменных x, y, z, m и n с помощью функции readln.
  4. Вычисляется максимальное значение из x, y и z с помощью функции max.
  5. Вычисляется минимальное значение из x, y и z с помощью функции min.
  6. Если условие (x*y)>=z выполняется, то вычисляются максимальное и минимальное значения из x, y и z с помощью функций max и min. Затем вычисляется разность между ними с помощью функции abs.
  7. Если условие (x*y)<=z выполняется, то вычисляются значения синуса, косинуса и косинуса x с помощью функций sin, cos и sqr соответственно.
  8. Если условие m*n>=1 выполняется, то вычисляется произведение a, b и c и сохраняется в переменной m1.
  9. Если условие ((mn>=0) и (mn<=1)) выполняется, то вычисляется сумма квадратов a, b и c и сохраняется в переменной m1.
  10. Если условие m*n<=0 выполняется, то переменной m1 присваивается значение 0.
  11. Выводятся значения переменных a, b, c и m1 с помощью функции writeln.

Оцени полезность:

13   голосов , оценка 4 из 5