Program v Pascale.

lopotka

Zdravim.Prosim pomozte s tymto zadanim. Mam to do skoly a neviem si tym rady. Som uplny zaciatocnik.
Vytvorte program, ktorý bude zazanmenávat výsledky bežeckého závodu (10 závodníkov). Využite dátový typ RECORD, ktorý bude obsahovat meno, priezvisko a cas závodníka. Po ich zadaní program zostaví výsledkovú listinu závodu.
Ale ako mozem zadefinovat aby som cas pisal mm:ss a ako to zotriedit podla casu.

Kód: Vybrať všetko

program Zadanie;
uses	crt;
Type Pretekar = Record
                Meno:string;
                Priezvisko:string;
                Cas:real;
                end;

var i:real;
    osoba:Pretekar;


Begin
	clrscr;
    writeln ('Zadaj meno pretekara:');
    readln  (osoba.Meno);
    writeln ('Zadaj priezvisko pretekara:');
    readln  (osoba.Priezvisko);
    writeln ('Zadaj cas:');
    readln  (osoba.Cas);
    clrscr;
    writeln;
    write (osoba.Meno,' ',osoba.Priezvisko,' ',osoba.Cas);
    readln;
end.

juho · Príspevok od používateľa **juho** » 16 apr 2008, 15:10

najprv ked chces pisat kody davaj ich do code.
potom na triedenie potrebujes pole array of record.
a musis si rozdelit cas na nacitanie minut a nacitanie sekund. alebo si to mozes prepocitat.

lopotka

juho napísal:najprv ked chces pisat kody davaj ich do code.
potom na triedenie potrebujes pole array of record.
a musis si rozdelit cas na nacitanie minut a nacitanie sekund. alebo si to mozes prepocitat.

Kód: Vybrať všetko

Program Pretek;
uses crt;
Type Pretekar = record
                Meno:string;
                Priezvisko:string;
                Cas:string;
              end;

var pocet : Array [1..3] of Pretekar;
    a:integer;


Begin
  clrscr;
  for a:=1 to 3 do
  begin
    writeln(a,'.');
    writeln('---');
    write('Zadejte meno: ');
    readln(pocet[a].Meno);
    write('Zadejte priezvisko: ');
    readln(pocet[a].Priezvisko);
    write('Zadejte cas v sekundach ');
    readln(pocet[a].Cas);
    clrscr;
  end;

  writeln('Zoznam pretekarov ');
  writeln('******************');
  readkey;
  for a:= 1 to 3 do
  begin
   
    writeln(a,'.');
    writeln('---');
    writeln(pocet[a].Meno,' ',pocet[a].Priezvisko,' ',pocet[a].Cas);
    readln;
    end;

  write('Program se teraz ukoncy');
  readkey;

End.

Tak nieco som upravil . Teray potrebujem urobit to abz to vzpisalo podla casu od najrzchlejsieho po najpomalsieho.
Poradte prosim vas.

juho · Príspevok od používateľa **juho** » 16 apr 2008, 19:23

Kód: Vybrať všetko

Program Pretek;
uses crt;
Type Pretekar = record
                Meno:string;
                Priezvisko:string;
                Cas:string;
              end;

var a,b,min:integer;
      pocet:array[1..4]of Pretekar;

Begin
  clrscr;
  for a:=1 to 3 do
  begin
    writeln(a,'.');
    writeln('---');
    write('Zadejte meno: ');
    readln(pocet[a].Meno);
    write('Zadejte priezvisko: ');
    readln(pocet[a].Priezvisko);
    write('Zadejte cas v sekundach ');
    readln(pocet[a].Cas);
    clrscr;
  end;

  writeln('Zoznam pretekarov ');
  writeln('******************');
  readkey;
  for a:= 1 to 3 do
  begin

    writeln(a,'.');
    writeln('---');
    writeln(pocet[a].Meno,' ',pocet[a].Priezvisko,' ',pocet[a].Cas);
    readln;
    end;

  write('Program teraz usporiada podla casu');
  readkey;
clrscr;
for a:= 1 to 3 do begin min:=a;
for b:=a to 3 do if(pocet[min].cas>pocet[b].cas)then min:=b;
pocet[4]:=pocet[min];
pocet[min]:=pocet[a];
pocet[a]:=pocet[4];
    writeln(a,'.');
    writeln('---');
    writeln(pocet[a].Meno,' ',pocet[a].Priezvisko,' ',pocet[a].Cas);
    readln;
                       end;
  write('Program se teraz ukoncy');
  readkey;

End.

lopotka

juho napísal:

Kód: Vybrať všetko

Program Pretek;
uses crt;
Type Pretekar = record
                Meno:string;
                Priezvisko:string;
                Cas:string;
              end;

var a,b,min:integer;
      pocet:array[1..4]of Pretekar;

Begin
  clrscr;
  for a:=1 to 3 do
  begin
    writeln(a,'.');
    writeln('---');
    write('Zadejte meno: ');
    readln(pocet[a].Meno);
    write('Zadejte priezvisko: ');
    readln(pocet[a].Priezvisko);
    write('Zadejte cas v sekundach ');
    readln(pocet[a].Cas);
    clrscr;
  end;

  writeln('Zoznam pretekarov ');
  writeln('******************');
  readkey;
  for a:= 1 to 3 do
  begin

    writeln(a,'.');
    writeln('---');
    writeln(pocet[a].Meno,' ',pocet[a].Priezvisko,' ',pocet[a].Cas);
    readln;
    end;

  write('Program teraz usporiada podla casu');
  readkey;
clrscr;
for a:= 1 to 3 do begin min:=a;
for b:=a to 3 do if(pocet[min].cas>pocet[b].cas)then min:=b;
pocet[4]:=pocet[min];
pocet[min]:=pocet[a];
pocet[a]:=pocet[4];
    writeln(a,'.');
    writeln('---');
    writeln(pocet[a].Meno,' ',pocet[a].Priezvisko,' ',pocet[a].Cas);
    readln;
                       end;
  write('Program se teraz ukoncy');
  readkey;

End.

Vdaka Ti.
Trosku som si to upravil.
Dakujm.