|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.12.2017, 15:57 | #1 |
Новичок
Джуниор
Регистрация: 09.12.2017
Сообщений: 1
|
задача на фотране 90
Здравствуйте
помогите ,пожалуйста, довести задачу до конца или хотя бы что указать, что нужно еще сделать,чтобы она заработала правильно. формулировка задачи: три квадратных уравнения ax*2+bx+c=0 , bx*2+cx+a= 0,cx*2+ax+b= 0 определяются тремя коэффициентами a,b,c (вводятся из файла). Определить, сколько уравнений имеют вещественные корни. Указание. Для решения задачи следует определить функцию трех переменных, позволяющую определить наличие вещественных корней в квадратном уравнении. И вот мой текущий КОД: program lab8 implicit none real :: a, b, c, x1, x2, dd external dd real, dimension(1:2) :: x open(unit=1,file='lab8.in') open(unit=2,file='lab8.out') read(1,*) a, b, c print*,dd(a, b, c) !write(2,*) x1, x2 print*,dd(b, c, a) !write(2,*) x1, x2 print*,dd(c, a, b) !write(2,*) x1, x2 !close(1) !close(2) end program lab8 real function dd(a, b, c),result (z) real, dimension :: x(1:2), z(1:2) a, b, c, d d=b**2-4*a*c if (d > 0) then x1=(-b+sqrt(d))/(2*a) x2=(-b-sqrt(d))/(2*a) print*, x1, x2 else if (d == 0) then x1 = -b / (2 * a) print*, x1,x2=x1 else if(d < 0) then ! print*, 'net kornei' x1 = 1.e-10, x2=x1 end if z(1)= x1 z(2)=x2 return end function dd |
11.12.2017, 09:03 | #2 |
Старожил
Регистрация: 25.08.2011
Сообщений: 2,841
|
А что значит неправильно??
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два. |
11.12.2017, 09:29 | #3 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Это точно правильное задание?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача по подсчёту статистики использования букв. Другая задача - по длинной арифметике Pascal ABC | kimberly | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 24.12.2012 17:03 |
Задача на оптимальный расчет маршрута (задача в презентации) в табличном процессоре Excel | Toofed | Помощь студентам | 0 | 30.11.2011 01:12 |
Задача минимизации дисбаланса на линии сборки (задача минимакса) | LenZab | Microsoft Office Excel | 13 | 13.03.2011 22:51 |
Помогите нарисовать таблицу в Фотране | Neolina | Помощь студентам | 1 | 09.11.2009 16:53 |