![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 05.09.2017
Сообщений: 6
|
![]()
Как написать вот этот код только в C#, уже два дня пытаюсь. Ошибку выдает постоянно.
procedure TForm2.rascetClick(Sender: TObject); var a,b:real; begin if (tip.ItemIndex=1) or (tip.ItemIndex=2)or (tip.ItemIndex=3) then begin //Первое условие if tip.ItemIndex=1 then a:=strtofloat(edit1.Text)*(strtoflo at(edit1.Text)*(kolic.ItemIndex+3)/(4*tan(pi/(kolic.ItemIndex+3)))); b:=roundto(a,-3); otvet.Caption:=floattostr(b); //Второе условие if tip.ItemIndex=2 then begin //Находим апофему apof:=strtofloat(edit1.Text)*cos(pi/(kolic.ItemIndex+3)); //Находим площадь a:=(apof*apof)*(kolic.ItemIndex+3)* Tan(pi/(kolic.ItemIndex+3)); b:=roundto(a,-3); otvet.Caption:=floattostr(b); end; //Третье условие в калькуляторе if tip.ItemIndex=3 then a:=(strtofloat(edit1.Text)*(strtofl oat(edit1.Text)*(kolic.ItemIndex+3) *(tan(3.14/(kolic.ItemIndex+3))))); b:=roundto(a,-3); otvet.Caption:=floattostr(b); //Таймер stroka.Panels[2].text:='Операция выполнена'; vivod.Enabled:=true; //Ответ otv.Visible:=true; end else ShowMessage('Выберите тип расчета'); end; Вот что я написал : private void button1_Click(object sender, EventArgs e) { if (comboBox1.ItemHeight == 1) || (comboBox1.Text == 2){ //Условие 1 //((длина стороны)2×N)/(4Tan(π/N)) ((a * a) * n) / (4 * Math.Tan (Math.PI / n)) double a, n, r; a = Convert.ToDouble(textBox1.Text); n = Convert.ToDouble(textBox2.Text); if (comboBox1.ItemHeight == 1) { r = ((a * a) * n) / (4 * Math.Tan(Math.PI / n)); textBox3.Text = Math.Round(r, 3).ToString(); } else if (comboBox1.ItemHeight == 2) { //Условие 2 //a:=(strtofloat(edit1.Text)*(strtofl oat(edit1.Text)*(kolic.ItemIndex+3) *(tan(3.14/(kolic.ItemIndex+3))))); r = (a * a) * n * (Math.Tan(Math.PI / n)); textBox3.Text = Math.Round(r, 3).ToString(); } } } Что не так, подскажите пожалуйста, я только начал изучать C# |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помоги | judovich | Помощь студентам | 3 | 30.11.2011 10:41 |
помоги те , массивы =0 | Анатолий))) | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 22.05.2011 22:24 |