TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

         Практическое задание N 1. 5

            1.  Синоптики объявляют погоду на ближайшие дни:  1-солнце, 2-дождь,  3-туман,  4-ветер.  Зная нужную вам погоду,  вы принимаете определенное решение:  жду нужную погоду,  либо - беру отгул,  которое выводится на экран.  Программа запрашивает ввод нужной погоды и выводит на экран ваше решение на каждый день до дня отгула.

            2.  Старуха послала старика с просьбой: поймать в море нужную ей рыбку.  Рыба клюет в определенной последовательности: окунь,  камбала,  линь,  треска.  Поймав рыбку,  старик принимает решение:  ловлю еще,  либо - еду домой,  которое выводится на экран.  Программа запрашивает ввод нужной рыбки и выводит на экран решение старика на каждый улов до нужного.

            В случае зависимых событий,  исключающих одновременное их выполнение,  могут применяться вложенные условные операторы.  Во вложенных условных операторах служебное слово "else" относится к ближайшей конструкции If "условие"  Then  "оператор1"  за которым оно следует,  т. к.  "оператор2" выполняется в случае,  если "условие" - ложно. 

            Приведем пример программы определения весовой категории в зависимости от веса спортсмена.

 

PROGRAM VES;                                         { определение весовой категории спортсмена }

                                        Условная схема программы

CONST A1='легкая категория';

      A2='средняя категория';                   Then             

      A3='тяжелая категория';                IF       Writeln(A1)              

      A4='сверхтяжелая категория';     Else                          

var V : integer;                                Then                 

                                             IF       Writeln(A2)       

BEGIN                                  Else                           

write('введите вес спортсмена V=');             Then               

   readln(v);                                IF       Writeln(A3)                   

                                       Else

IF V < 62 then writeln(A1)

     else                                             Writeln(A4)

 

         IF V < 75 then writeln(A2)          { вложенный условный оператор }

                          else

 

              IF V < 88 then writeln(A3) { вложенный условный оператор }

                                    else         writeln(A4);

 

     writeln('Нажмите Enter');     readln;

END.

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz