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

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

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

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

Ответ
 
Опции темы
Старый 20.05.2020, 08:09   #1
Felonen
 
Регистрация: 13.05.2020
Сообщений: 9
По умолчанию Найти количество слов на букву «А»

Написать программу по блок схеме с помощью операции while и char
Изображения
Тип файла: jpg IMG_20200520_090523.jpg (68.7 Кб, 3 просмотров)
Felonen вне форума Ответить с цитированием
Старый 20.05.2020, 14:57   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,807
По умолчанию

Код:
var a:string;
    k:integer;
begin
   k:=0;
   While true do
   begin
      Write('a := ');
      Readln(a);
      If a[1]='.' then
         Break;
      If a[1]='a' then
         Inc(k);
      If a[1]='A' then
         Inc(k);
   end;
   Writeln('k = ',k);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 20.05.2020, 18:37   #3
Felonen
 
Регистрация: 13.05.2020
Сообщений: 9
По умолчанию

можно без string и inc
Felonen вне форума Ответить с цитированием
Старый 20.05.2020, 19:11   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,613
По умолчанию

Нужен посимвольный ввод, а не Readln, это я понимаю. Что то вроде:
Код:
var c:char;
begin
c:=readkey
А чем Inc так пугает ? Он же не кусается.
Inc (i) - это то же самое, что и i := i+1 ;
Впрочем, ТСу это уже не надо. Ему уже наскрибили.

Последний раз редактировалось digitalis; 21.05.2020 в 10:22.
digitalis вне форума Ответить с цитированием
Старый 22.05.2020, 14:27   #5
CMY_3
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 36
По умолчанию

Код:
  c1 := #32;
  while c<>'.' do begin
    read(c);
    if (c1 = #32) and ((c = 'A') or (c = 'a')) then inc(k);
    c1 := c;
  end;
CMY_3 вне форума Ответить с цитированием
Ответ

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

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти количество слов на букву «А» Felonen Паскаль, Turbo Pascal, PascalABC.NET 7 13.05.2020 22:50
Вводится текст. Конец ввода F1. Определить количество слов, начинающихся на букву K, в которых нечетное количество букв. pomogitemneplz Помощь студентам 0 04.12.2018 14:06
Вводится текст. Конец ввода F1. Определить количество слов, начинающихся на букву K, в которых нечетное количество букв. pomogitemneplz Помощь студентам 2 02.12.2018 22:22
Найти количество слов которые заканчиваются на заданую букву. Си SeRhy Помощь студентам 11 10.01.2011 00:17
Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А" Mashaa Помощь студентам 13 09.12.2009 13:28


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840