Anonymní profil bunjee – Programujte.com

Tak jsem se to pokusil předělat na to pole, nicméně teď nevim, jak zajistit jakýsi přehledný výpis všeho a všech- přehled..


program UCETNI_PROGRAM;

Type mzdytab = Record
jmeno: string[15];
mesic: integer;
mzda: integer;
end;
Type Mzdytab2= array [1..12] of Mzdytab;
Type Mzdytab3= array [1..20] of Mzdytab2;

var Pracmax, obdobi, i,j :integer;
{prehledpom: Mzdytab2}
prehled: Mzdytab3;
begin

writeln('Zadejte delku obdobi v mesicich:');
Readln(obdobi);
Writeln('Zadejte pocet pracovniku');
Readln(Pracmax);
for i:= 1 to Pracmax do
begin
writeln('Zadejte jmeno pracovnika:');
readln(prehled[i,1].jmeno);
for j:=1 to obdobi do
begin
writeln ('Zadejte mesic pro pracovnika ' ,prehled[i,j].jmeno);
readln(prehled[i,j].mesic);
writeln ('Zadejte mzdu pro pracovnika ',prehled[i,j].jmeno, ' pro mesic ' ,prehled[i,j].mesic);
readln(prehled[i,j].mzda);
end;
end;

writeln('Celkovy prehled pracovniku a mezd pracovniku dle mesicu');
{for i:=1 to Pracmax do}
begin
writeln('Poradove cislo Pracovnik Mesic Mzda ');
writeln( i, prehled[1,1].jmeno, prehled[1,1].mesic, prehled[1,1].mzda);
end;


readln;
end.

program UCETNI_PROGRAM;

Type mzdytab = Record
jmeno: string[15];
mesic: integer;
mzda: integer;
end;
Type Mzdytab2= array [1..50] of Mzdytab;
var Pracmax, obdobi, i,j :integer;
prehled: mzdytab;
prehled2:mzdytab2;
begin

writeln('Zadejte delku obdobi v mesicich:');
Readln(obdobi);
Writeln('Zadejte pocet pracovniku');
Readln(Pracmax);
for i:= 1 to Pracmax do
begin
writeln('Zadejte jmeno pracovnika:');
readln(prehled.jmeno);
for j:=1 to obdobi do
begin
writeln ('Zadejte mesic pro pracovnika ' ,prehled.jmeno);
readln(prehled.mesic);
writeln ('Zadejte mzdu pro pracovnika ',prehled.jmeno, ' pro mesic ' ,prehled.mesic);
readln(prehled.mzda);
end;
end;

writeln('Celkovy prehled pracovniku a mezd pracovniku dle mesicu');
{for i:=1 to Pracmax do}
begin
writeln('Poradove cislo Pracovnik Mesic Mzda ');
writeln( i, prehled.jmeno, prehled.mesic, prehled.mzda);
end;


readln;
end.

Nevím si rady právě s výběrem příkazů. Zkoušel jsem asi nejjednodušší možnost přes Record a opak. cykly,ale skončil jsem v ..pasti

Dostal jsem za úkol v rámci seminární práce vytvořit program v Pascalu a nevím si s tím moc rady- použití příkazů..
Úkol:
Program pro účetní,která si vede statistiku zaměstnanců. Program má umět vypočítat průměrný plat zaměstnance v daném období, najít měsíc,kdy si zaměstnanec vydělal maximum a minimum, spočítat průměrný plat zaměstnanců za určitý počet měsíců/celé období.

probíhat by to mělo asi takhle:
Uživatel si vybere, kolik zaměstnanců chce zadat, a na jak dlouhé období(v měsících).
Zadá data z klávesnice a celá struktura se přehledně vypíše.
Poté bude uživatel dotázán, co chce spočítat (průměr,maximum,minimum..) a program to vypíše..

Děkuji moc,pokud se najde někdo schopen pomoci. :)