Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 67.

Составить программу, заменяющую в заданном тексте одну подстроку на другую.

program p48;
  uses crt;
  var a,b,c:string;
      i:integer;
begin
  clrscr;
  write('Иcx текст a=');readln(a);
  write('заменить строку ');readln(b) ;
  write('Ha строку ');readln(c) ;
  i:=i+1;
  repeat
    if copy(a,i,length(b)) = b then
    a:=copy(a,1,i-1)+c+ copy(a,i+length(b) ,length(a));
    i:=i+1;
  until i >length(a)- length(b) + 1;
  writeln('a=',a);
  readln;
end.



{Эту программу можно использовать в разных случаях. Рассмотрим некоторые из них.}

Задача 67a.

Реализовать на компьютере возможность автоматического исправления слова <граматика> (правильно <грамматика>).


{Достаточно воспользоваться предыдущей программой, введя в качестве заменяемого текста слово "граматика", а в качестве заменяющего - "грамматика".}

Задача 67b.

Реализовать на компьютере операцию "вычитание" символьных величин (из введенного текста удаляются все вхождения некоторой строки).

{В задаче 67 надо ввести в качестве заменяющего текста пустую строку.}
Задача 67с.

Реализовать на компьютере замену сокращения "С. п." на словосочетание "Составить программу".

{ В задачет 67 надо ввести в качестве заменяемого текста "С. п.", заменяющего текста "Составить программу". }
Задача 67.

Изменить в романе имя героя с Пьера на Виктора.

{В задачу 67 надо ввести в качестве заменяемого текста слово "Пьер", заменяющего текста - "Виктор", а в качестве исходного - текст романа.}



 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100