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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Program Lab1_3;
Uses Crt;
Const n = 30;
Var a: String [n];
p: String [7];
g, s, i, j, k: Integer;
BEGIN
ClrScr;
p: = 'aejiouy';
WriteLn (' Введите текст ');
k: = 0;
Repeat;
k: = k + 1;
Read (a[k]);
Until (k = n) Or (a [k] = '.');
WriteLn;
g: = 0; s:= 0;
For i: = 1 To k Do
For j: = 1 To 7 Do
If a [i] = p [j] Then g: = g + 1;
s: = k – 1 – g;
WriteLn ('Гласных = ', g);
WriteLn (' Согласных = ', s);
End.
Протокол работы программы: введите текст
aaeiidf
Гласных = 5
Согласных = 2
4. Контрольные вопросы
1. Какие типы данных используются в Pascal для обра-
ботки текста?
2. Почему символьный тип относят к порядковым типам?
3. Как отдельные символы представляются в памяти
компьютера?
4. Поясните, что означает высказывание: любая буква
латинского алфавита всегда меньше любой буквы русского
алфавита?
16
   Program Lab1_3;
   Uses Crt;
   Const n = 30;
   Var a: String [n];
   p: String [7];
   g, s, i, j, k: Integer;
   BEGIN
   ClrScr;
   p: = 'aejiouy';
   WriteLn (' Введите текст ');
   k: = 0;
   Repeat;
   k: = k + 1;
   Read (a[k]);
   Until (k = n) Or (a [k] = '.');
   WriteLn;
   g: = 0; s:= 0;
   For i: = 1 To k Do
   For j: = 1 To 7 Do
   If a [i] = p [j] Then g: = g + 1;
   s: = k – 1 – g;
   WriteLn ('Гласных = ', g);
   WriteLn (' Согласных = ', s);
   End.
   Протокол работы программы: введите текст
   aaeiidf
   Гласных = 5
   Согласных = 2

    4. Контрольные вопросы
    1. Какие типы данных используются в Pascal для обра-
ботки текста?
    2. Почему символьный тип относят к порядковым типам?
    3. Как отдельные символы представляются в памяти
компьютера?
    4. Поясните, что означает высказывание: любая буква
латинского алфавита всегда меньше любой буквы русского
алфавита?
                          16

Страницы