| | |
| Stránka: 1 z 1
| [ Príspevkov: 3 ] | |
Autor | Správa |
---|
Registrovaný: 04.02.08 Prihlásený: 04.05.08 Príspevky: 9 Témy: 3 Bydlisko: Nové Zámky | Napísal dodS12: 04.05.2008 9:34 | |
|
V súbore evidujeme mená a výkony skokanov do diaľky. Vytvorte aplikáciu, ktorá umožní:
a) pridať nový záznam do súboru (napr. že Peter Zabka skočil 8,5 metra)
b) zobraziť záznamy uložené v súbore do Mema - usporiadané abecedne podľa mena
c) zobraziť záznamy uložené v súbore do Mema - usporiadané podľa výkonu
Pracujte s binárnym súborom s prvkami typu TStudent.
type TStudent = record
meno, priezvisko: string[30];
vykon: real;
end;
potrebujem to mat cim skor hotove
_________________ Intel E2160@1,8GHz, 2x1GB DDR2 KINGSTON 800Mhz, ASUS ATI EAH 3650 256 MB DDR3 |
|
Registrovaný: 19.09.06 Prihlásený: 17.01.24 Príspevky: 749 Témy: 31 Bydlisko: Ružomberok&... |
Zase jeden z tych, co prosim nepoznaju???
Dufam ze som to pochopil spravne a nemusis ten subor ukladat aj na disk.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,j,k,l,m:integer;
implementation
{$R *.dfm}
type TStudent = record
meno, priezvisko: string[30];
vykon: real;
end;
var skok:array[1..100] of TStudent;
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(i);
if (edit1.text<>'') and (edit2.text<>'') and (edit3.text<>'')
then
with skok[i] do
begin
meno:=Edit1.Text;
priezvisko:=Edit2.Text;
vykon:=strtofloat(Edit3.Text);
end
else messagebox(0,'Chybny udaj v niektorom policku','error',0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
for k:=1 to i-1 do
begin
m:=k;
for j:=k+1 to i do
if skok[m].meno>skok[j].meno then m:=j;
if m<>k then begin
skok[100]:=skok[m];
skok[m]:=skok[k];
skok[k]:=skok[100];
end;
end;
memo1.Clear;
for j:=1 to i do
memo1.lines.add(skok[j].meno+' '+skok[j].priezvisko+' '+floattostr(skok[j].vykon));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
for k:=1 to i-1 do
begin
m:=k;
for j:=k+1 to i do
if skok[m].vykon<skok[j].vykon then m:=j;
if m<>k then begin
skok[100]:=skok[m];
skok[m]:=skok[k];
skok[k]:=skok[100];
end;
end;
memo1.Clear;
for j:=1 to i do
memo1.lines.add(skok[j].meno+' '+skok[j].priezvisko+' '+floattostr(skok[j].vykon));
end;
end.
|
|
Registrovaný: 04.02.08 Prihlásený: 04.05.08 Príspevky: 9 Témy: 3 Bydlisko: Nové Zámky | Napísal autor témy dodS12: 06.05.2008 8:11 | |
|
dakujem za namahu
_________________ Intel E2160@1,8GHz, 2x1GB DDR2 KINGSTON 800Mhz, ASUS ATI EAH 3650 256 MB DDR3 |
|
| Stránka: 1 z 1
| [ Príspevkov: 3 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Neviete niekto tento jeden priklad v Pascale??? v Assembler, C, C++, Pascal, Java | 7 | 1004 | 25.04.2007 13:39 maria kormanakova | | Potrebujem pomoct v JavaScript, VBScript, Ajax | 6 | 605 | 23.01.2009 13:50 pedro91 | | Potrebujem pomocť v Elektronika | 6 | 634 | 27.04.2007 16:18 Jopi | | Potrebujem pomoct..... v PHP, ASP | 4 | 442 | 14.07.2008 13:53 m4r14n | | Potrebujem pomôcť v PHP, ASP | 2 | 478 | 19.08.2007 20:07 juho | | WIFI-potrebujem pomôcť v Siete | 2 | 426 | 02.11.2011 16:00 Dodo092 | | potrebujem surne pomoct [ Choď na stránku: 1 ... 4, 5, 6 ] v Operačné systémy Microsoft | 171 | 4308 | 20.08.2006 15:39 Johnnny | | Tlaciaren.Potrebujem pomoct. v Externé zariadenia | 1 | 839 | 13.08.2006 8:29 isteron | | stanovenie ceny potrebujem pomoct. v Informujem sa | 0 | 250 | 10.08.2017 21:46 Gogi | | Potrebujem pomoct s programom v Assembler, C, C++, Pascal, Java | 5 | 602 | 16.11.2009 9:30 muro58 | | Potrebujem pomôcť - Grafická Karta v nVidia grafické karty | 18 | 603 | 23.06.2017 20:08 shiro | | Potrebujem pomoct s sql... v Redakčné systémy | 3 | 675 | 30.08.2006 10:09 scooby | | Velky problem ( potrebujem pomoct) v Antivíry a antispywary | 6 | 642 | 01.05.2010 18:49 marvolo | | Potrebujem pomoct s podvodoom [ Choď na stránku: 1, 2, 3, 4, 5 ] v Obchody, reklamácie a právo | 130 | 6275 | 23.11.2011 15:08 Trty | | Zoznam (potrebujem pomôcť) C++ v Assembler, C, C++, Pascal, Java | 1 | 388 | 08.05.2012 11:29 Ďuri | | simple subforums - potrebujem pomoct v Redakčné systémy | 3 | 551 | 09.10.2006 18:46 OndrejKo |
| Nemôžete zakladať nové témy v tomto fóre 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
|
|