[es] - Molim vas pomoć, zašto mi ovo ne radi???

Kupushich
Martina Prgomet

Član broj: 97582
Poruke: 5
*.adsl.net.t-com.hr.

Profil

Molim vas pomoć, zašto mi ovo ne radi???

^{29.06.2006. u 18:23 - pre 216 meseci}

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.
Kupushich

Odgovor na temu

ivanho
slobodni umetnik
Beograd

Član broj: 28465
Poruke: 73
*.maksnet.net.

Profil

Re: Molim vas pomoć, zašto mi ovo ne radi???

^{29.06.2006. u 18:57 - pre 216 meseci}

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.

Odgovor na temu

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

Re: Molim vas pomoć, zašto mi ovo ne radi???

^{29.06.2006. u 19:02 - pre 216 meseci}

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

Odgovor na temu

Kupushich
Martina Prgomet

Član broj: 97582
Poruke: 5
*.adsl.net.t-com.hr.

Profil

Re: Molim vas pomoć, zašto mi ovo ne radi???

^{29.06.2006. u 20:05 - pre 216 meseci}

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.

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.

Kupushich

Odgovor na temu

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

Re: Molim vas pomoć, zašto mi ovo ne radi???

^{30.06.2006. u 00:04 - pre 216 meseci}

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....

Odgovor na temu

Kupushich
Martina Prgomet

Član broj: 97582
Poruke: 5
*.adsl.net.t-com.hr.

Profil

Re: Molim vas pomoć, zašto mi ovo ne radi???

^{30.06.2006. u 08:13 - pre 216 meseci}

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

Kupushich

Odgovor na temu

Whois

Član broj: 92214
Poruke: 37
*.panet.co.yu.

Profil

Re: Molim vas pomoć, zašto mi ovo ne radi???

^{30.06.2006. u 08:42 - pre 216 meseci}

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.

Odgovor na temu