|
|
|
| Autor |
Správa |
lopotka
Novice
Stav: 
Založený: 16.04.2008
Príspevky: 4
Karma:   
|
 Zaslal: 16 Apr 2008, 14:06 Predmet: Program v Pascale. |
  |
|
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: |
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.
|
|
|
| Návrat hore |
|
 |
juho
Light Star
Stav:
Založený: 11.05.2007
Príspevky: 220
Karma: 
|
| Zaslal: 16 Apr 2008, 15:10 Predmet: |
|
|
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. |
|
| Návrat hore |
|
|
lopotka
Novice
Stav:
Založený: 16.04.2008
Príspevky: 4
Karma:
|
| Zaslal: 16 Apr 2008, 16:58 Predmet: |
|
|
| 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: |
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. |
|
| Návrat hore |
|
|
juho
Light Star
Stav:
Založený: 11.05.2007
Príspevky: 220
Karma:
|
| Zaslal: 16 Apr 2008, 19:23 Predmet: |
|
|
| Kód: |
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. |
|
|
| Návrat hore |
|
|
lopotka
Novice
Stav:
Založený: 16.04.2008
Príspevky: 4
Karma:
|
| Zaslal: 16 Apr 2008, 22:35 Predmet: |
|
|
| juho napísal: |
| Kód: |
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. |
|
| Návrat hore |
|
|
|
|  |
|
|
Nemôžete odosielať nové témy do tohto fóra
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
Nemôžete hlasovať v tomto fóre
Nemôžete pripájať súbory do tohto fóra
Môžete sťahovať súbory v tomto fóre
|
Powered by phpBB © 2005 phpBB Group, phpBB SEO, © Hojko 2004-2008
[ Vygenerované za: 0.1s ] :: [ 16 Queries ] :: [ 22,984 stránok za dnes ] :: [ Dnes DB: 638,973 ] :: [ Max DB: 2,334,336 Queries ]
|
