Задача с Циклом For ...Do в Delphi?

[reznor264]

ВЫвести таблицу перевода чисел скоростиЮ от 53 до 178 км в час в метры в секунды с шагом 10.4 км в час

var
  Form1: TForm1;
  z:real;
  x:integer;
  ASA: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 X:=53;
For i:=53 to 178 do begin
z:=X*(10/36);
ASA:=strtoint(x)+ 'êì/÷ ' + '=' + floattostr(z)+ #13;
Z:=z+(10.4*(10/36));
end;
Label1.Caption:=ASA;
end;

Где я ошибся в цикле? (умножение на (10/36) ето перевод в метры в секунды, переменная х-это скорость в км в час, а переменная z-это перевод из км в час в метры в секунду)

[ybn]

Сообщение от reznor264

[B][FONT="Arial Black"]

Для начало, где ты описываешь i ?

[ACE Valery]

не особо помню паскаль, но, по-моему, вам надо к i прибавлять 10.4, а не к Z
И вместо X вот тут: z:=X*(10/36); использовать i.
А вот это убрать Z:=z+(10.4*(10/36));
И Х вам тут не нужен.
Но я не проверяла, это так, навскидку.
Как-то так:

var
Form1: TForm1;
z:real;
i:real;
ASA: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=53 to 178 do begin
z:=X*(10/36);
ASA:=strtoint(i)+ 'êì/÷ ' + '=' + floattostr(z)+ #13;
i = i+10.4;
end;
Label1.Caption:=ASA;
end;

Хотя если мне не изменяет память, там или другой цикл используется, или что-то дописывается в цикле, если нужно сделать цикл с шагом, не равным единице.

[Sam Gold]

Я бы сделал х-real и цикл несколько проще

x:real;
//===========
while x<=178 do
 begin
  z:=X/3.6;
  ASA:=ASA+#13+ floattostr(z)+ #13;
  x:=x+10.4 ;
end;

[reznor264]

var
  Form1: TForm1;
  x,z:real;
  ASA: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 X:=53;
For x:=53 to 178 do begin
z:=X*(10/36);
ASA:=floattostr(x)+ 'êì/÷ ' + '=' + floattostr(z)+ #13;
X:=X+(10.4*(10/36));
end;
Label1.Caption:=ASA;
end;

вот исправил

[ACE Valery]

Х у вас - километры в час, шаг у вас тоже измеряется в километрах в час. Зачем вы делаете это: X:=X+(10.4*(10/36)); ???

[evg_m]

от 53 до 178 км в час в метры в секунды с шагом 10.4 км в час

Где я ошибся в цикле?

For i:=53 to 178 do begin
ЭТО от 53 до 178 с шагом 1 км