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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2014, 01:10   #1
OneP63
Новичок
Джуниор
 
Регистрация: 21.01.2014
Сообщений: 1
По умолчанию Помогите сделать блок-схему по фасту

Код:
var b,k,t:integer;
begin
for b:= 0 to 10 do;
for k:= 0 to 10 do;
for t:= 0 to 10 do;
  if  (20*b+10*t=200) and (b+k+t=100)
then writeln (b,k,t);
end.
Блок-схему пжл.
OneP63 вне форума Ответить с цитированием
Старый 21.01.2014, 01:13   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

1) FCEditor Вам в помощь
2) Программа вряд ли работает так, как Вам бы хотелось (что-то ";" многовато)
3) Даже если ";" станет нужное количество, то при таких диапазонах переменных b+k+t=100 всегда ложно
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ


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

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

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


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