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

UptoLike

ВУЗ: 

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

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

Рубрика: 

S1 : = 'Turbo Pascal' ;
nl : = Pos ('Pascal' , S1) ;
n2 : = Pos ('паскаль', S1) ;
В результате nl = 7; n2 = 0 так как 'паскаль' и 'Turbo Pas-
cal' – это разные строки.
Задача 2
Проверить, является ли введенная совокупность симво-
лов именем месяца.
Program Lab1_2;
Uses Crt;
Const inst: Array [1 .. 12] of String [ 10 ] = ('yanuar', 'febr',
'marz', 'april', 'may', 'juni', 'juli', 'august', 'sebtember', 'оctober',
'november', 'december') ;
Month: Boolean = False;
Var Str: String [10];
i: Integer;
Begin
ClrScr;
WriteLn ('Введите имя месяца');
ReadLn (Str);
For I: =1 To 12 Do
Begin
If Str = inst [i] Then Month = True;
If Month Then WriteLn('Введено имя месяца')
Else WriteLn('Нет имени месяца');
End;
End.
Протокол работы программы: 1 случай:
Введите имя месяца ---> august
Введено имя месяца.
2 случай:
Введите имя месяца ---> aрррril
Нет имени месяца
Задача 3
Определить колтчество гласных и согласных букв во
вводимой строке.
15
     S1 : = 'Turbo Pascal' ;
     nl : = Pos ('Pascal' , S1) ;
     n2 : = Pos ('паскаль', S1) ;
     В результате nl = 7; n2 = 0 так как 'паскаль' и 'Turbo Pas-
cal' – это разные строки.

    Задача 2
    Проверить, является ли введенная совокупность симво-
лов именем месяца.
    Program Lab1_2;
    Uses Crt;
    Const inst: Array [1 .. 12] of String [ 10 ] = ('yanuar', 'febr',
'marz', 'april', 'may', 'juni', 'juli', 'august', 'sebtember', 'оctober',
'november', 'december') ;
    Month: Boolean = False;
    Var Str: String [10];
    i: Integer;
    Begin
    ClrScr;
    WriteLn ('Введите имя месяца');
    ReadLn (Str);
    For I: =1 To 12 Do
    Begin
    If Str = inst [i] Then Month = True;
    If Month Then WriteLn('Введено имя месяца')
    Else WriteLn('Нет имени месяца');
    End;
    End.
    Протокол работы программы: 1 случай:
    Введите имя месяца ---> august
    Введено имя месяца.
    2 случай:
    Введите имя месяца ---> aрррril
    Нет имени месяца

    Задача 3
    Определить колтчество гласных и согласных букв во
вводимой строке.
                                   15

Страницы