Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2018, 19:55   #1
pomogitemneplz
 
Регистрация: 02.12.2018
Сообщений: 8
По умолчанию [Pascal] НЕ работает программа

Вводится текст. Конец ввода F1.Вывести все слова, где больше двух букв "о". Подсчитать кол-во этих слов.
Код:
uses crt;
type a=array[1..10] of string;
var st:a;ch:char;
k,t,i:integer;
begin
  t:=0;i:=1;
  repeat
  ch:=readkey;
  while(ch=#0)=false do begin
    if(ch=' ')=false then begin
      if(ch='o') then t:=t+1;
      st[i]:=st[i]+ch;
    end
    else if(t>2) then begin
    k:=k+1;
    writeln(st[i]);
    end;
   
    t:=0;
  end;
  ch:=readkey;
  until(ch=#112)=true;
  writeln(k);
  end.
pomogitemneplz вне форума Ответить с цитированием
Старый 18.12.2018, 09:05   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Код:
    while(ch=#0)=false do begin
        ...      
        if(ch='o') then t:=t+1; // посчитали нашу букву
        ...    
        t:=0; // и тут же ЗАБЫЛИ что она была
        ...
    end;
Код:
  repeat
    ch:=readkey; // прочитали символ
    ...  // "проанализировали" 
    ch:=readkey; // прочитали, а анализировать-то ???
  until (ch=#112)=true;
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 18.12.2018 в 09:10.
evg_m вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Pascal] Работа с циклами. Программа не работает., что бы я не делал(а) Ikaros Помощь студентам 9 23.11.2017 18:30
[Pascal] типы данных,не работает программа MachineMan Паскаль, Turbo Pascal, PascalABC.NET 2 14.07.2017 10:15
Не работает программа Pascal ABC(функция) kseenq Помощь студентам 2 05.12.2014 02:54
Работа со строками(Pascal)(не работает программа) mxax Помощь студентам 1 29.12.2011 18:25
Pascal нахождение детерминанты методом гауса Программа не работает( Студент13 Помощь студентам 1 19.04.2011 20:17