IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Строки
Pautina
сообщение 17.05.2007 17:27
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Женский
Реальное имя: Nataly

Репутация: -  0  +


Помогите, что-то не получается. Программа должна находить в заданном наборе слово максимальной длины, а выводится длина всех символов
СПАСИБО!


Прикрепленные файлы
Прикрепленный файл  Z5.PAS ( 861 байт ) Кол-во скачиваний: 166
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
nikita182
сообщение 19.05.2007 13:19
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 60
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


я с бодуном сижу)) не стал ошибку искать. мой вариант:


uses crt;

var
 i : integer;
 s : string;
 n : integer;
 max : integer;
 smax : string; 
 
begin
 clrscr;
 writeln ('vvodi'); 
 readln (s);
  n := 0;
  max := 0;
  for i := 1 to length(s) do begin
   if s[i] <> ' ' then
    n := n + 1;
   if (s[i] = ' ') or (i = length(s)) then
    if n > max then begin
     max := n;
     smax := copy (s, i - n, n + 1);
     n := 0;
    end;
  end;
  writeln ('maximalnoe - ', smax);

 readkey;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 18:44
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"