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

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

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > C# (си шарп)
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2015, 16:10   #1
minisheva
 
Регистрация: 24.11.2014
Сообщений: 4
По умолчанию Пожалуйста, помогите составить блок схему

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Threading;
using System.Globalization;

namespace WfVrio1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
comboBox1.SelectedIndex = 0;
}
private bool TryParse(TextBox textBox, string caption, out double value)
{
bool ok = Double.TryParse(textBox.Text, out value);
if (!ok)
MessageBox.Show(caption, "Ошибка");
return ok;
}
private void button1_Click(object sender, EventArgs e)
{
//parse:
double dw, dm, g, n, tdop, np, nz;
if (!TryParse(textBox1, "Некорректный диаметр проволоки!", out dw))
return;
if (!TryParse(textBox2, "Некорректный средний диаметр пружины!", out dm))
return;
if (!TryParse(textBox3, "Некорректный модуль сдвига!", out g))
return;
if (!TryParse(textBox4, "Некорректное число рабочих витков!", out n))
return;
if (!TryParse(textBox5, "Некорректное число поджатых витков!", out np))
return;
if (!TryParse(textBox6, "Некорректное число зашлифованных витков!", out nz))
return;
tdop = Double.Parse(comboBox1.Text.Remove( comboBox1.Text.IndexOf(',')));
//solve:
double k = (1 + 1.45 * dw / dm);
double f3 = (Math.PI * dw * dw * dw * tdop) / (8 * dm * k);
double x = (g * dw * dw * dw * dw) / (8 * n * dm * dm * dm);
double s3 = f3 / x;
double h3 = dw * (n + np - nz + 1);
double h0 = h3 + s3;
//output:
textBox9.Text = f3.ToString();//
textBox8.Text = x.ToString();
textBox10.Text = s3.ToString();
textBox12.Text = h3.ToString();
textBox13.Text = h0.ToString();
textBox11.Text = (s3 / n + dw).ToString();
}
}
}
minisheva вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите, пожалуйста составить блок-схему. Anteya123 Паскаль, Turbo Pascal, PascalABC.NET 0 21.04.2014 20:38
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! ...Оленька... Паскаль, Turbo Pascal, PascalABC.NET 2 20.01.2009 09:37