Сайт учителя

Тинькова Е.Н.

Урок 29


Программирование разветвляющихся алгоритмов

Ключевые слова:

• условный оператор
• неполный условный оператор
• вложенные ветвления

3.4.1. Условный оператор

При записи на языке Паскаль разветвляющихся алгоритмов ис­пользуют условный оператор. Его общий вид:

if  <условие>  then  <оператор_1>  else  <оператор_2>

Для записи неполных ветвлений используется неполная форма условного оператора:

if  <условие>  then  <оператор>

Слова ifthenelse переводятся с английского языка на рус­ский как если то иначе, что полностью соответствует записи ветвления на алгоритмическом языке.
Перед else знак «;» не ставится.

В качестве условий используются логические выражения:

• простые — записанные с помощью операций отношения;
• сложные — записанные с помощью логических операций.

Пример 1. Запишем на языке Паскаль рассмотренный в п. 2.4.2 (пример 8) алгоритм определения принадлежности точки х отрезку [а, b].

program n_9;

var   x, a, b: real;

begin

writeln   ('Определение   принадлежности  точки  отрезку');
write   ('Введите   a,   b»1);
readln   (a,   b) ;
write    ('Введите   х»');
readln    (x) ;
if   (x>=a)   and   (x<=b)    then

writeln    ('Точка   принадлежит   отрезку')

else  writeln   ('Точка   не   принадлежит   отрезку')

end.

Пример 2. Воспользуемся неполным условным оператором для записи на языке Паскаль рассмотренного в п. 2.4.2 (пример 9) алго­ритма присваивания переменной у значения наибольшей из трёх величин а, b и с.

program n_10;

var   у, a, b, с: integer;

begin

writeln ('Нахождение   наибольшей  из   трёх   величин');
write ('Введите а, b, c>>');
readln   (a, b, с);
у:=а;
if (b>y) then y:=b;
if (c>y) then y:=c;

writeln ('y=', y)

end.

Дополните эту программу так, чтобы её выполнение приводило к при­сваиванию переменной у значения большей из четырёх величин а, b, с и d.

 

Block title

Вход на сайт

Поиск

Календарь

«  Декабрь 2024  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
3031

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Архив записей