Блок-схема для программы

ZONDO · 22.05.2010, 15:39

Если кто умеет, составьте плиз блок-схему для этой проги:

Цитата:

program binnums;
type IArr=array[0..8] of integer;

function Convert(const digit:integer):IArr;
var s,i:integer;
a:IArr;
b:IArr;
begin
for i:=0 to 8 do
begin
a[i]:=0;
b[i]:=0;
end;
s:=digit;
i:=0;
while s>=1 do
begin
a[i]:=(s mod 2);
s:=(s div 2);
i:=i+1;
end;
for i:=8 downto 0 do
b[8-i]:=a[i];
result:=b;
end;

function CountZ(const a:IArr):integer;
var sum,i:integer;
begin
sum:=0;
for i:=0 to 8 do
if (a[i]=0) then inc(sum);
result:=sum;
end;

procedure GenFile(const name:string;const size:integer);
var f:text;
k,j:integer;
begin
assign(f,name);
rewrite(f);
for j:=0 to size do
writeln(f,Random(20)+1);
close(f);
end;

procedure CountZeros(const name,dest:string);
var s,d:text;
k,j:integer;
begin
assign(s,name);
assign(d,dest);
reset(s);
rewrite(d);
k:=1;
j:=0;
while not eof(s) do
begin
readln(s,j);
writeln(d,k,':',CountZ(Convert(j)));
inc(k);
end;
close(s);
close(d);
end;

var i:integer;
res:IArr;
begin
GenFile('C:\Documents and Settings\student\Мои документы\Nums.txt',20);
CountZeros('C:\Documents and Settings\student\Мои документы\Nums.txt','C:\Documents and Settings\student\Мои документы\Nums1.txt') ;
end.

заранее стасибо, сессия началась

Qiker · 23.05.2010, 16:34

ZONDO, может программа поможет)
http://exfile.ru/102598

ZONDO · 23.05.2010, 22:03

Qiker, уже не разрешает форум повышать репутацию

спасибо,прога помогла, буду сидеть разбираться)

Qiker · 24.05.2010, 11:58

Цитата:

Сообщение от ZONDO

уже не разрешает форум повышать репутацию

в угол администрацию))))

Matricaria · 17.11.2010, 00:03

а эта программа составляет блок-схемы только на программы написанные в паскале? или на С++ тоже составит? и как ее скачать, если по этой ссылке ее уже нет?

спасибо, заранее))

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
intel fw82801db схема	Tomako	Железо	2	03.12.2010 18:50
bad блок	Min_Fin	Железо	2	28.11.2010 18:32
Нужна схема подключения	sosnodub	Неисправности, настройка	9	26.07.2010 15:33
Необходима электрическая схема ИБП	Gneirby45	Периферия	1	18.07.2010 11:45
Нужна схема ad-7203a	onlife	Железо	6	07.05.2010 19:55
Схема ИБП APC BackUps RS500	Гарад	Периферия	4	05.05.2010 15:28
SupremeFX схема подключения кабелей	dingo	Железо	7	03.05.2010 01:24
Нужна схема подключения разъемов USB	скат	Неисправности, настройка	3	12.02.2010 19:33
Блок питания	Stas3ds	Периферия	6	17.07.2009 01:11
блок питания	sviatoslav	Выбор комплектующих	5	11.07.2009 01:19
Почтове программы и программы для просмотра Вэб-страниц	gurd081	Интернет и сети	1	21.03.2009 09:49
Схема по ремонту develop 1531id	Alexsandr	Периферия	0	15.10.2008 17:04

23.05.2010, 16:34	#2 (ссылка)
Qiker Новичок Регистрация: 10.07.2009 Сообщений: 227 Репутация: 17	ZONDO, может программа поможет) http://exfile.ru/102598

23.05.2010, 22:03	#3 (ссылка)
ZONDO Стажёр Регистрация: 16.02.2009 Сообщений: 1,984 Репутация: 129	Qiker, уже не разрешает форум повышать репутацию спасибо,прога помогла, буду сидеть разбираться)

17.11.2010, 00:03	#5 (ссылка)
Matricaria Новичок Регистрация: 17.09.2010 Сообщений: 6 Репутация: 0	а эта программа составляет блок-схемы только на программы написанные в паскале? или на С++ тоже составит? и как ее скачать, если по этой ссылке ее уже нет? спасибо, заранее))

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Ads