SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var pocet,i,hladaj,cisla,novypocet:integer; |
| 1 | + | var pocet,dlzka,cas, vysdlzka,vyscas,i:integer; |
| 2 | - | novy: string; |
| 2 | + | rychlost:real; |
| 3 | begin | |
| 4 | - | pocet:= strtoint (inputbox ('zadajte','pocet cisel',''));
|
| 4 | + | pocet:= strtoint(inputbox('zadaj','pocet usekov',''));
|
| 5 | - | hladaj:= strtoint (inputbox ('zadajte','ake cislo hladas',''));
|
| 5 | + | vysdlzka:=0; |
| 6 | - | novy:= ''; |
| 6 | + | vyscas:=0; |
| 7 | - | novypocet:= 0; |
| 7 | + | for i:= 1 to pocet do |
| 8 | - | for i:= 1 to pocet do |
| 8 | + | begin |
| 9 | dlzka:= strtoint(inputbox('zadaj',''+inttostr(i)+'. usek v km',''));
| |
| 10 | - | randomize; |
| 10 | + | cas:= strtoint(inputbox('zaadaj',''+inttostr(i)+'. usek v minutach',''));
|
| 11 | - | cisla:= random(100)+1; |
| 11 | + | vysdlzka:= vysdlzka + dlzka; |
| 12 | - | novy:= novy + ' ' + inttostr(cisla); |
| 12 | + | vyscas:= vyscas + cas; |
| 13 | - | if hladaj=cisla then |
| 13 | + | end; |
| 14 | - | novypocet:= novypocet + 1; |
| 14 | + | rychlost:= vysdlzka/(vyscas/60); |
| 15 | memo1.lines.Add('celkove prejdes ' + inttostr(vysdlzka) + ' km');
| |
| 16 | - | memo1.lines.add (novy); |
| 16 | + | memo1.lines.Add('trasa bude trvat ' + inttostr(vyscas) + ' minut');
|
| 17 | - | memo1.Lines.Add(inttostr (hladaj) + ' sa nachadza tu ' + inttostr(novypocet)); |
| 17 | + | memo1.lines.Add('priemerna rychlost ' + floattostr(rychlost) + ' km/h');
|
| 18 | - | end; |
| 18 | + | |
| 19 | end. |
