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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.05.2020, 12:17   #1
MaidDragon
 
Регистрация: 14.05.2020
Сообщений: 8
По умолчанию Исправить код

Код:
program lab81;
var
  s: string;
  ch: char;
  f: text;
  i, k: integer;
 
begin
  write('Введите букву: ');
  readln(ch);
  k := 0;
  assign(f,'D:\PascalABC.NET\Files\text.txt');
  reset(f);
  while not eof(f) do 
  begin
    readln(f, s);
    for i := 1 to length(s) do 
      if ((s[i] = ch) and (i = 1)) or ((s[i] = ch) and (s[i - 1] = ' ')) then 
        k := k + 1;
  end;
  close(f);
  writeln('Кол-во слов: ', k, ' начинающихся с буквы ', ch);
end.
Изменить цикл так , чтобы использовались процедуры\функции Copy, Pos и Delete
И дописать код ,чтобы выводило помимо кол-ва слов сами слова
MaidDragon вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправить код на С++ petz96 Помощь студентам 4 24.05.2015 13:27
Исправить код си# Мадлен Помощь студентам 0 23.05.2015 20:58
исправить 92Edik Помощь студентам 3 24.05.2011 16:20
исправить delfin07 Помощь студентам 0 20.05.2011 17:48
исправить код seed92 Помощь студентам 0 21.02.2011 16:02