Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Строковые переменные

Автор: golden 18.11.2006, 21:48

Задача:
Дана строка символов.Определить количество слов, начинающихся с буквы "а",вывести на печать самое длинное слово, начинающееся с буквы "а".

Заранее благодарю.

Автор: Denic 18.11.2006, 23:30

Смотреть стоит ли "а" перед пробелом, и заносить в переменную слово до следующего пробела, если найденно более длинное слово - заменять.

Автор: golden 19.11.2006, 08:17

Cама программа интересует.Помогите!

Автор: likehood 19.11.2006, 12:47

Цитата(golden @ 19.11.2006, 09:17

)

Cама программа интересует.Помогите!

помогаю

Код


{$APPTYPE CONSOLE}
uses SysUtils;
var
   s, substr: array [0..200] of char;
   len, maxLen, N: integer;
   p, p0: PChar;
begin
   writeln('Enter string');
   readln(s);
   p:=s;
   maxLen:=0; N:=0;
   while p <> StrEnd(s) do begin
      while p^ = ' ' do inc(p);
      if p^ <> 'a' then begin
         p := StrScan(p, ' ');
         if p = nil then break;
      end else begin
         len:=0;
         inc(N);
         p0:=p;
         repeat
            inc(len); inc(p);
         until (p = StrEnd(s)) or (p^ = ' ');
         if len > maxLen then begin
            maxLen:=len;
            StrMove(substr, p0, p-p0);
         end;
      end;
   end;
   writeln('max len = ', maxLen, '; N = ', N);
   writeln('max string: ', substr);
end.

Автор: golden 19.11.2006, 14:33

програмка не идёт выдаёт ошибку №85 вот в этом месте: uses Strings;

Автор: likehood 19.11.2006, 17:06

прогу я писал в турбо паскале, для Делфи замени uses Strings на uses SysUtils.

Автор: golden 20.11.2006, 15:10

Программа не идёт ошибка таже самая!!!

Автор: Romikgy 20.11.2006, 17:21

дык на паскале или на дельфи надо ?

Автор: Alexeis 20.11.2006, 17:35

Ребята, если просят на паскале давайте уж на паскале. Модуль SysUtils; отсутствует в TP, нет даже его аналога, потому StrMove - рекомендую заменить на Move, а StrEnd на length
PChar на String;

Автор: volvo877 20.11.2006, 17:38

Цитата(alexeis1 @ 20.11.2006, 16:35

)

Модуль SysUtils; отсутствует в TP, нет даже его аналога

А Strings на что придумали? smile

Кстати, обеспечивает полную поддержку PChar...

Автор: Alexeis 20.11.2006, 17:47

Цитата(volvo877 @ 20.11.2006, 17:38

)

А Strings на что придумали?

Ой не знал. Извините. smile

Автор: golden 23.11.2006, 08:34

РЕБЯТА Я ПРОСИЛ НА ПАСКАЛЕ ПРОГА НЕ ИДЁТ...
ПОЖАЛУЙСТО ПОМОГИТЕ,КАКИЕ-ТО МОДУЛИ Я ИХ ДАЖЕ НЕ ЗНАЮ...!!!

Добавлено @ 08:37
2volvo877\Исправь ошибки где надо в программе.ПОЖАЛУЙСТО!

Автор: volvo877 23.11.2006, 09:34

Цитата(golden @ 23.11.2006, 07:34

)

Исправь ошибки где надо в программе

Да нету там никаких ошибок... В поставке TP идет модуль Strings, если у тебя его нет - значит порезали дистрибутив. Ищи тот, где модуль присутствует...

Вот... Программа запускается, работает и выдает результат:

Автор: golden 23.11.2006, 15:55

2volvo877\Подскажи пожалуйсто где можно скачать самую полную версию Turbo Pascal?