Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Процедура

Lokk © (2002-04-26 16:04:00)
есть программка которая ищет самое длинное слово в строке, но она почему-то выдает ошибук....подскажите пожалуйста, что подправить?

Игорь Шевченко (2002-04-26 16:25:00) [1]
День добрый, Lokk,

Я бы посоветовал в начале присваивать всем элементам массива
пустую строку.

С уважением,

Lokk (2002-04-26 16:14:00) [2]
Ошибак со стэком................

Anatoly Podgoretsky (2002-04-26 16:09:00) [3]
Не тяни душу, скажи какая ошибка, а то нет никакого желания копировать твой код в редактор

Lokk (2002-04-26 16:05:00) [4]
Var s1,s2,sl1,sl2:string;
procedure findmax(s:string; var maxs:string);
var i,k,max:integer; a:array[1..100] of string;
begin
k:=1;
for i:=1 to length(s) do
if s[i]=" " then k:=k+1 else a[k]:=a[k]+s[i];
max:=length(a[1]);
for i:=1 to k do
if length(a[i])>=max then begin max:=length(a[i]); maxs:=a[i]; end;
end;
Begin
writeln("Введите строку");
readln(s1);
findmax(s1,sl1); writeln(sl1);
readln(s2);
findmax(s2,sl2); writeln(sl2);
end.

Сорри, забыл код:)теперь он тут

Наверх

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