![]() |
|
Модераторы: Snowy, MetalFan, bems, Poseidon |
![]()
|
|
| unhide |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 20.5.2008 Репутация: нет Всего: нет |
Помогите перевисти код с Fortran-77 на Delphi, пожалуйста очень срочно надо, пишу диплом по полимеризации и не особо разбираюсь в програмировании, но в расчетах надо использовать одну програмку а для нее сначала нужно создать исполняемый файл. Заранее всем спасибо.
Вот код на Fortrane-77: ---------------- Название ------------------- Real(8):: h,R,V,S !************************************************* ******************* Open(Unit=20,file='IN_T1.DAT') !Чтение переменных из файла Read(20,*)R !ввода информации Read(20,*)h Close(20) !************************************************* ******************* V=3.1416*h*h*(R-h/3.) !Расчет значения целевой функции S=2*3.1416*R*h !и ограничеваемого параметра !************************************************* ********************* Open(Unit=21,File='OUT_T1.dat') !Запись в файл вывода информации Write(21,*)V !Целевой функции и Write(21,*)S !и ограничеваемого параметра Write(21,*)S Close(21) !************************************************* ********************* Stop End !------------------------------------------------------------------------- |
|||
|
||||
| Sartorius |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1568 Регистрация: 18.7.2006 Где: Ivory tower Репутация: нет Всего: 37 |
стандартный ввод и вывод вместо файлов тока ЗЫ а на калькуляторе не проще будет посчитать ? Это сообщение отредактировал(а) Sartorius - 20.5.2008, 13:45 |
|||
|
||||
| unhide |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 20.5.2008 Репутация: нет Всего: нет |
На калькуляторе не проще. В дипломе другая функция будет с 10 варьируемыми переменными, а это программа всего лишь исполнительный модуль для другой проги которая будет считать оптимизацию этой функции.
|
|||
|
||||
![]()
|
| Правила форума "Delphi: Для новичков" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Для новичков | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |