Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
stlilator
1

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

03.06.2010, 17:07. Показов 1173. Ответов 2
Метки нет (Все метки)

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



C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;          //формирование очередного шага цикла вычисления
       }                
}
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2010, 17:07
Ответы с готовыми решениями:

Перевод из Delphi 7 в Delphi XE2
Вообщем Этот код на delphi 7 спокойно компилируется: Function ResolveIP(HostName: String):...

Перевод на Delphi
Не получается перевести текст Pascal на Delphi. var i: integer; s,p: real; x: real;...

Перевод с С++ на Delphi
Доброго вечера всем, пожалуйста, помогите перевести на Delphi. Необязательно весь код, можно просто...

Перевод на delphi
Помогите перевести на Delphi var x: integer; begin repeat readln(x) until x &gt;=...

2
stlilator
07.06.2010, 16:03 2
Ну неужели никто не может помочь?
Retired
7721 / 2553 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
08.06.2010, 09:14 3
Лучший ответ Сообщение было отмечено как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2010, 09:14

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Перевод на delphi
Здравствуйте, помогите переводит на delphi program Console; {$APPTYPE CONSOLE} uses ...

Перевод из Си в Delphi
Помогите нужно срочно перевести #include &lt;ctype.h&gt; #include &lt;stdio.h&gt; enum { BUFFER_SIZE =...

Перевод из С в Delphi
Прошу прощения, не знал куда можно обратиться, но нужна помощь, перевести из языка (скорее всего...

перевод из C в Delphi
Доброго времени суток! Есть код на С который считает CRC16. Его надо перевести на Delphi (использую...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.