|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2008, 13:12 | #1 |
Новичок
Джуниор
Регистрация: 20.05.2008
Сообщений: 2
|
Перевод кода с Fortran-77 на Delphi
Помогите перевисти код с 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 !------------------------------------------------------------------------- |
20.05.2008, 13:54 | #2 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Код:
|
20.05.2008, 14:16 | #3 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Крутая вещь для диплома... (извините, не удержался)
А на калькуляторе это не посчитать? Вы 2 числа вводите и 2 получаете, если бы чисел было не 2, а 200 тогда был бы смысл писать программу. |
20.05.2008, 14:27 | #4 |
Новичок
Джуниор
Регистрация: 20.05.2008
Сообщений: 2
|
во первых для диплома другие функции будут использоваться
во вторых в функцие будет 10 варьируемых переменных в третьих программа будет считать минимизацию этой функции |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод кода | ELL | Помощь студентам | 0 | 07.06.2008 01:36 |
Перевод исходников из Delphi в C++ | Bond | Общие вопросы C/C++ | 4 | 23.02.2008 10:31 |
Перевод кода символа в символ таблицы ASCII | nerh | Общие вопросы C/C++ | 3 | 01.02.2008 20:34 |
Как сделать в Delphi перевод языков | Илюха | Общие вопросы Delphi | 3 | 16.10.2007 11:44 |