C Sharp -> Delphi ( Перевод )

03.06.2010, 17:07. **Показов** 1510. **Ответов** 2

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

Здравствуйте.
Такая ситуация: Имеется код в C#... Но реализовать надо на Delphi.
К сожалению я не знаю C# и поэтому прошу Вас помочь мне перевести его в Delphi.

C#

private void button1_Click(object sender, EventArgs e)
{
 chart1.Series[0].Points.Clear();   //обновление первого графика
 chart2.Series[0].Points.Clear();   //обновление второго графика
 double t = 0;                      //инициализация значения времени
 dataGridView1.Rows.Clear();        //обновление таблицы
 double a = double.Parse(textBox1.Text);//инициализация значения амплитуды
 double f = double.Parse(textBox2.Text);//инициализация значения частоты
 chart2.Series[0].Points.AddXY(f, a);//построение второго графика
 while (t <= 0.2)                    //начало формирования цикла
       {
        double y = a * Math.Sin(2 * 3.14 * f * t);//вычиисление значений функции
        chart1.Series[0].Points.AddXY(t, y);//построение первого графика
        dataGridView1.Rows.Add(t, y);       //заполнение таблицы вычислениями
        t = t + 0.001;          //формирование очередного шага цикла вычисления
       }                
}

07.06.2010, 16:03

Ну неужели никто не может помочь?

@Inadequate · 08.06.2010, 09:14

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  SVal = 0;       // начальное значение
  EVal = 0.2;     // конечное значение
  Step = 0.001;   // шаг
  eps = 1E-7;     // эпсилон для точности подсчета
var
  y,t,a,f: real;
begin
  Chart1.Series[0].Clear;
  Chart2.Series[0].Clear;
  t := SVal;
  StringGrid1.RowCount := 1;
  StringGrid1.Rows[0].Clear;
  a := StrToFloat(Edit1.Text);
  f := StrToFloat(Edit2.Text);
  Chart2.Series[0].AddXY(f, a);
  while t <= EVal + eps do
  begin
    y := a * sin(2 * pi * f * t);
    with StringGrid1 do
    begin
      if t <> SVal then
        RowCount := RowCount + 1;
      Chart1.Series[0].AddXY(t, y);
      Rows[RowCount - 1].Add(FloatToStr(t));
      Rows[RowCount - 1].Add(FloatToStr(y));
    end;
    t := t + Step;
  end;
end;

stlilator
	07.06.2010, 16:03	2
	Ну неужели никто не может помочь?

	08.06.2010, 09:14

C Sharp -> Delphi ( Перевод )

Решение