Лабораторная работа №4
Вариант – 8
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{ ЦЕЛЬ РАБОТЫ:
Изучение условного оператора, оператора отбора, составного
оператора и првил программирования разветвляющихся алгоритамов.
ПЕРЕМЕННЫЕ:
A,B,C - параметры выражения.
Z - значение выражения.
ПРОГРАММИСТ:
Джамалутдинов Роман Сагидович (гр. 343)
Дата : 15.10.03 }
Program Lab5;
Uses crt;
Var
A,B,C,X,F,H,K,Z:Real;
Begin ClrScr; {Lab # 5}
Write('A = ');
Read(A);
Write('B = ');
Read(B);
Write('C = ');
Read(C);
X:=(A+B+C)/3;
F:=abs(X-A);
H:=abs(X-B);
K:=abs(X-C);
If F
Then Z:=F
else Z:=H;
If K
Then Z:=K;
Writeln('Z = ',Z);
ReadKey;
End.{Lab # 5}
|