В строке после каждой буквы q добавить букву u (Pascal -> C++)

@AnnaMo · Регистрация: 31.05.2014

Author24 — интернет-сервис помощи студентам

В предложении после каждой буквы q добавить букву u.

Pascal

Program  lab6;
uses crt;
Var
p: integer;
Ch1: Char;
Ch2: Char;
Str2,strp,str: String [30];
Begin
clrscr;
writeln( ’vvedite predlogenie’);
readln(str2);
ch1:= ’u’;
ch2:= ’q’;
str:=’’;
strp:=’’;
p:=Pos (ch2, 1,p);
while(p>0) do
begin
strp:=copy(str2, 1,p);
strp:= strp+ ’u’;
Ch2:= ’q’;
str:=’’;
strp:=’’;
p:= Pos (sh2,str2);
while(p>0) do
begin
strp:=copy(str2, 1,p);
strp:= strp+ ’u’;
str:=str+strp;
delete  (str2,1.p);
p:=Pos (sh2,str2);
strp:=’’;
end;
if length (str2)>0 then str:=str+str2;
writeln (str);
end.

Tulosba · 03.07.2014, 15:14

Прям прорвало как на темы "Перевод кода с Pascal в C++" в последнее время ...
Где-то бесплатно код паскаля что ли раздают?

@SatanaXIII · 03.07.2014, 15:51

Комментарий модератора

AnnaMo, как можно более полно описывайте суть проблемы. Где условие? Как понять что делает данная программа? Результаты каких-нибудь тестов для сверки перевода.

Tulosba :) 4773 / 3267 / 497 Регистрация: 19.02.2013 Сообщений: 9,046
	03.07.2014, 15:14	2
	Прям прорвало как на темы "Перевод кода с Pascal в C++" в последнее время ... Где-то бесплатно код паскаля что ли раздают? 0