памагите с программоми горит

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: памагите с программоми горит

Re: памагите с программоми горит

Лелик_1044 » 13 июн 2007, 11:38

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]
она ж на делфи написана я думал под паскаль ты ее сам переделаешь

Re: памагите с программоми горит

wewe » 13 июн 2007, 11:23

слушай я её запускаю она на процедуру ругается
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]

Re: памагите с программоми горит

Лелик_1044 » 13 июн 2007, 10:31

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

а вот первое у меня так
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;

памагите с программоми горит

wewe » 12 июн 2007, 18:21

Памагите завтра экзамен а я не пайму как написать программу чтоб пахала напишите полностью её ,буду благодарен.
дан символ 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;
а памагите написать программу
нарисовать элипс через граф таже сетуация я проста в програмирование дуб дубам а у нас последний симестор она.

Вернуться к началу