FONForum
http://678540.1rf3m2gpa.asia/

Paskal - Problemi sa programom
http://678540.1rf3m2gpa.asia/viewtopic.php?f=8&t=1116		 Stranica 1 od 1
Autoru:  De Cro [ 30.07.2003. 17:22:02 ]
Tema posta: 
Moze li mi neko pomoci!?
Ne kapiram,zasto nece.
Neka mi neko objasni i neka napise kako bi trebalo!
Hitno mi je,jer mi treba za uslov!
Implementiraj niz kao stack.
elementi niza su:
Tknjiga=record
isnb:string[10];
naziv,autor:string[20]
brsr:word
end;

program zad;
uses uniz;
var x:oniz;
p:boolean; op:integer;
begin
x.init;
p:=true;while p=true do
begin
writeln('1.ubaciknjigu');
writeln('2.izbaciknjigu');
writeln('3.prikaziknjigu');
writeln('4.kraj');
write('izaberi opciju 1-4');
readln(op);
case op of
1:x.ubacinapocetak;
2:x.izbacisapocetka;
3:x.stampaj;
4:p:=false
end;
end;
end.

unit uniz;
interface
type
tknjiga=record
isnb:string[10];
naziv,autor:string[20];
brsr:word;
end;
tniz=array[1..100] of tknjiga;
oniz=object
private
a:tniz;
na:integer;
public
procedure init;
procedure ubacinapoc;
procedure izbacisapoc;
procedure stampaj;
end;
implementation
procedure oniz.init;
begin
na:=0;
end;
procedure oniz.ubacinapoc;
var
s:tknjiga; i:integer;
begin
if na<100 then begin
write('unesi isnb');
readln(s.isnb);
write('unesi naziv');
readln(s.naziv);
write('unesi autora');
readln(s.autor);
write('unesi broj strana');
readln(s.brsr);
for i:=(na+1) downto 2 do
a[i]:=a[i-1];
a[1]:=s;
inc(na);
end else write('niz je pun.');
end;
procedure oniz.izbacisapoc;
var i:integer;
begin
if na>0 then begin
for i:=1 to na-1 do
a[i]:=a[i+1];
na:=na-1;
end
else write('unesi prazan');
end;
procedure oniz.stampaj;
var i:integer;
begin
if na=0 then write('nema podataka o knjizi:')
else begin
for i:=1 to na do
writeln(a[i].isnb,' ',a[i].naziv,' ',a[i].autor,' ',a[i].brsr)
end;
end;
end.
Autoru:  tomdam [ 31.07.2003. 00:50:25 ]
Tema posta: 
Poku
Autoru:  De Cro [ 03.08.2003. 16:19:01 ]
Tema posta: 
Hvala ti,mada ni ovo nece da se pokrene.
Moracu da vidim sa samim programom sta je.
Pozdrav! ???
Stranica 1 od 1 Sva vremena su u UTC + 1 sat
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/