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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.01.2014, 18:12   #1
kolbaskin
Новичок
Джуниор
 
Регистрация: 29.12.2013
Сообщений: 2
Печаль помогите сделать блок-схему

помогите сделать блок-схему к данной программе
Код:
uses crt;
const zn=[',','.','!','?','-',' '];
var a:char;
    s:string;
    i,k:integer;
begin
writeln('Введите последовательность символов, в том числе букву b и знаки препинания');
writeln('конец ввода -ESC');
repeat
a:=readkey;
if a<>#27 then
 begin
  write(a);
  s:=s+a;
 end
else writeln
until a=#27;
k:=0;
for i:=1 to length(s) do
if(s[i]='b')and(s[i-1] in zn) then k:=k+1;
write('Количество букв b после знаков препинания=',k);
end.
kolbaskin вне форума Ответить с цитированием
Старый 26.01.2014, 19:38   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

FCEditor Вам в помощь.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите сделать блок-схему по фасту OneP63 Паскаль, Turbo Pascal, PascalABC.NET 1 21.01.2014 01:13
помогите сделать блок-схему winston07 Помощь студентам 1 30.11.2013 11:19
Помогите сделать блок схему! Лёха Паскаль, Turbo Pascal, PascalABC.NET 4 24.01.2011 19:32