Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

Процедура   Найти похожие ветки 

 
Lokk   (2002-04-26 16:04) [0]

есть программка которая ищет самое длинное слово в строке, но она почему-то выдает ошибук....подскажите пожалуйста, что подправить?


 
Lokk   (2002-04-26 16:05) [1]

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.

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


 
Anatoly Podgoretsky ©   (2002-04-26 16:09) [2]

Не тяни душу, скажи какая ошибка, а то нет никакого желания копировать твой код в редактор


 
Lokk   (2002-04-26 16:14) [3]

Ошибак со стэком................


 
Игорь Шевченко ©   (2002-04-26 16:25) [4]

День добрый, Lokk,

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

С уважением,



Страницы: 1 вся ветка

Текущий архив: 2002.05.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-26091
Lokk
2002-04-26 15:35
2002.05.09
Подскажите пожалуйста


3-26002
anp
2002-04-15 18:00
2002.05.09
Ошибка


7-26275
Dimedrol
2002-02-05 11:02
2002.05.09
Ifra-Red port и Delphi


3-25979
sky3d
2002-04-15 11:34
2002.05.09
Нетривиальный UPDATE


14-26263
IronHawk
2002-04-02 15:39
2002.05.09
Приветствую Мастеров ! Есть вопрос, мне надо сохранять дату из