Паскаль в примерах. Иринчеев А.А - 55 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

55
PROGRAM PR 34;
VAR
С: CHAR;
I,N:INTEGER;
BEGIN
WRITE(‘Введите символ ‘);
READLN(C);
N:=1;
I:=0;
WHILE C <> ‘/’ DO
BEGIN
IF C =‘a’ THEN I:=I+1;
WRITE(‘Введите символ ‘);
READLN(C);
N:=N+1;
END;
WRITELN(‘ Количество символов в строке = ‘, N:3);
WRITELN(‘ Количество символов
a в строке = ‘, I:3);
END.
Символы, подготовленные для ввода, не отделяются друг от друга никакими знаками.
Если три символа будут вводиться с помощью read(a,b,c), то можно будет набрать на клавиа-
туре
ч ш ц и тогда значениями переменных a,b,c будут соответственно символы ч, щ, ц.
При построении условий, располагающихся после IF и WHILE, можно использовать
разнообразные отношения в множестве символов. Здесь возможен не только знак =
и комби-
нация <>, но и также >, >=, <, <=. так как все множество символов считается упорядочен-
ным.
Рассмотрим пример вывода нарастающей последовательности букв латинского алфави-
та.
PROGRAM PR 35;
VAR
A,D: CHAR;
BEGIN
FOR C:=‘a’ TO ‘z’ DO
BEGIN
FOR D:=‘a’ TO C DO
WRITE(D);
WRITELN(‘ ‘);
END
END.
Рассмотрим еще пример, в котором использована упорядоченность значений типа
CHAR. Программа, в результате выполнения которой выясняется, имеется ли хотя бы одна
малая латинская буква среди символов, предшествующих первому символу
/ в последова-
тельности символов.
PROGRAM PR 36;
LABEL 1;
VAR
C: CHAR;
BEGIN 
PROGRAM PR 34;
 VAR
 С: CHAR;
 I,N:INTEGER;
  BEGIN
   WRITE(‘Введите символ ‘);
    READLN(C);
   N:=1;
    I:=0;
WHILE C <> ‘/’ DO
 BEGIN
 IF C =‘a’ THEN I:=I+1;
  WRITE(‘Введите символ ‘);
   READLN(C);
N:=N+1;
 END;
  WRITELN(‘ Количество символов в строке = ‘, N:3);
  WRITELN(‘ Количество символов a в строке = ‘, I:3);
END.
       Символы, подготовленные для ввода, не отделяются друг от друга никакими знаками.
Если три символа будут вводиться с помощью read(a,b,c), то можно будет набрать на клавиа-
туре ч ш ц и тогда значениями переменных a,b,c будут соответственно символы ч, щ, ц.
       При построении условий, располагающихся после IF и WHILE, можно использовать
разнообразные отношения в множестве символов. Здесь возможен не только знак = и комби-
нация <>, но и также >, >=, <, <=. так как все множество символов считается упорядочен-
ным.
      Рассмотрим пример вывода нарастающей последовательности букв латинского алфави-
та.

PROGRAM PR 35;
VAR
 A,D: CHAR;
 BEGIN
  FOR C:=‘a’ TO ‘z’ DO
  BEGIN
   FOR D:=‘a’ TO C DO
   WRITE(D);
   WRITELN(‘ ‘);
  END
 END.

     Рассмотрим еще пример, в котором использована упорядоченность значений типа
CHAR. Программа, в результате выполнения которой выясняется, имеется ли хотя бы одна
малая латинская буква среди символов, предшествующих первому символу / в последова-
тельности символов.

PROGRAM PR 36;
LABEL 1;
 VAR
 C: CHAR;
  BEGIN

                                                                                       55

Страницы