Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2008, 13:12   #1
unhide
Новичок
Джуниор
 
Регистрация: 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

!-------------------------------------------------------------------------
unhide вне форума Ответить с цитированием
Старый 20.05.2008, 13:54   #2
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Код:
uses
  SysUtils;


var
    f           : text;         //!!!!! Текст!
    h, R, V, S  : double;

begin
// Формат файла IN_T1.DAT - текстовый, числа расположены
// в двух строках

    Assign(f, 'IN_T1.DAT');
    Reset(f);
    Readln(f, R);
    Readln(f, h);
    Close(f);

    V := 3.1416 * h * h * (R - h/3.0);    //Расчет значения целевой функции
    S := 2 * 3.1416 * R * h;             //и ограничеваемого параметра

    Assign(f, 'OUT_T1.dat');
    Rewrite(f);
    Writeln(f, V:0:16);
    Writeln(f, S:0:16);
    Writeln(f, S:0:16);                      // Почему два раза?
    Close(f);

end.
B_N вне форума Ответить с цитированием
Старый 20.05.2008, 14:16   #3
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Крутая вещь для диплома... (извините, не удержался)

А на калькуляторе это не посчитать?
Вы 2 числа вводите и 2 получаете, если бы чисел было не 2, а 200 тогда был бы смысл писать программу.
_Dmitry вне форума Ответить с цитированием
Старый 20.05.2008, 14:27   #4
unhide
Новичок
Джуниор
 
Регистрация: 20.05.2008
Сообщений: 2
По умолчанию

во первых для диплома другие функции будут использоваться
во вторых в функцие будет 10 варьируемых переменных
в третьих программа будет считать минимизацию этой функции
unhide вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод кода 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