TUKE FÓRUM - Fórum pre študentov Technickej Univerzity v Košiciach

bol niekto na predtermin s terpakom ?

Aky program tam bol ? Zrejme niečo s polom, ale konrétne ?

dík :)

Terpak ma cca 5 programov ktore dava dokola ale ich uz bohu zial nemam ale je to v pohode pokial vies kodit

5 roznych typov programov, alebo len 1 typ s piatimi temami ?

hej hej v podstate tak su dost podobne

kamarat mi poslal co este mal v PC tak:

origo od terpaka: http://hrmill.tym.sk/uKniha.pas (http://hrmill.tym.sk/uKniha.pas)

co mal na skuske: http://hrmill.tym.sk/skuska.pas (http://hrmill.tym.sk/skuska.pas) nerucim ze je dobre

nebolo to niečo taketo ?


{
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}}}


aj take daco mohlo byt uz neviem a dal som sem linky tak si kukni

diky :) ale link na tu skusku.pas nefunguje :(

sry  :embarassed: tu mas opravu:
http://hrmill.tym.sk/skusku.pas (http://hrmill.tym.sk/skusku.pas)