| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

kosmos ©   (2003-01-29 01:47:00) 

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

---

Delirium^.Tremens   (2003-01-29 09:50:00) [1]

MBo © (29.01.03 09:40)
Наталия © (29.01.03 09:43)
:-)
У нас против таких разработаны тесты. Валим на-раз и до свидания.

---

Наталия   (2003-01-29 09:43:00) [2]

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

---

MBo   (2003-01-29 09:40:00) [3]

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

---

Delirium^.Tremens   (2003-01-29 09:34:00) [4]

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

---

MBo   (2003-01-29 08:16:00) [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;

---

Palladin   (2003-01-29 07:46:00) [6]

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

---

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

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

---

BoB   (2003-01-29 05:43:00) [8]

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

---

Pat   (2003-01-29 01:51:00) [9]

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

---

Наверх