Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 14 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

ной оператор. Составной оператор начинается ключевым словом
BEGIN и заканчивается ключевым словом END. Между этими словами
помещаются составляющие операторы, которые выполняются в порядке
их следования.
Рассмотрим пример составного условного оператора.
Пример 2.3.2
y=Cos 2x/5 при 5<=x<=10, r=sin 2x/10,
f= y+r; f=2.8 e
X
при x<5 или x>10.
PROGRAM FUNK;
VAR x, y, r, f:real;
BEGIN write('введи x= ');read(x);
IF (x<=10) and (x>=5) THEN BEGIN
y:=Cos(2.0*x)/5.0; r:=Sin(2*x)/10.0;
f:=y+r;
END ELSE
f:=2.8*exp(x);
write('значение f',f);
END.
Виды разветвляющихся алгоритмов и способы программирования
приведены в табл. 2.3.1. и 2.3.2.
Пример 2.3.3 Составить программу для решения квадратного
уравнения.
VAR A, B, C, X, X1, X2, D:real;
BEGIN
{Ввод коэффициентов a,b,c.}
writeln(’Данная программа решает квадратные уравнения типа :’);
writeln(’ A
∗X∗X + B∗X + C = 0 ’)
write(’Введите коэффициент А = ’); readln(A);
write(’Введите коэффициент B = ’); readln(B);
write(’Введите коэффициент C = ’); readln(C);
{Расчет дискриминанта}
D:=sqr(B)-4
∗A∗C;
{Расчет корней.}
IF D < 0 THEN
BEGIN
writeln(’Данное уравнение вещественных корней’);
writeln(’НЕ ИМЕЕТ’);
END;
IF D = 0 THEN
14

Страницы