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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.03.2014, 17:02   #1
Илья911
Новичок
Джуниор
 
Регистрация: 14.03.2014
Сообщений: 1
Сообщение Построить блок-схему

Помогите построить блок-схему
Вот условия
ЕСЛИ (D > B) ТОГДА
ДЛЯ i = 1 ДО 3 ВЫПОЛНИТЬ Н.Ц. D=A-C; ДЛЯ j = i ДО 3 ВЫПОЛНИТЬ Н.Ц. A=i+j; B=B+4 К.Ц. A=A-C; К.Ц.;
ДЛЯ i = 2 ДО 4 ВЫПОЛНИТЬ Н.Ц. A=C*B; ДЛЯ j = i ДО 4 ВЫПОЛНИТЬ Н.Ц. C=i+j; D=D+3 К.Ц. C=C+B; К.Ц.; C=(C div B)-7; ИНАЧЕ
ЕСЛИ (A > B) ТОГДА
ДЛЯ i = 4 ДО 5 ВЫПОЛНИТЬ Н.Ц. D=i*A;C=3; ПОКА C<9 ВЫПОЛНИТЬ Н.Ц.C=C+3; D=D*C; К.Ц. B=D-A; К.Ц.; D=(A div B) mod 6; ИНАЧЕ
ДЛЯ i = 39 ДО 40 ВЫПОЛНИТЬ Н.Ц. A=i-D;B=2; ПОКА B<4 ВЫПОЛНИТЬ Н.Ц.B=B+2; A=A mod B; К.Ц. C=A mod D; К.Ц.; A=(C-D)-8; КЕСЛИ A=(C-D) div 7; D=(C+B) div 8; КЕСЛИ
ДЛЯ i = 7 ДО 9 ВЫПОЛНИТЬ Н.Ц. A=D*C; ДЛЯ j = i ДО 9 ВЫПОЛНИТЬ Н.Ц. D=i+j; B=B+4 К.Ц. D=D-C; К.Ц.; D=(A div D)+7; D=(B-A) div 7; ПЕЧАТЬ A, B, C, D
Илья911 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
построить блок схему. димон4ик_ Паскаль, Turbo Pascal, PascalABC.NET 0 24.11.2011 09:11
Построить блок схему Антон) Паскаль, Turbo Pascal, PascalABC.NET 8 21.11.2011 16:52
Построить блок-схему demon9992 Помощь студентам 2 05.04.2011 16:23
Построить блок схему realt Помощь студентам 3 25.05.2010 17:34