Программирование в среде Turbo Pascal / Pascal / 4_2

Turbo Pascal | Глава 4 a:link {TEXT-DECORATION: none} a:visited {TEXT-DECORATION: none} a:active {TEXT-DECORATION: none} a:hover {COLOR: #007EFF;} A.menu:link { Color:#FFFFFF; } A.menu:visited { Color:#EEEEEE; } A.menu:hover { Color:#CCDDFF; } .glow { FILTER: DropShadow(Color=#000000, OffX=1, OffY=1, Positive=1)FILTER: Glow(Strength=1, Color=#454545); } .logot { color:#FFFFFF; }  

В в е д е н и е  /  О г л а в л е н и е  /  О т   а в т о р а

М е н ю

1. Интегрированная среда разработки программ Turbo Pascal 7.0 2. Лексические основы языка Pascal 3. Программирование алгоритмов линейной структуры 4. Алгоритмы и программы ветвящейся структуры 4.1 Условный оператор If

4.2 Примеры составления алгоритмов и программ с использованием

оператора If

4.3 Оператор выбора Case 5. Алгоритмы и программы циклической структуры 6. Регулярные типы данных. Массивы 7. Подпрограммы в Turbo Pascal

Примеры составления алгоритмов и программ с использованием условного оператора If

      Пример 4.1. Определить большее из двух целых чисел A и B.

      Блок-схема алгоритма решения задачи:

      Program Example_4_1;

      Var A, B : Integer;

       Max : Integer;

      Begin

       Write ('Введите значение A = '); ReadLn (A);

       Write ('Введите значение B = '); ReadLn (B);

       If A>=B then Max:=A else Max:=B;

       WriteLn ('большее из двух целых чисел A и B: ',Max)

      End.

      Пример 4.2. Определить принадлежит ли вводимое с клавиатуры значение A интервалу [0..9].

      Блок-схема алгоритма решения этой задачи аналогична примеру 4.1.

      Program Example_4_2;

      Var A : Real;

       Max : Integer;

       Str : String;

      Begin

       Write ('Введите значение A = '); ReadLn (A);

       If (A>=0) and (A<=9) then Str:='принадлежит'

       else Str:='не принадлежит';

       WriteLn ('Значение A ',Str,' отрезку [0..9]')

      End.

      Пример 4.3. Значения переменных X, Y, Z вводятся с клавиатуры. Если X Y Z, то все значения возвести в квадрат, при X >Y >Z каждое из них разделить на 2, в противном случае изменить знаки чисел. Изменённые значения переменных вывести на экран.

      Обратите внимание, что при решении данной задачи в каждой ветви условного оператора необходимо использовать составной оператор.

      Блок-схема алгоритма решения задачи:

      Program Example_4_3;

      Var X,Y,Z:Real;

      Begin

      Write ('Введите значение X,Y,Z');

      ReadLn (X,Y,Z);

      If (X<=Y)and(Y<=Z) then

      begin

      X:=Sqr(X); Y:=Sqr(Y); Z:=Sqr(Z)

      end

      else If (X>Y)and(Y>Z) then

      begin

      X:=X/2; Y:=Y/2; Z:=Z/2

      end

      else

      begin

      X:= -X; Y:= -Y Z:= -Z

      end;

      WriteLn('X=', X, ' Y=', Y, ' Z=', Z)

      End.

Учебно-познавательный сайт по программированию в среде Turbo Pascal

Мирошниченко Марина, Краснодар, 2003