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

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

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

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

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

Вот программа
program sk;
Uses CRT;
var
c1: char;
c: char;
k:integer;
begin;
k:=0;
writeln('введите текст');
c := readkey;
c1:=#32;
while c<>#46 do begin
read (c);
if (c1=#32) and ((c=#1040) or (c=#1072)) then
k:=k+1;
c1:=c;
end;
writeln;
write('количество слов',k);
readln;
end.
Felonen вне форума Ответить с цитированием
Старый 27.05.2020, 10:22   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,613
По умолчанию

Приучайся форматировать текст исходника, хотя бы вот так:
https://programmersforum.ru/showthre...84#post1815384
используй тэги CODE, иначе читать это "полотенце" никому не захочется.
И почитай вот это, мож пригодится:
https://levashove.ru/7-besplatnyh-pr...-v-windows-10/
Хотя для такой алиментарной проги схему нарисовал бы даже кот Мурзик. Почитав хотя бы
https://ru.wikipedia.org/wiki/Блок-схема - становишься уже почти профи в этом деле, а то
"сделайте за меня" воспринимается как "я ленивый и тупой".

Последний раз редактировалось digitalis; 27.05.2020 в 10:28.
digitalis вне форума Ответить с цитированием
Старый 27.05.2020, 15:10   #3
Desc
Форумчанин
 
Аватар для Desc
 
Регистрация: 21.11.2007
Сообщений: 759
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
"сделайте за меня" воспринимается как "я ленивый и тупой".
Нет, не так.
Это называется - ускориться в жизни
Desc вне форума Ответить с цитированием
Старый 27.05.2020, 18:23   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,613
По умолчанию

- Нет бабок.
- Халява, сэр! © из анекдота
digitalis вне форума Ответить с цитированием
Старый 27.05.2020, 20:22   #5
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 14,916
По умолчанию

Построить дом.
Вот проект.
Arigato вне форума Ответить с цитированием
Ответ

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

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как нарисовать блок-схему? Kuk29 Помощь студентам 5 18.09.2019 12:45
Нарисовать блок-схему dimitrijiyul Помощь студентам 1 12.06.2012 14:46
Нарисовать блок схему Camelot_2012 Паскаль, Turbo Pascal, PascalABC.NET 0 04.05.2012 14:24
Нарисовать блок схему PascalABC Помощь студентам 5 29.01.2012 19:12
Нарисовать блок схему izi2000 Помощь студентам 3 12.02.2011 10:44


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