This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
, co je zajtra :-/ a ak by sa predsa dakto nasiel dam za 30 ;-)
Quote from: kukinko on 16.05.2010, 20:59:52
na DX to mas za supku ....
ale link na tu skusku.pas nefunguje 
{
B: Zostavte program,ktory bude vykonavat nasledujuce cinnosti:
- nacitanie udajov N studentov (meno, priezvisko, znamka - 1, 2, 3, 4, 5),
- zistenie priemernej znamky,
- zistenie poctu jednotlivych znamok,
- zistenie znamky, ktora sa vyskytovala najviac,
- zapisanie zistenych udajov do textoveho suboru (vysledky.txt).
}
program SKUSKA;
uses CRT;
const NMAX=1000;
type TSTUDENTI=record
Meno:string;
Priezvisko:string;
Znamka:integer;
end;
Studenti=array[1..NMAX] of TSTUDENTI;
var Student:Studenti;
N,i:integer;
PrZ:real;
P1,P2,P3,P4,P5:integer;
SUC:integer;
SUB:text;
MAX:integer;
begin
ClrScr;
N:=0;
i:=0;
PrZ:=0;
SUC:=0;
P1:=0;
P2:=0;
P3:=0;
P4:=0;
P5:=0;
MAX:=0;
writeln('Zadajte pocet studentov (Max: 1000): ');
repeat
readln(N);
if (N<=0) or (N>NMAX) then
begin
writeln('Zadali ste nespravnu hodnotu!');
writeln('Zadajte hodnotu znova: ');
end;
until (N>0) and (N<=NMAX);
for i:=1 to N do
begin
writeln;
writeln('Zadajte udaje o studentovi c. ',i);
write('Meno: ');
readln(Student[i].Meno);
write('Priezvisko: ');
readln(Student[i].Priezvisko);
write('Znamka (1, 2, 3, 4 alebo 5): ');
repeat
readln(Student[i].Znamka);
if (Student[i].Znamka <1) or (Student[i].Znamka>5) then
begin
writeln('Zadali ste neplatnu znamku, opakujte zadanie:');
end;
until (Student[i].Znamka<=5) and (Student[i].Znamka>=1);
SUC:=SUC+Student[i].Znamka;
if Student[i].Znamka = 1 then
P1:=P1+1;
if Student[i].Znamka = 2 then
P2:=P2+1;
if Student[i].Znamka = 3 then
P3:=P3+1;
if Student[i].Znamka = 4 then
P4:=P4+1;
if Student[i].Znamka = 5 then
P5:=P5+1;
end;
PrZ:=SUC/N;
MAX:=P1;
if MAX < P2 then
MAX:=P2;
if MAX < P3 then
MAX:=P3;
if MAX < P4 then
MAX:=P4;
if MAX < P5 then
MAX:=P5;
assign(SUB,'vysledky.txt');
rewrite(SUB);
for i:=1 to N do
begin
writeln(SUB,'UDAJE O STUDENTOVI C. ', i);
writeln(SUB,' Meno : ',Student[i].Meno);
writeln(SUB,' Priezvisko : ',Student[i].Priezvisko);
writeln(SUB,' Znamka : ',Student[i].Znamka);
writeln(SUB);
end;
writeln(SUB,'VYSKYT ZNAMOK ');
writeln(SUB,' 1: ',P1);
writeln(SUB,' 2: ',P2);
writeln(SUB,' 3: ',P3);
writeln(SUB,' 4: ',P4);
writeln(SUB,' 5: ',P5);
writeln(SUB,' Priemerna znamka: ',PrZ);
writeln(SUB,' Najcastejsia znamka: ',MAX);
close(SUB);
write('Pre ukoncenie programu stlacte ENTER !');
readln;
end.
{{{dcf130f5aab0736c971d06a23e464f7c_3222_4352_b64_76_1}}}
