Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.011 c
4-343
yus
2002-01-30 22:28
2002.04.01
Как отформатировать диск А: не выводя окна


1-242
ghost_by
2002-03-06 20:20
2002.04.01
Показать Hint ы в StringGride


1-88
DimaIv
2002-03-20 09:04
2002.04.01
Есть GroupBox с надписью внутри него находится ProgressBar


1-135
Romik
2002-03-21 20:10
2002.04.01
Caption у формы


1-104
Ольга
2002-03-19 11:53
2002.04.01
Большая просьба!!!