Форум: "Основная";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];

Вниз

помогите кто может, не допущен к зачету(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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.01 c