строки в паскале

[repchic]

пожалуйста сделайте,кто может след. задачу на паскале:Дана строка символов.
Найти в тексте самое длинное слово и вывести это слово на монитор в обратном порядке.

[Leshii]

Значит вот тебе нахождение длинного слова, а ниже возможность его перевернуть.

uses crt;
var 
    i, n, l, max, k, j: longint;
    a, b, s:string;
    c:char;
    s1:array[1..60]of string;
    s2:array[1..60]of longint;
 begin
  clrscr;
   write('Vvedite stroky s: ');
   readln(a);
   l:=length(a)+1;a[l]:=' ';
   for i:=1 to l do
    if a[i]=' ' then begin
       inc(j);s1
       [j]:=b;
       s2[j]:=length(b);
       b:=' ';
       end
    else b:=b+a[i];
   max:=s2[1]; k:=1;
   for i:=1 to j do begin
     if max<s2[i] then begin 
        max:=s2[i];k:=i; 
     end;
    end;
   writeln('samoe dlinnoe: ',s1[k]);

  readln;
end.

-------------
n:=length(s) div 2;
for i:=1 to n do begin
    c:=s[i];
    s[i]:= s[length(s)-i+1];
    s[length(s)-i+1]:=c;
end;
writeln(s);
--------------

[TinMan]

Лешак, зачем тебе массив строк и длинных (!) целых для такой простой задачи?

  readln(s);
  i:= 1;
  w:= '';
  x:= '';
  while i<Length(s) do begin
    if s in ['A'..'Z']+['a'..'z'] then w:= w+s[i]
    else begin
      if Length(w)>Length(x) then x:=w;
      w:= ''
    end
  end;
  if Length(w)>Length(x) then x:=w;

А для того, чтобы слово _вывести_на_монитор_ в обратном порядке, совсем не нужно его реально переворачивать..

for i:=Length(x) downto 1 do write(x[i]);

И еще - трюк с прибавлением к строке пробела кажется поначалу даже изящным, но только до тех пор, когда у тебя один из тестов на олимпиаде не пройдет по длине строки.. Так что старайся избегать (если, конечно, это обычные турбо-паскалевские строки, ограниченные по длине).

[Leshii]

Я уже замасивился. Нынче даже своим одни сплошные массивы делаю.

Да вот, беда. Уже после понял, что ну совсем жуть написал. Жуть всмысле с циклом.
for ...:= () downto () do ( а ведь серьёзно, уже в простых задачах скрытый смысл ищу ). Так пора отвлечься.

Касательно олимпиад всегда думаю что завалю или же не готов. Да и как-то всё впопыхах происходит ( ну вот скажем купил книгу по делфи, а время почитать нахожу только на парах ). Ведь серьёзно то программированием занялся меньше года назад. Да и не вундеркинд я. ( как там в той старой детской сказке: "я ещё не волшебник, но только учусь " ). Так что обучения у меня происходит скачками ( хоть и учусь на педагога ). Ну это так из аля жалкие жалобы студента

И насколько понял у многих это изучение занимает порой целую жизнь.

[TinMan]

Сообщение от Leshii

Да вот, беда.

Все Okay )). Я имел в виду совершенно конкретные вещи касательно конкретного года. Не заморачивайся, если хочешь потрепаться - пиши в личку.

[repchic]

Благодарю Leshii

Leshii что-то слово не переворачивается, помоги пожалуйста

Благодарю TinMan

[repchic]

Сообщение от Leshii

Значит вот тебе нахождение длинного слова, а ниже возможность его перевернуть.

uses crt;
var 
    i, n, l, max, k, j: longint;
    a, b, s:string;
    c:char;
    s1:array[1..60]of string;
    s2:array[1..60]of longint;
 begin
  clrscr;
   write('Vvedite stroky s: ');
   readln(a);
   l:=length(a)+1;a[l]:=' ';
   for i:=1 to l do
    if a[i]=' ' then begin
       inc(j);s1
       [j]:=b;
       s2[j]:=length(b);
       b:=' ';
       end
    else b:=b+a[i];
   max:=s2[1]; k:=1;
   for i:=1 to j do begin
     if max<s2[i] then begin 
        max:=s2[i];k:=i; 
     end;
    end;
   writeln('samoe dlinnoe: ',s1[k]);

  readln;
end.

-------------
n:=length(s) div 2;
for i:=1 to n do begin
    c:=s[i];
    s[i]:= s[length(s)-i+1];
    s[length(s)-i+1]:=c;
end;
writeln(s);
--------------

Leshii что-то слово не переворачивается