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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Then Write ('лет')
Else
Case n Mod 10 Of
1 : WriteLn ('год');
2 .. 4 : WriteLn ('года');
0, 5 .. 9 : WriteLn ('лет');
End;
ReadLn;
End.
Протокол работы программы. Введите возраст
25 лет.
Искомые наименования зависят от остатка, полученного
при делении числа n на 10
. Исключение составляют числа 11,
12, 13, 14. Используем оператор ветвления If в полной форме,
в одной из ветвей которого учитываем исключение с помо-
щью оператора включения In
. В другой ветви Else использу-
ем оператор выбора Case. Условие n In [11..14] истинное
(True), если n является элементом множества [11, 12, 13, 14],
оно заменяет составное условие (n > 10) and (n < 15).
Задача 3
В заданном множестве В удалить все числа, кратные 2
Program Lab4_3;
Uses Crt;
Var В : Set Of 0 .. 25;
i : byte;
Begin
ClrScr;
For i : = 1 To 25 Do
If (i In В) And (i Mod 2 = 0)
Then B : = B – [i];
{блок печати множества В}
For i : = 1 to 25 Do
If i In B
Then Write (i : 3);
End.
Протокол работы программы Lab4-3: 1 3 5 7 9 11 13 15 17
19 21 23.
52
     Then Write ('лет')
     Else
     Case n Mod 10 Of
     1 : WriteLn ('год');
     2 .. 4 : WriteLn ('года');
     0, 5 .. 9 : WriteLn ('лет');
     End;
     ReadLn;
     End.
     Протокол работы программы. Введите возраст 25 лет.
     Искомые наименования зависят от остатка, полученного
при делении числа n на 10. Исключение составляют числа 11,
12, 13, 14. Используем оператор ветвления If в полной форме,
в одной из ветвей которого учитываем исключение с помо-
щью оператора включения In. В другой ветви Else использу-
ем оператор выбора Case. Условие n In [11..14] истинное
(True), если n является элементом множества [11, 12, 13, 14],
оно заменяет составное условие (n > 10) and (n < 15).

    Задача 3
    В заданном множестве В удалить все числа, кратные 2
    Program Lab4_3;
    Uses Crt;
    Var В : Set Of 0 .. 25;
    i : byte;
    Begin
    ClrScr;
    For i : = 1 To 25 Do
    If (i In В) And (i Mod 2 = 0)
    Then B : = B – [i];
    {блок печати множества В}
    For i : = 1 to 25 Do
    If i In B
    Then Write (i : 3);
    End.
    Протокол работы программы Lab4-3: 1 3 5 7 9 11 13 15 17
19 21 23.

                             52

Страницы