TURBO PASCAL:Учебное пособие. Терёхин В.В. - 78 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

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

Рубрика: 

78
Writeln('Введите строку');
Readln(S);
Delete (S, 1, pos('!’, S) ) ; { удаляем часть строки до
восклицательного знака}
Delete(S, роs (' !’ , S) , length(S)); {после восклица-
тельного знака}
Writeln('S= ', S);
end.
Задача:
С клавиатуры вводится строка. Рассматривая ее как
предложение, слова в котором разделяются одним или не-
сколькими пробелами, разбить ее на слова, а слова вывести на
экран. Каждое с новой строки.
program p28;
Const
S: String = 'ABC DEFG HIJ KL';
var
i: integer;
S1: String;
begin
i: = 1;
while i < = length(S) do
begin
{проходим по возможной цепочке пробелов}
While ( S[i] = ' ') and (i <= length(S)) do i : = i + 1 ;
S1 : = ‘ ‘ ;
{проходим по слову}
While ( S[i] <> ' ') and ( i <= length(S)) do
begin
S1:= S1 + S[i];
i : = i + 1 ;
end;
Writeln(S1);
end; 
   Writeln('Введите строку');
  Readln(S);
  Delete (S, 1, pos('!’, S) ) ; { удаляем часть строки до
      восклицательного знака}
  Delete(S, роs (' !’ , S) , length(S)); {после восклица-
      тельного знака}
  Writeln('S= ', S);
end.

        Задача:
        С клавиатуры вводится строка. Рассматривая ее как
предложение, слова в котором разделяются одним или не-
сколькими пробелами, разбить ее на слова, а слова вывести на
экран. Каждое с новой строки.
program p28;
Const
   S: String = 'ABC DEFG HIJ KL';
var
   i: integer;
   S1: String;
begin
   i: = 1;
   while i < = length(S) do
   begin
       {проходим по возможной цепочке пробелов}
       While ( S[i] = ' ') and (i <= length(S)) do i : = i + 1 ;
       S1 : = ‘ ‘ ;
       {проходим по слову}
        While ( S[i] <> ' ') and ( i <= length(S)) do
       begin
          S1:= S1 + S[i];
          i:= i + 1;
       end;
       Writeln(S1);
   end;
                                                               78

Страницы