Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизПомяните меня в своих молитвах - в ближайшее время меня обрекли на Фортран =( Найти похожие ветки
← →
Fellomena (2002-02-13 15:53) [0]Да, братья по ремеслу, так вот мучают нас, приверженцев Delphi... Меня один дядька-извращенец заставляет на каком-то вонючем DigitalFortran-е программить.
Ему видите ли нужен синтетический тест производительности компа. Я ему говорю - давай на Delphi или на старом-добром OP 7 сделаю - так он как заплевался, распух весь - ну думаю, сейчас "мАсТ дАй, SUXXX, ламо" и т.д. понесётся, уже приготовилась в глаз ему дать, но он попыхтел-поплевался и презрительно изверг фразу о том, что мол Фортран с плавающей точкой лучше работает, а про Delphi он что-то слышал... но не стоит.
Тест этот ему для обучения его тупых студентов нужен.
Я Фортран в глаза не видела - он меня за него посадил и говорит - пиши, а сам, паскуда, смотрит и ухмыляется.
Всё что я из себя и из Help-а выдавить за 40 минут успела (прошу прощения у модераторов за такую сквернь в форуме ;):
program FELLOMENA01
USE DFPORT
implicit none
real i, j, k, f
REAL(8) elapsed_time
i = 10E+6
j = 0
k = 0
print *, "Enter param:"
read(*, *) f
elapsed_time = TIMEF( )
Do While(k.Le.i)
!print *, j + (sqrt(abs(sin(i*j) + cos(i+j)))+f)
j = j + (sqrt(abs(sin(i*j) + cos(i+j)))+f)
k = k+1
EndDo
elapsed_time = TIMEF( )
PRINT " "
PRINT *, elapsed_time
PRINT *, j
end program FELLOMENA01
Бредятина та ещё...
И мужик сказал - что бы, говорит, массивов побольше было, память виртуальная грузилась и вообще общёт посложнее !!!
А я синтаксиса даже не знаю 8(
Кто мне что посоветовать может - краткий курс молодова извра по DigitalFortran может кто даст ?
Пишу и плачу...
Страницы: 1 2 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c