Program ma podliczać punktacje formuły 1. Czyli za 1 miejsce 20 punktów i tak dalej. Zrobiłem 10 editów, które odpowiadają drużyną (jest ich 10), użyłem fora dlatego, że z założenia maja być tylko 5 okrążeń i na końcu if który ma sprawdzać czy zmienna przypisana do edita jest równa jeden, dwa itd. do 10ciu. I stoję na etapie takim:
P.S Skrypt sie zmienił bo w między czasie go modyfikowałem
unit unit6;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit10: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
var
Tablica : array[0..9] of string;
var a, b, c, d, e, f, g, h, i, j :String;
implementation
{$R *.lfm}
procedure TForm1.Button1Click(Sender: TObject);
var n,o,s,r,p,w,u,x,y,z:real;
var m : integer;
begin
Tablica[0] := a;
Tablica[1] := b;
Tablica[2] := c;
Tablica[3] := d;
Tablica[4] := e;
Tablica[5] := f;
Tablica[6] := g;
Tablica[7] := h;
Tablica[8] := i;
Tablica[9] := j;
n:=StrToint(Edit1.text);
o:=StrToint(Edit2.text);
s:=StrToint(Edit3.text);
r:=StrToint(Edit4.text);
p:=StrToint(Edit5.text);
w:=StrToint(Edit6.text);
u:=StrToint(Edit7.text);
x:=StrToint(Edit8.text);
y:=StrToint(Edit9.text);
z:=StrToint(Edit10.text);
for m:= 1 to 5 do
if n == 1 Tablica[0]:=20+a;
if n == 2 Tablica[0]:=18+a;
end;
end.