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

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

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

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

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

Написать программу без строк и с помощью char
Вводится текст. Конец ввода точка. Найти количество слов на букву «А».
Вот приблизительная программа
Код:
program sk;
USES CRT;
var a:char; k:integer;
begin;
repeat
a:=readkey;
if a=#128 then
k:=k+1
else if a=#160 then
k:=k+1;
write (a);
until a=#46;
write (a);
writeln ('количество слов=',k);
end.

Последний раз редактировалось BDA; 13.05.2020 в 20:04.
Felonen вне форума Ответить с цитированием
Старый 13.05.2020, 20:03   #2
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,541
По умолчанию

Код:
program sk;
USES CRT;
var
  a: char;
  k: integer;
  wb: boolean;
begin;
  wb := True;
  repeat
    a := readkey;
    if ((a = #128) or (a = #160)) and wb then
    begin
      inc(k);
      wb := False;
    end else if a = #32 then
      wb := True
    else
      wb := False;
    write(a);
  until a = #46;
  write(a);
  writeln('Количество слов = ', k);
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 13.05.2020, 21:32   #3
Felonen
 
Регистрация: 13.05.2020
Сообщений: 7
По умолчанию

А можно как нибудь без boolean

Последний раз редактировалось Felonen; 13.05.2020 в 21:34.
Felonen вне форума Ответить с цитированием
Старый 13.05.2020, 22:20   #4
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,541
По умолчанию

Можно изменить тип переменной, но все равно нужно иметь признак начала слова для правильного учёта количества.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 13.05.2020, 22:26   #5
Felonen
 
Регистрация: 13.05.2020
Сообщений: 7
По умолчанию

Я вставляю код но он не работает
Felonen вне форума Ответить с цитированием
Старый 13.05.2020, 22:52   #6
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,541
По умолчанию

Какая среда разработки используется? Какие входные данные? В чем заключается неработоспособность?
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 13.05.2020, 23:35   #7
Felonen
 
Регистрация: 13.05.2020
Сообщений: 7
По умолчанию

Я использую паскальабс, когда вожу слова на букву А пишет количество слов 0
Felonen вне форума Ответить с цитированием
Старый 13.05.2020, 23:50   #8
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,541
По умолчанию

Под рукой есть только PascalABC.NET. Проблема в кодах символов, скорее всего. Попробуйте заменить проверку на:
Код:
if ((a = #1072) or (a = #1040)) and wb then
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ

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

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
количество слов начинающиеся и заканчивающиеся на одну и ту же букву hamaha Помощь студентам 0 10.12.2018 01:52
Вводится текст. Конец ввода F1. Определить количество слов, начинающихся на букву K, в которых нечетное количество букв. pomogitemneplz Помощь студентам 0 04.12.2018 15:06
Вводится текст. Конец ввода F1. Определить количество слов, начинающихся на букву K, в которых нечетное количество букв. pomogitemneplz Помощь студентам 2 02.12.2018 23:22
Найти количество слов которые заканчиваются на заданую букву. Си SeRhy Помощь студентам 11 10.01.2011 01:17
Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А" Mashaa Помощь студентам 13 09.12.2009 14:28


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