![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 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 |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
построить блок схему. | димон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 |