Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Hitno

[es] :: Pascal / Delphi / Kylix :: Hitno

[ Pregleda: 3890 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

soulripper

Član broj: 3591
Poruke: 2
195.222.57.*



Profil

icon Hitno28.04.2002. u 18:50 - pre 252 meseci
hitno mi je potrebno resenje sledeceg zadatka..
UCHITATI PREZIME I IME RADNIKA,TE NJEGOV LICHNI DOHODAK ZA SVAKI MJESEC U GODINI.ISPITATI UKUPNI PROSJECHNI I MJESECHNI LICHNI DOHODAK ZA TU GODINU
uz napomenu da o pascalu znam vrlo malo..

unapred hvala..
 
Odgovor na temu

tomdam
Tomic Damjan
Beograd

Član broj: 2495
Poruke: 36
*.yubc.net

ICQ: 135970738
Sajt: localhost


Profil

icon Re: Hitno29.04.2002. u 04:33 - pre 252 meseci
Ovo bi otprilike trebalo da radi:
Program plata;
type mesec=array[1..12]of real;
Radnik=record
Ime,prezime:string;
mes:mesec;
end;
var R:Radnik;
i:integer;
suma:real;
begin
write('unesi Ime i Prezime:');
readln(R.Ime);
readln(R.Prezime);
writeln('Unesi plate za mesece:');
suma:=0;
for i :=1 to 12 do
begin
write(i,'.');
readln(R.mes);
suma:=R.mes+suma;
end;
writeln('Ukupni godisnji dohodak je:', suma:10:2);
writeln('Prosecni dohodak je:', suma/12:10:2);
readln;
end.

To bi trebalo da je to.
mozes malo lepse da uradis ispis poruka.... to nije tesko.
da i jos mozes jedan for da izvrtis od 1 do 12 da ponovo ispises mesecne dohotke ako je potrebno.
Pozdrav!
 
Odgovor na temu

soulripper

Član broj: 3591
Poruke: 2
195.222.59.*



Profil

icon Re: Hitno29.04.2002. u 15:57 - pre 252 meseci
puno hvala tomdam..
a kad bi hteo prvo da zadam broj radnika, da li mi za to treba procedura...
a da se pri ispisu podataka prikazu plate svih radnika?
 
Odgovor na temu

tomdam
Tomic Damjan
Beograd

Član broj: 2495
Poruke: 36
*.yubc.net

ICQ: 135970738
Sajt: localhost


Profil

icon Re: Hitno01.05.2002. u 04:57 - pre 252 meseci
Ako zelis da pamtis podatke o grupi radnika, a ne o samo jednom (sto je i logicno)
prethodni program bi morao dosta da se izmeni.
Prvo treba da odredis strukturu podataka u kojoj ces drzati slogove. npr. Niz
Otprilike to bi izgledalo ovako:

program radnici2;
type plate=array[1..12]of real;
Radnik=record
Ime,prezime:string;
pl:plate;
end;
Niz=array[1..100] of radnik;
var N:Niz;
br:integer;

procedure unos;
var R:radnik;
i:integer;
begin
write('unesi Ime i Prezime:');
readln(R.Ime);
readln(R.Prezime);
writeln('Unesi plate za mesece:');
for i :=1 to 12 do
begin
write(i,'.');
readln(R.pl);
end;
br:=br+1; {br je broj unetih radnika}
N[br]:=R
end;

procedure prikaz;
var i,j:integer;
begin
writeln('Unesi broj radnika cije podatke zelis da vidis:');
readln(j);
for i:=1 to 12 do
writeln('mesec ',i,'. ',N[j].pl);{ispisuje sve plate zadatog radnika}

{ mozes da odradis na slican nacin i da ti ispise sve plate za odredjeni mesec:
writeln(' unesi mesec 1-12');
readln (j);
for i:=1 to br do {br je broj radnika}
writeln('radnik broj:',i,' ',N.pl[j]);
}
end;

end;
procedure meni;
var i:integer;
begin
writeln(' MENI ');
writeln( '1 - prikaz');
writeln(' 2 - unos');
writeln(' 3 - izlaz');
repeat readln(i) until i in [1,2,3];
{ ponavlja unos broja "i" sve dok se ne unese 1, 2 ili 3}
case i of
1: unos;
2:prikaz;
3:halt; {funkcija za izlazak iz programa}
end;
end;
{GLAVNI PROGRAM}
BEGIN
meni;
END.
Ovo bi trebalo da radi. uradio sam ga na brzaka tako da mozda ima koja greska, ali u principu to je to. to moze da ti bude ideja, a ti je prilagodi svojim potrebama.

Pozdrav
Damjan.
 
Odgovor na temu

Iceshield
Zeljko Vujicic

Član broj: 15316
Poruke: 55
*.verat.net

Jabber: iceshield@jabber.or.id


Profil

icon Re: Hitno06.12.2003. u 08:55 - pre 233 meseci
Citat:
soulripper:
hitno mi je potrebno resenje sledeceg zadatka..
UCHITATI PREZIME I IME RADNIKA,TE NJEGOV LICHNI DOHODAK ZA SVAKI MJESEC U GODINI.ISPITATI UKUPNI PROSJECHNI I MJESECHNI LICHNI DOHODAK ZA TU GODINU
uz napomenu da o pascalu znam vrlo malo..

unapred hvala..

Nemoj da vichesh po forumima.
Have no fear IceShielD is here.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Hitno

[ Pregleda: 3890 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.