|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.04.2012, 14:08 | #1 |
Новичок
Джуниор
Регистрация: 04.04.2012
Сообщений: 2
|
Блок-схема...
Нужно составить блок-схему к этому алгоритму,а я в этом полный дуб.
uses crt; const max=100; var a:array[1..max] of integer; n,i,j,k:byte; p:longint; begin clrscr; randomize; repeat write('Размер массива n='); readln(n); until n in [1..max]; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(10)-4; write(a[i],' '); end; writeln; writeln; p:=1; for i:=1 to n do if a[i]<>0 then begin k:=0; for j:=1 to n do if (a[i]=a[j])and(i<>j) then k:=1; if k=0 then p:=p*a[i]; end; writeln('Произведение ненулевых элементов, встречающихся 1 раз=',p); readln end. |
04.04.2012, 16:03 | #2 |
Форумчанин
Регистрация: 28.12.2011
Сообщений: 124
|
Если лень не даёт возможности составить её самому, можно хотя бы погуглить и найти способ как схалявить:
вот как раз один из способов Однако составление блоксхем полезно, оно даёт возможность лучше понимать работу программы и циклов внутри неё.
"Думай не о задаче, а о решении" (с)
|
04.04.2012, 16:44 | #3 |
Новичок
Джуниор
Регистрация: 04.04.2012
Сообщений: 2
|
спасибо за помощь.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
блок схема | levis200 | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 23.07.2011 08:40 |
Схема алгоримта (блок схема) на задачу по Паскалю | LINCHAK | Помощь студентам | 0 | 22.10.2010 16:56 |
блок-схема | dange | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.04.2010 10:05 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |