|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.05.2011, 14:10 | #1 |
Регистрация: 12.05.2011
Сообщений: 5
|
Как построить блок-схему к программе
Пожалуйста помогите построить блок-схему к программе. Никак не получается
Program massiv; Uses crt; const n=14; var z:array[1..n] of integer; i,j,k:byte; x:integer; begin clrscr; randomize; writeln('ishodnyi massiv:'); for i:=1 to n do begin z[i]:=random(51)-14; write(z[i]:4); end; writeln; writeln; k:=0; for i:=1 to n do if z[i] >= 0 then begin k:=k+1; x:=z[i]; for j:=i downto k+1 do z[j]:=z[j-1];{на 1} z[k]:=x; end; writeln('vyhodnoi massiv:'); for i:=1 to n do write(z[i]:4); readkey end. Последний раз редактировалось lelik_bolik; 12.05.2011 в 14:14. Причина: допустил ошибку |
12.05.2011, 14:25 | #2 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
|
14.05.2011, 00:16 | #3 |
Пользователь
Регистрация: 07.05.2011
Сообщений: 49
|
Легко
Очень же легко написать по программе блок-схему
464-658-622-обращайся)) |
14.05.2011, 14:21 | #4 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Вот схема ваша
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построить блок - схему | katyuha_e | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 06.05.2012 21:51 |
Построить блок-схему | demon9992 | Помощь студентам | 2 | 05.04.2011 16:23 |
Как составить блок-схему по программе???? | Tomny | Помощь студентам | 5 | 05.03.2011 22:38 |
Построить блок схему | realt | Помощь студентам | 3 | 25.05.2010 17:34 |