Удвоение некоторой буквы в строке - Исходник Pascal

Удвоение некоторой буквы в строке - Исходник Pascal

Совсем недавно мы прошли строковый тип данных, а так же его функции. Сегодня я хочу представить исходник, который использует этот тип данных в Паскаль. Данный исходник является решением простейшей задачи на Pascal, a именно удваивает вхождение некоторой буквы в тексте. Например, при удвоении буквы к текст "уроки паскаль" должен превратиться в текст - "Урокки пасккаль".

Итак, для решения данной задачи паскаль, нам придется использовать строковый тип данных, функцию определения длины строки - length (s), цикл FOR, а также процедуру вставки insert. Так как задача достаточно проста, то расписывать её решение я не буду.

Исходный код программы Паскаль:

var S1,a:string;
i:integer;
begin
writeln ('Введите строку');
readln(S1);
writeln ('Введите букву');
readln(a);
for i:=length(S1) downto 1 do
if S1[i]=a then
insert(a,S1,i);
writeln(S1);
end.


Скачать исходник: pas5.pas

Вам негде жить? Быть может Вам нужна аренда квартир в минске на www.sdamprodam.by.
Автор: Zed от 2013-03-28 09:46:23   Просмотров: 4761

Теги: Паскаль Pascal исходники исходник FOR string скачать