Potrebujem pomoc!!! – Delphi – Fórum – Programujte.com

potrebujem toto vyriešiť, inak ma vyhodia zo školy. nemal by to byť pre trochu skúsených problém, no pre mna je. prosíííím.
budem vďačný aj za neúplne programy!
dakujem!!!


I. Vytvorte aplikáciu, v ktorej

1. maticu NxN naplníte náhodne celými číslami
2. vypíšete jej obsah do Mema
3. usporiadate sĺpce v matici podľa hodnoty súčtu prvkov (prvý nech je
stĺpec, v ktorom je súčet prvkov najmenší)
4. obsah matice po usporiadaní vypíšete do Mema

II. 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;

Sory, ale myslím, že ti s tím nikdo nepomůže. Pokud nezvládáš programování, pak sis nevybral zrovna dobře onu školu, kterou studuješ. A pokud ti to někdo udělá, bude nejspíše očekávat nějaký honorář a navíc, většina lidí zde jsou studenti, kteří mají také "svoje" povinnosti co se školy týče.

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin





    randomize();

    i:=random(7)+1;//7 urcuje pocet generovanych cisel

    j:=random(7)+1;

    i:=i*j;

   memo1.Lines.Add(IntToStr(i));//no kdyz to maji byt nahodna cisla tak preci ne postupne,ale pro zacatek ti to muze stacit...

//IntToStr to je pretypovani integer na string,a jelikoz memo1.lines je typu string,nejak tak to ma byt

//pro sestupne nebo vzestupne generovani cisel pouzij cyklus for,nebo...pouzij podminek if,if else atd...

end;