[ Kupushich @ 29.06.2006. 18:23 ] @
1.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var b:array[0..9] of integer;
i,j,k,bz:integer;
dat:text;

function binpot(q:integer):integer;
var p,l:integer;
begin
p:=1;
for l:=1 to q do
p:=p*2;
binpot:=p
end;


begin
assign(dat,'c:\primjer.txt');
rewrite(dat);
writeln('Koliko znamenki');
readln(bz);
bz:=bz-1;
for i:=0 to bz do
b:=0;
for j:=1 to binpot(bz+1) do
begin
for i:=bz downto 0 do
write(dat, b);
writeln(dat,' ');
if b[0]=0 then
b[0]:=1
else
begin
k:=0;
repeat
b[k]:=0;
k:=k+1;
until (b[k]=0) or (k=bz);
b[k]:=1
end;
end;
readln;
close(dat);
end.


2.

program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var b:array[0..9] of integer;
elementi:array[0..9] of string[10];
i,j,k,bz:integer;
dat:text;

function binpot(q:integer):integer;
var p,l:integer;
begin
p:=1;
for l:=1 to q do
p:=p*2;
binpot:=p
end;


begin
assign(dat,'c:\primjer.txt');
rewrite(dat);
writeln('Koliko elemenata');
readln(bz);
bz:=bz-1;
for i:=0 to bz do
begin
writeln('Unesi ',i+1,'. element skupa');
readln(elementi);
end;
for i:=0 to bz do
b:=0;
for j:=1 to binpot(bz+1) do
begin
for i:=bz downto 0 do
if b=1 then write(dat, elementi,' ');
writeln(dat,' ');
if b[0]=0 then
b[0]:=1
else
begin
k:=0;
repeat
b[k]:=0;
k:=k+1;
until (b[k]=0) or (k=bz);
b[k]:=1
end;
end;
readln;
close(dat);
end.
[ ivanho @ 29.06.2006. 18:57 ] @

Kompajler ti izbacuje sta je problem:

Citat:

[Error] Project2.dpr(29): Incompatible types: 'Array' and 'Integer'


Code:

for i:=0 to bz do
  b:=0;


treba da zemenis sa:

Code:

for i:=0 to bz do
  b[i]:=0;


sve greske su ti ovog tipa.
Znaci moras da naznacis kojem elementu niza dodeljujes vrednost, odnosno vrednost kojeg elementa niza zelis da upotrebis.
[ Whois @ 29.06.2006. 19:02 ] @
ma nije to zbog toga, nije stavio program izmedju [ code] i [ /code] pa je forum sve [ i] shvatio kao italik. Stavi program u code tagove pa da vidimo
[ Kupushich @ 29.06.2006. 20:05 ] @
1.

Code:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var b:array[0..9] of integer;
    elementi:array[0..9] of string[10];
    i,j,k,bz:integer;
    dat:text;

function binpot(q:integer):integer;
 var p,l:integer;
  begin
   p:=1;
    for l:=1 to q do
     p:=p*2;
   binpot:=p
  end;


begin
  assign(dat,'c:\primjer.txt');
  rewrite(dat);
  writeln('Koliko elemenata');
  readln(bz);
  bz:=bz-1;
  for i:=0 to bz do
   begin
    writeln('Unesi ',i+1,'. element skupa');
    readln(elementi[i]);
   end;
  for i:=0 to bz do
   b[i]:=0;
  for j:=1 to binpot(bz+1) do
   begin
    for i:=bz downto 0 do
     if b[i]=1 then write(dat, elementi[i],' ');
     writeln(dat,' ');
      if b[0]=0 then
       b[0]:=1
        else
         begin
          k:=0;
           repeat
             b[k]:=0;
             k:=k+1;
           until (b[k]=0) or (k=bz);
           b[k]:=1
         end;
   end;
 readln;
 close(dat);
end.



2.

Code:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var b:array[0..9] of integer;
    i,j,k,bz:integer;
    dat:text;

function binpot(q:integer):integer;
 var p,l:integer;
  begin
   p:=1;
    for l:=1 to q do
     p:=p*2;
   binpot:=p
  end;


begin
  assign(dat,'c:\primjer.txt');
  rewrite(dat);
  writeln('Koliko znamenki');
  readln(bz);
  bz:=bz-1;
  for i:=0 to bz do
   b[i]:=0;
  for j:=1 to binpot(bz+1) do
   begin
    for i:=bz downto 0 do
     write(dat, b[i]);
     writeln(dat,' ');
      if b[0]=0 then
       b[0]:=1
        else
         begin
          k:=0;
           repeat
             b[k]:=0;
             k:=k+1;
           until (b[k]=0) or (k=bz);
           b[k]:=1
         end;
   end;
 readln;
 close(dat);
end.
[ Whois @ 30.06.2006. 00:04 ] @
he he

najbolje je da ti das zadatak posto je estetika na 0 (nuli) a i ona for petlja ne moze da ti radi sa funkcijom. Ovo mi sve mirise na prepisivanje iz sveske....
[ Kupushich @ 30.06.2006. 08:13 ] @
Tu ni ne mora bit nikakve estetike jer su mi to zadaci za ispit i glavno je da on funkcionira.... prvi zadatak su podskupovi, zadatak ide otprilike: ispiši sve tročlane i četveročlane kombinacije podskupova skupova a, b, c, d
a 2. je pretvorba binarni-dekadski
[ Whois @ 30.06.2006. 08:42 ] @
Dobro.. evo ti onda 2.zadatak. Pretvaranje bin u integer:

Code:

var br: String; function BinToInt(Value: String): Integer;var 
i, iValueSize: Integer;begin  Result := 0; iValueSize := Length(Value); for i := iValueSize downto 1 do 
if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i)); end;begin 
wrireln('unesi binarni broj '); readln(br);writeln('Dekadno:', bintoint(br));end.