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