Задания связанные с обработкой строки

[назад]

Задача №1. Написать программу, которая будет подсчитывать количество символов в введенной строке.

Решение.

var 

  str: string;

begin

  writeln('Введите строку');

  readln(str);

  writeln('Количество символов = ', length(str));

  readln;

end.

Задача №2. Модернизировать предыдущую программу таким образом, чтобы дополнительно узнать сколько пробелов было в введенной строке.

Решение.

var 

  str: string;

  i,x integer;

begin

  writeln('Введите строку');

  readln(str);

  for i:= 1 to length(str) do

    if str[i] = ' ' then

      x:=x+1;

  writeln('Количество символов = ', length(str));

  writeln('Количество пробелов = ', x);

  readln;

end.

Задача №3.  Измените предыдущую программу таким образом, чтобы кроме подсчета символов она заменяла все пробелы буквой "s" и выводила на экран итоговый результат.

Решение.

var 

  str: string;

  i,x integer;

begin

  writeln('Введите строку');

  readln(str);

  for i:= 1 to length(str) do

    if str[i] = ' ' then

      str[i] := 's';

  writeln('Количество символов = ', length(str));

  writeln(str);

  readln;

end.

Задача №4. Напишите программу, которая будет удалять пробелы из строки, а результат выводить на экран.

Решение.

var

  str:string;

  i:integer;

begin

  writeln('Введите строку');

  readln(str);

  for i:=1 to length(str) do

    if str[i]=' ' then

      begin

        delete(str,i,1);

        i:=i-1;

      end;

  writeln('Итоговая строка - ', str);

  readln;

end.

Задача №5. Напишите программу, которая читает с клавиатуры строку текста и выводит ее на экране "задом на перед". 

Решение.

var

  str: string;

  i: integer;

begin

  write('Введите строку символов');

  readln(str);

  for i:= length(str) downto 1 do

    write(str[i]);

  readln;

end.

[назад]