Текущий архив: 2003.02.06;
Скачать: CL | DM;
Вниз
помогите кто может, не допущен к зачету(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)
Через пять лет ЭТО придет в контору и скажет, что ОНО дипломированный программист.
Молись чтобы не в твою :-)
← →
MBo (2003-01-29 09:40) [7]>Delirium^.Tremens
и :((( и ;)
← →
Наталия (2003-01-29 09:43) [8]Delirium^.Tremens © (29.01.03 09:34)
А я однажды на форум зубных врачей случайно попала - там тоже вопросы задают подобного уровня. Теперь молюсь, чтобы к такому "специалисту" не попасть...
← →
Delirium^.Tremens (2003-01-29 09:50) [9]MBo © (29.01.03 09:40)
Наталия © (29.01.03 09:43)
:-)
У нас против таких разработаны тесты. Валим на-раз и до свидания.
Страницы: 1 вся ветка
Текущий архив: 2003.02.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
