Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2017, 00:12   #1
Ivan137
 
Регистрация: 05.09.2017
Сообщений: 6
По умолчанию Помоги с C#

Как написать вот этот код только в 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#
Ivan137 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помоги judovich Помощь студентам 3 30.11.2011 10:41
помоги те , массивы =0 Анатолий))) Паскаль, Turbo Pascal, PascalABC.NET 0 22.05.2011 22:24