Developing.ru

Памагите завтра экзамен а я не пайму как написать программу чтоб пахала напишите полностью её ,буду благодарен.
дан символ C и строки S, S0. перед каждым вхождением символа C в строку S вставить строку S0.
program 121;
var
s:integer;
begin
iCurrSymbNum := Length (S);
while (iCurrSymbNum > 0) do
begin
if (S [iCurrSymbNum] = C) then
Insert (S0, S, iCurrSymbNum);
Dec (iCurrSymbNum);
end;
а памагите написать программу
нарисовать элипс через граф таже сетуация я проста в програмирование дуб дубам а у нас последний симестор она.

втрое я не понял нехрена

а вот первое у меня так
procedure TForm1.Button1Click(Sender: TObject);
var temp, bigst, pstst, smst:string;
i:integer;
begin
bigst:=edit3.Text; //строка где ищется
pstst:=edit2.Text; //строка вставляется
smst:=edit1.Text; //стро поиска
temp:=''; //временная строка
i:=pos(smst,bigst);
while i>0 do begin
temp:=temp+copy(bigst,1,i-1)+pstst+copy(bigst,i,1);
delete(bigst,1,i);
i:=pos(smst,bigst);
end;
edit4.texT:=temp; //содержит готовую строку
end;

слушай я её запускаю она на процедуру ругается
procedure TForm1.Button1Click(Sender: TObject);
var
temp, bigst, pstst, smst:string;
i:integer;
begin
bigst:=edit3.Text; //строка где ищется
pstst:=edit2.Text; //строка вставляется
smst:=edit1.Text; //стро поиска
temp:=''; //временная строка
i:=pos(smst,bigst);
while i>0 do begin
temp:=temp+copy(bigst,1,i-1)+pstst+copy(bigst,i,1);
delete(bigst,1,i);
i:=pos(smst,bigst);
end;
edit4.texT:=temp; //содержит готовую строку
end;[/QUOTE]

wewe писал(а):слушай я её запускаю она на процедуру ругается
procedure TForm1.Button1Click(Sender: TObject);
var
temp, bigst, pstst, smst:string;
i:integer;
begin
bigst:=edit3.Text; //строка где ищется
pstst:=edit2.Text; //строка вставляется
smst:=edit1.Text; //стро поиска
temp:=''; //временная строка
i:=pos(smst,bigst);
while i>0 do begin
temp:=temp+copy(bigst,1,i-1)+pstst+copy(bigst,i,1);
delete(bigst,1,i);
i:=pos(smst,bigst);
end;
edit4.texT:=temp; //содержит готовую строку
end;

[/QUOTE]
она ж на делфи написана я думал под паскаль ты ее сам переделаешь