Лабораторная работа №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}