Thema: Prism ein sortierprogramm

Einzelnen Beitrag anzeigen

resyiii

Registriert seit: 11. Mär 2009
Ort: Oranienburg
31 Beiträge
 
#14

Re: ein sortierprogramm

  Alt 14. Mai 2009, 08:08
Delphi-Quellcode:
program weitsprung;

{$APPTYPE CONSOLE}

uses
  SysUtils;

    type tWeitsprung = record
                     Name : String[255];
                     Weite : Real;
                     end;
    var Weitsprung : Array of tWeitsprung;

begin

write ('Anzahl der Sportler?'); readln (anzahl);
setlength (z, Anzahl);
write ('Name des Sportlers?');
for i:=0 to Anzahl-1 do
begin write (i+1, '.Name? '); readln (z[i]); end;
for j:=0 to Anzahl-1 do
begin write (j+1,'.Weite? '); readln (z[j]); end;
readln(Weitsprung[i].Name)


  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.
da is mein j udn mein i udn alles nciht mehr drin.
bin ich zu blöd?
  Mit Zitat antworten Zitat