Форма с двумя кнопками

@6APOH_Cy66OTA · Регистрация: 24.04.2019

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

Кликните здесь для просмотра всего текста

@Puporev · 24.04.2019, 12:07

Напишите условие задачи в теме.

@6APOH_Cy66OTA · 24.04.2019, 12:13 **[ТС]**

Форма содержит 2 кнопки с названиями CALCULATE и SAVE.
При нажатии на первую должно вычисляться значение функции F=SIN(X)+X на интервале от 0 до 2*Pi радиан с шагом 0.1 радиан.
Полученные значения функции сохраняются в массиве YY.
При нажатии на кнопку SAVE программа должна в файл SIN.DAT вывести значения вычисленной функции из массива YY по 10 чисел в строке.

@Puporev · 24.04.2019, 12:35

Delphi

var
  Form1: TForm1;
  y:array of double;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var  x:double;
begin
n:=0;
x:=0;
while x<=2*pi do
 begin
  inc(n);
  setlength(y,n);
  y[n-1]:=sin(x)+x;
  x:=x+0.1;
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var f:textfile;
    i:integer;
begin
assignfile(f,'SIN.DAT');
rewrite(f);
for i:=0 to n-1 do
 begin
  write(f,y[i]:6:2);
  if (i+1) mod 10=0 then writeln(f);
 end;
closefile(f);
ShowMessage('Значения вычислены и запиманы в файл SIN.DAT')
end;

@6APOH_Cy66OTA 0 / 0 / 0 Регистрация: 24.04.2019 Сообщений: 2
		1
	Форма с двумя кнопками 24.04.2019, 12:04. Показов 2285. Ответов 3 Метки нет (Все метки) Кликните здесь для просмотра всего текста 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.04.2019, 12:07	2
	Напишите условие задачи в теме. 1

@6APOH_Cy66OTA 0 / 0 / 0 Регистрация: 24.04.2019 Сообщений: 2
	24.04.2019, 12:13 [ТС]	3
	Форма содержит 2 кнопки с названиями CALCULATE и SAVE. При нажатии на первую должно вычисляться значение функции F=SIN(X)+X на интервале от 0 до 2*Pi радиан с шагом 0.1 радиан. Полученные значения функции сохраняются в массиве YY. При нажатии на кнопку SAVE программа должна в файл SIN.DAT вывести значения вычисленной функции из массива YY по 10 чисел в строке. 0

	24.04.2019, 12:35

Форма с двумя кнопками

Решение