SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var pocet,dlzka,cas, vysdlzka,vyscas,i:integer; |
| 1 | + | var zaciatok,pismena,i:integer; |
| 2 | - | rychlost:real; |
| 2 | + | retazec, novy:string; |
| 3 | begin | |
| 4 | - | pocet:= strtoint(inputbox('zadaj','pocet usekov',''));
|
| 4 | + | retazec:= edit1.Text; |
| 5 | - | vysdlzka:=0; |
| 5 | + | zaciatok:= strtoint(inputbox('zadaj','z ktoreho ma zacat',''));
|
| 6 | - | vyscas:=0; |
| 6 | + | pismena:= strtoint(inputbox('zadaj','kolko pismen',''));
|
| 7 | - | for i:= 1 to pocet do |
| 7 | + | novy:= ''; |
| 8 | - | begin |
| 8 | + | for i:=zaciatok to (zaciatok + pismena -1) do |
| 9 | - | dlzka:= strtoint(inputbox('zadaj',''+inttostr(i)+'. usek v km',''));
|
| 9 | + | |
| 10 | - | cas:= strtoint(inputbox('zaadaj',''+inttostr(i)+'. usek v minutach',''));
|
| 10 | + | novy:= novy + retazec[i]; |
| 11 | - | vysdlzka:= vysdlzka + dlzka; |
| 11 | + | memo1.Lines.add (novy); |
| 12 | - | vyscas:= vyscas + cas; |
| 12 | + | |
| 13 | - | end; |
| 13 | + | |
| 14 | - | rychlost:= vysdlzka/(vyscas/60); |
| 14 | + | |
| 15 | - | memo1.lines.Add('celkove prejdes ' + inttostr(vysdlzka) + ' km');
|
| 15 | + | |
| 16 | - | memo1.lines.Add('trasa bude trvat ' + inttostr(vyscas) + ' minut');
|
| 16 | + |
