Перевести код Mathcad в Delphi

@sashaterat · Регистрация: 04.04.2016

Author24 — интернет-сервис помощи студентам

Не могу понять как задать вот такой массив
Название: screenshot2.jpg
Просмотров: 24

Размер: 1.7 Кб

@Puporev · 04.04.2016, 15:34

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a:array of double;
    f:double;
    n,i:integer;
begin
n:=0;
f:=0;
Label1.Caption:='';
while f<=pi do
 begin
  n:=n+1;
  setlength(a,n);
  a[n-1]:=f;
  f:=f+pi/6;
 end;
for i:=0 to n-1 do
Label1.Caption:=Label1.Caption+'  '+format('%.3f',[a[i]])
end;

@sashaterat · 05.04.2016, 12:10 **[ТС]**

спасибо!

@sashaterat 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 2
		1
	Перевести код Mathcad в Delphi 04.04.2016, 12:21. Показов 1383. Ответов 2 Метки нет (Все метки) Не могу понять как задать вот такой массив 0

@sashaterat 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 2
	05.04.2016, 12:10 [ТС]	3
	спасибо! 0

Перевести код Mathcad в Delphi

Решение