Строки, слова....

[eragon_ua]

Ребята, помогите с этими заданиями... Не могу разобраться...

1.В заданной символьной строке, которая заканчивается точкой, определить длину самого короткого и самого длинного слов.

2. Если длина слова больше 8 символов, то сформировать из него два слова: в одно записать последние 8 символов, а в другое - остальные, дополняя его до 8 символов знаками "%".

[unbanned]

2.

var
  s, s1, s2: string;

begin
  readln(s);
  if length(s) > 8 then begin
    s1 := copy(s, length(s) - 7, 8);
    delete(s, length(s) - 7, 8);
    while length(s) <> 8 do
      s := s + '%';
    s2 := s;
    writeln(s1);
    writeln(s2);
  end
  else writeln('мньше 8 символов');
end.

[kangreon]

1. В коде небольшой комментарий

var
  Text: string;
  min, max, p: integer;
  change: boolean;
begin
  // Наше предложение
  Text := 'Строка с текстом.';

  // Заменяем последнюю точку на пробел
  text[Length(text)] := ' ';
  
  min := length(text);
  max := 0;

  {
    Находим все слова (пробелы)
  }
  while Pos(' ', Text) <> 0 do
  begin
    p := Pos(' ', Text) -1;
    if p < min then
       min := p;
    if p > max then
      max := p;
    Delete(Text, 1, p+1);
  end;
  
  WriteLn('Минимальное: ',min);
  WriteLn('Максимальное: ',max);
end.

[eragon_ua]

Спасибо. Буду разбираться....

[eragon_ua]

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

1. В коде небольшой комментарий

var
  Text: string;
  min, max, p: integer;
  change: boolean;
begin
  // Наше предложение
  Text := 'Строка с текстом.';

  // Заменяем последнюю точку на пробел
  text[Length(text)] := ' ';
  
  min := length(text);
  max := 0;

  {
    Находим все слова (пробелы)
  }
  while Pos(' ', Text) <> 0 do
  begin
    p := Pos(' ', Text) -1;
    if p < min then
       min := p;
    if p > max then
      max := p;
    Delete(Text, 1, p+1);
  end;
  
  WriteLn('Минимальное: ',min);
  WriteLn('Максимальное: ',max);
end.

Только программка у меня не работает....=(

[eragon_ua]

Ребята..... ау..

[Летучий_СкилетиК]

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

Только программка у меня не работает....=(

Что там может не работать
код благополучно компилируется, программа выполняет поставленную задачу. Возможно у вас компилятор нерабочий.(проверьте)

[eragon_ua]

Program lab;
var
  Text: string;
  min, max, p: integer;
  change: boolean;
begin

  Text := 'Stroka s textom.';


  text[Length(text)] := ' ';

  min := length(text);
  max := 0;


  while Pos(' ', Text) <> 0 do
  begin
    p := Pos(' ', Text) -1;
    if p < min then
       min := p;
    if p > max then
      max := p;
    Delete(Text, 1, p+1);
  end;

  WriteLn('Minimalnoe: ',min);
  WriteLn('Maximalnoe: ',max);
end.

Мне пишет :

Максимальное : 6
Минимальное : 1

P.S. Если это что-то у меня с руками, то строго не судите и не ругайте... Я новичок в этом деле.. =)

[phomm]

*wall*
s t r o k a
1 2 3 4 5 6
s
1
t e x t o m
1 2 3 4 5 6

может ты не так считаешь, конечно, но у меня счет сводится к тому, что слово с максимальным количеством букв имеет 6 символов, а с минимальным - 1 , ну хотя тебе это, наверное, ничего не говорит... у тебя же программка не работает

[Serge_Bliznykov]

'Stroka s textom.'

Максимальное : 6
Минимальное : 1

ну правильно.
слово максимальной длины 6 букв. (Stroka)
слово минимальной длины - 1 буква (s)


ДОБАВЛЕНО
сорри, когда писал, ещё ответ phomm не видел.. Поэтому повторил (по сути) его сообщение!