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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

VAR a, b, c: real;
BEGIN
write(’Введите длину первого отрезка a=’); readln(a);
write(’Введите длину второго отрезка b=’); readln(b);
write(’Введите длину третьего отрезка c=’); readln(c);
IF (a<=0) OR (b<=0) OR (c<=0) THEN writeln(’Вы неправильно ввели
значения длин !’)
ELSE
IF
(a+b>c) AND (a+c>b) AND (b+c>a) THEN writeln(’Из этих отрезков
МОЖЕТ быть образован треугольник !’)
ELSE writeln(’Из этих отрез-
ков НЕ МОЖЕТ быть образован треугольник !’);
END.
Таблица 2.3.1
Виды разветвляющихся алгоритмов и способы их программирования
Фрагмент блок – схема Фрагмент программы
а) Разветвление.
x>3
y=(x+1)
z=1/x
y=e
-z
2
Да Нет
IF x>3 THEN y:=sqr(x-1) ELSE
BEGIN z:=1/x; y:=exp(-z) END;
б) Обход. (1-й случай).
x>3
и
c <2
y=(x+1)
Да
Нет
IF (x>3) AND (c<2) THEN
d:=c+x;
16

Страницы