Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Задача на паскале: Работа с символами строки

Автор: Tiglon 11.12.2011, 23:04

Ввести фамилию, имя, отчество как одно данное типа строка. продублировать все буквы "и" в имени.
Нужно рассматривать как массив символов. Использование функций и процедур запрещено.
Сделано на паскале.
Вопрос: как ?).

Код


program sfsd;
uses crt;
var s : string;
    k,m,n1,n2,n : integer;
begin
     clrscr;
     Writeln('Enter your name, surname, the second name');
     readln(s);
     k:=length(s);
     for n:=1 to k do
     if s[n]=' ' then
            begin
            m:=m+1;
            if m=1 then n1:=n;
            if m=2 then n2:=n;
            end;
     for n:=n1+1 to n2-1 do
     if s[n]='i' then
     begin
       s[n]:=; 
       break;
     end;
     write('Your name is  ');
     for n:=n1+1 to n2-1 do write(s[n]); 
     writeln;
     readln;
end.

n1, n2 - поиск пробелов чтобы потом вывести имя.

Автор: MetalFan 11.12.2011, 23:39

M
MetalFan

Модератор: Название темы должно отражать ее суть!
что за string, дублирование? а для курсовых, контрольных и прочего подобного существует Центр Помощи

Автор: MetalFan 12.12.2011, 11:15

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!