Показать сообщение отдельно
Старый 12.03.2007, 09:18   #65
 
Аватар для Overlord
 
Статус: Старейшина
Регистрация: 27.03.2005
Адрес: Великая и могучая
Сообщений: 732
СПАСИБО: 49
сказали Спасибо 293 раз(а) в 169 сообщении
Получено наград:
По умолчанию Re: Решебник (turbo pascal, Delphi)

Цитата:
Сообщение от БилГейтс Посмотреть сообщение
Overlord, я первую задачу сделал. проверь пожалуйста.

Хорошо что решил поделиться своими наработками.

в третьем задании, нужно ведь проверить каждую букву, а не хотя бы одну.
поэтому надо так
Код:
  
    //предположим что слово состоит только из парных z=1  
    z:=1;
    for i:=1 to length(slovo) do
      begin
        k:=0;
        for j:=1 to length(slovo) do
          if (slovo[i]=slovo[j]) and (i<>j) then k:=k+1;


        {вот это условие сработает только если попадется 
        буква которая встречается один раз
        это сразу определяет что слово состоит не только из парных}
        if k=0 then z:=0;
      end;
я вижу ты не плохо разобрался с поиском слов в предложении и тебе похоже нравится информатика. у меня к тебе деловое предложение, если есть желание опиши алгоритм перебора слов в строке вот в этой теме [Ссылки могут видеть только зарегистрированные пользователи. ] кроме пробелов слова могут разделять и такие знаки ",.:;?! если что я помогу. Поможешь развивать раздел, там глядишь и вести его сможешь.
Вобщем пиши зинтересовал я тебя или нет?


[Ссылки могут видеть только зарегистрированные пользователи. ]
Overlord вне форума   ЦИТИРОВАТЬ
Этот пользователь сказал Спасибо Overlord за это полезное сообщение: