VPF::Составление блок-схемы - Форум программистов

kitaynik88

Дата 22.3.2007, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.3.2007

Репутация: нет
Всего: нет

Доброе время суток, уважаемые специалисты.
Имеется работающая программа, для нее нужно создать блок-схему.
Не подскажите как/с чего начать?

Код


program videosalon;
var s,ns,ms :array [0..1000] of longint;
a,m : array [1..100] of integer;
i,j,N,L,K,ka,jk,jb,g,pk,ks,ix : longint;
procedure Sort;
var  max : longint;
begin for i:= 1 to N-1 do
begin
 max:=a[i];
 k:=i;
 for j:=i+1 to N do
if a[j]>max
 then begin max:=a[j]; k:=j end;
a[k]:=a[i]; a[i]:=max;
end;
end;
function max(a,b:longint):longint;
begin
if a>b then max:=a else max:=b
end;
begin
assign(input, 'input3.txt'); reset(input);
assign (output, 'output3.txt'); rewrite (output);
read(L);
read(N);
for i:=1 to N do read(a[i]);
 Sort;    s[0]:=1;  ns[0]:=0;
 for i:=1 to N do
for j:=L-a[i] downto 0 do
if (s[j]<>0) and (j+a[i]<=L)
then
begin
s[j+a[i]]:=1;
ns[j+a[i]]:=ns[j+a[i]]+max(1,ns[j]);
ns[j]:=0;
ms[j]:=1;
end;
K:=0; J:=L;
while (ms[j] =0) do
begin K:=K+ns[j]; dec(j) end;
writeln(K);
close(input); close(output);
 end.

Rodman

Дата 22.3.2007, 12:09 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

прочти

и в WORD есть уже элементы блок-схемы...

ваяй..

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

kitaynik88

Дата 23.3.2007, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.3.2007

Репутация: нет
Всего: нет

Rodman,
Благодарю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »