|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.01.2015, 16:10 | #1 |
Регистрация: 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(); } } } |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите, пожалуйста составить блок-схему. | Anteya123 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 21.04.2014 20:38 |
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! | ...Оленька... | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.01.2009 09:37 |