Текущий архив: 2002.04.01;
Скачать: CL | DM;
Вниз
Помяните меня в своих молитвах - в ближайшее время меня обрекли на Фортран =( Найти похожие ветки
← →
Fellomena (2002-02-15 14:13) [34]Давайте быть последовательными и ставить конкретные задачи.
1). Сортировка одномерного массива размером 10E+4 типам real методом "Пузырька" снизу-вверх.
Тестить скорость надо на 1 машине, что бы получить одекватные результаты.
Все желающие - высылайте мне *.EXE модули, результатом работы которых будет файл, в котором будет содержаться
название языка, первое и последние значение полученного массива (и, если использовались, оптимизационные настройки компилятора).
Я буду на своей машине тестить и оглашать результаты здесь. Когда с первой задачей разберёмся приступим к чему-нибудь посерьёзнее.
Алгоритм по которому ориентироваться :)
program RANDOM2
USE DFPORT
implicit none
! Variables
integer i, j
real a(10E+4), k, temp
REAL(8) elapsed_time
! Body of RANDOM2
print *, "Waiting for array to be formated..."
DO j = 1, 10E+4
call RANDOM_NUMBER(k)
a(j) = k*100
!print *, a(j), j
end do
print *, "Testing CPU... Please wait..."
elapsed_time = TIMEF( )
DO i = 1, 10E+4
DO j = 1, 10E+4
if (a(i).LE.a(j)) then
temp = a(i)
a(i) = a(j)
a(j) = temp
endif
END DO
END DO
elapsed_time = TIMEF( )
print *, ""
print *, "Work complete ! Time = ", elapsed_time
print *, ""
!DO i = 1, 10E+4
!print *, a(i)
!ENDDO
read(*, *)
end program RANDOM2
Страницы: 1 2 вся ветка
Текущий архив: 2002.04.01;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.016 c
