Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 35 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

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

Рубрика: 

Обычно этот тип применяется для хранения промежу-
точных данных, что позволяет сделать текст программы бо-
лее выразительным и понятным.
Оператор варианта Case удобно использовать для ввода
и вывода значений перечислимых скалярных типов.
Задача 1
Нужно по названию страны поставить в соответствие
столицу этой страны.
Program Lab3_1;
Uses Crt ;
Type Land = (Avstriya, USA, Rusland, Franziya);
Stolica = (Vien, Washington, Moskau, Pariz);
Var str: Land;
Gorod: Stolica;
N: Integer;
Begin
ClrScr;
Begin
For Land: = Avstriya To Franziya Do
Case str Of
Avstriya: WriteLn ('Vien');
USA: WriteLn ('Washington');
Rusland: WriteLn ('Moskau');
Franziya: WriteLn ('Pariz');
End;
Readln;
End.
Протокол работы программы:
Vien
Washington
Moskau
Pariz
Опишем работу программы. Имеем два списка объектов
перечислимого типа: Land и Stolica. В цикле перебираем объ-
екты из списка значений перечислимого типа Land , оператор
Case выводит на экран из списка значений перечислимого
типа Stolica соответствующее значение Stolica.
35
    Обычно этот тип применяется для хранения промежу-
точных данных, что позволяет сделать текст программы бо-
лее выразительным и понятным.
    Оператор варианта Case удобно использовать для ввода
и вывода значений перечислимых скалярных типов.

    Задача 1
    Нужно по названию страны поставить в соответствие
столицу этой страны.
    Program Lab3_1;
    Uses Crt ;
    Type Land = (Avstriya, USA, Rusland, Franziya);
    Stolica = (Vien, Washington, Moskau, Pariz);
    Var str: Land;
    Gorod: Stolica;
    N: Integer;
    Begin
    ClrScr;
    Begin
    For Land: = Avstriya To Franziya Do
    Case str Of
    Avstriya: WriteLn ('Vien');
    USA: WriteLn ('Washington');
    Rusland: WriteLn ('Moskau');
    Franziya: WriteLn ('Pariz');
    End;
    Readln;
    End.
    Протокол работы программы:
    Vien
    Washington
    Moskau
    Pariz
    Опишем работу программы. Имеем два списка объектов
перечислимого типа: Land и Stolica. В цикле перебираем объ-
екты из списка значений перечислимого типа Land , оператор
Case выводит на экран из списка значений перечислимого
типа Stolica соответствующее значение Stolica.
                            35

Страницы