помогите кто может, не допущен к зачету(1-ый курс)

← →
kosmos (2003-01-29 01:47) [0]

Даны две строки, найти их наибольшую подстроку.

← →
Pat © (2003-01-29 01:51) [1]

Зачет по какому предмету? По русскому языку? Научись объяснять, что тебе надо...
повтори еще раз, для тех, кто в Таньке... :-)) только, чтобы на этот раз все поняли, что тебе надо..

← →
BoB (2003-01-29 05:43) [2]

А ты, случаем, не из Искитима. Что-то я задание такое недавно видел. И вообще откуда ты если не секрет?

← →
Так мимо проходил (2003-01-29 07:05) [3]

if length(s1) > length(s2) then ShowMessage(s1+" > "+s2) else
if length(s1)< length(s2) then ShowMessage(s1+" < "+s2) else
ShowMessage(s1+" = "+s2);

← →
Palladin © (2003-01-29 07:46) [4]

мда...
тут есть за что недопустить...

← →
MBo © (2003-01-29 08:16) [5]

Наверное, тупейший из возможных алгоритмов ;))
Но для учебной задачи сойдет
procedure TForm1.Button1Click(Sender: TObject); var s1,s2,subs,smax:string; i,j,nmax,l1,l2:integer; begin nmax:=0; s1:="123abc45sdfg67"; s2:="a12bc5sdfg675te"; l1:=Length(s1); l2:=Length(s2); for i:=1 to l1 do for j:=1 to Min(l1-i+1,l2) do begin subs:=Copy(s1,i,j); if Pos(subs,s2)>0 then if j>nmax then begin nmax:=j; smax:=subs; end; end; caption:=inttostr(nmax)+" "+smax; end;

← →
Delirium^.Tremens © (2003-01-29 09:34) [6]

>>MBo © (29.01.03 08:16)
Через пять лет ЭТО придет в контору и скажет, что ОНО дипломированный программист.
Молись чтобы не в твою :-)

>Delirium^.Tremens
и :((( и ;)

Delirium^.Tremens © (29.01.03 09:34)
А я однажды на форум зубных врачей случайно попала - там тоже вопросы задают подобного уровня. Теперь молюсь, чтобы к такому "специалисту" не попасть...

помогите кто может, не допущен к зачету(1-ый курс) Найти похожие ветки