Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 14.05.2020, 13: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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS