Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c