|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.05.2008, 21:28 | #1 |
Новичок
Джуниор
Регистрация: 03.05.2008
Сообщений: 1
|
лабы. Delphi
В принципе для знающих лабы очень легкие.
В первой нужно написать код для рассчета уравнения SIN(X•Pi/180) -------------— • e^-ABS(Y+Z)=S Y^2 + Z^2 а во второй: 1.Создайте консольное приложение, предназначенное для получения решения квадратного уравнения вида ax^2+bx+c=0. Приложение должно использовать ПОЛНУЮ ФОРМУ УСЛОВНОГО ОПЕРАТОРА и выполнять следующие действия: а) ввод значений вещественных коэффициентов a, b и c; б) если значение дискриминанта D=b^2-4ac≥0, то вычисление значений корней квадратного уравнения по формулам -b-D^1/2 ---------- =x1 2a -b+D^1/2 ---------=x2 и вывод результатов; 2a в) если значение дискриминанта D=b^2-4ac<0 (что говорит об отсутствии у уравнения действительных корней), то вывод текста "D<0". 2.Создайте консольное приложение, выполняющее те же действия, что и приложение из п.1, но использующее СОКРАЩЕННУЮ ФОРМУ УСЛОВНОГО ОПЕРАТОРА и ОПЕРАТОР ПЕРЕХОДА с МЕТКОЙ и работающее таким образом, чтобы оно после вывода результатов снова переходило бы на ввод значений коэффициентов квадратного уравнения. За написанные коды был бы очень благодарен.Если не сможете написать коды, то дайте тогда хотябы ссылку, где про это понятно расписано или название книг и авторов |
03.05.2008, 21:46 | #2 |
Пользователь
Регистрация: 27.04.2008
Сообщений: 24
|
2-я задача(подпункт 1), правда писал под Pascal, но исправить под Delphi совсем не тяжело.
Код:
Последний раз редактировалось sergey31; 03.05.2008 в 21:53. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно сделать 2 лабы по Delphi. 250р=1 лаба | Reload | Помощь студентам | 6 | 30.01.2013 23:21 |
Помогите написать 2 лабы (1 курс) | Lifter | Помощь студентам | 5 | 27.12.2007 14:15 |
Помогите сделать лабы пожалуйста | cL1zMa | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 09.12.2007 22:27 |