Форум программистов, компьютерный форум, киберфорум
Fortran
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Fortran Передел алгоритма) https://www.cyberforum.ru/ fortran/ thread1842027.html
Здравствуйте, у меня такое задание: Заполнить список фамилиями, именами и отчествами, затем удалить из списка всех людей с одинаковыми именами кроме первого. У меня есть рабочий код, но мне...
MPI и Фортран Fortran
помогите, пожалуйста, с распараллеливанием умножения матриц. все перепробовала и переискала. не считает нормально никак. include 'mpif.h' real A(10,10), B(10,10), R(10,10), R1(10,10) ...
Fortran Работа с файлом, счёт строк, ошибка конца файла Доброго времени суток! При исполнении сборки ни cmd ни far32 воспроизвести желаемый результат не смогли. Я предполагаю ошибку конца файла, но не могу понять почему не срабатывает защита. Шаблон... https://www.cyberforum.ru/ fortran/ thread1839288.html Fortran Считывание текста с файла .txt https://www.cyberforum.ru/ fortran/ thread1837995.html
Как считать со строки сначала текст, а потом числа? Например: Triangle x1 y1 x2 y2 x3 y3 где x1,y1,x2,y2,x3,y3 числа
Считать слово и записать в массив Fortran
У меня есть файл .txt заполненный словами и числами например: Оценки Миши 4 4 3 4 5 4 Оценки Димы 5 4 5 4 4 5 Мне нужно сначала считать слово и проверить чьи это оценки, затем считать оценки...
Fortran Как распараллелить процедуру Fortran OMP SUBROUTINE rasch(a,n,m1,m2,np,mp,al,mpl,indx,b) INTEGER :: m1,m2,mp,mpl,n,np,i,k,l,mm INTEGER, DIMENSION(N) :: indx REAL, DIMENSION(NP,MP) :: a ... https://www.cyberforum.ru/ fortran/ thread1832156.html
Fortran Проверьте код заданий https://www.cyberforum.ru/ fortran/ thread1828467.html
Всем привет. Есть задание, нужно написать программу. Я всё сделал, но уверен на 99% в результате. Проверьте, есть ли ошибки. Программа работает, ошибок при компиляции не выдаёт, но почему то...
Куда идти с компаковского DVF дальше, чтобы старые проекты работали? Fortran
Здравствуйте ! Писал я кое-что под XP и DVF 6.0 6.5 6.6 ,освоил QuicWin -все устраивало , пользовался и imsl и графикой (могу поделиться проектами , если кому интересно) на новом нотике под win 8.1...
Fortran Работа с текстовым файлом имеющим смешанный тип данных Вполне возможно что на этот вопрос уже не раз отвечали, простите, поиском не нашлось =)( В скриншоте таблица с данными, эти данные нужны для программы. Программа сначала проходит по всем строчкам,... https://www.cyberforum.ru/ fortran/ thread1825258.html Fortran Использование функций и процедур при вычислении сложных формул Доброго времени суток! Помогите пожалуйста разобраться, заранее простите за глупые вопросы. Степень знания языка невысокая, а задачу решить надо. Есть сложная формула, грубо говоря это сумма... https://www.cyberforum.ru/ fortran/ thread1821110.html
Fortran Вычисление обратной матрицы
Нужно вычислить обратную матрицу. Пользуюсь gfortran на убунту. Матрица имеет размерность от 20 000 на 20 000, до 60к на 60к более сложная. Матрица симметричная и положительно определенная. Проблема...
Fortran Как избежать подвисания мс-дос фортран-программ в windows-7 имеется набор больших по объему программ на мс-дос фортране(версия 5) они прекрасно работают под windos-xp.Под под windos-7 работают тоже -но (ох уж это "но") при длительной работе с дисковыми... https://www.cyberforum.ru/ fortran/ thread1815880.html
126 / 113 / 56
Регистрация: 05.12.2012
Сообщений: 463
07.11.2016, 18:55 0

Расположить в массиве сначала все четные, а потом все нечётные элементы - Fortran - Ответ 9737972

07.11.2016, 18:55. Показов 3977. Ответов 3
Метки (Все метки)

Лучший ответ Сообщение было отмечено Nikolayn как решение

Решение

Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Program shetnie_neshetnie !Имя программы
 
integer, parameter :: length = 10
 
integer :: mass(length) !Количество элементов массива 10
integer :: n, tmp, i
       
do i=1, length !Элементы с 1 по 10 шаг единица*
    read(*,*) mass(i) !Вводим элементы массива
end do
        
print *,mass
      
n = 1
 
do i = 1, length
    if (MOD(mass(i), 2) == 0 .AND. i /= n) then
        
        tmp = mass(i)
        mass(i) = mass(n)
        mass(n) = tmp
 
        n = n + 1
    end if
end do
 
CALL sort( mass(1 : n-1) , .TRUE.)
CALL sort( mass(n : length) , .FALSE.)
 
print *,mass
 
pause
 
contains
 
subroutine sort(array, growth)
    integer, intent(INOUT) :: array(:)
    logical, intent(IN) :: growth
    
    integer :: i, tmp
    logical :: sorted
 
    sorted = .FALSE.
 
    do while(.NOT. sorted)
        sorted = .TRUE.
 
        do i = 1, SIZE(array) - 1
            if ( array(i) > array(i+1) .EQV. growth) then
 
                tmp = array(i)
                array(i) = array(i+1)
                array(i+1) = tmp
 
                sorted = .FALSE.
 
            end if
        end do
 
    end do
 
end subroutine sort
   
end
Добавлено через 1 час 38 минут
Поправочка строк 14-25:
Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
n = 1
 
do while (n <= length .AND. MOD(mass(n), 2) == 0)
    n = n + 1
end do
 
do i = n + 1, length
    if (MOD(mass(i), 2) == 0) then
        
        tmp = mass(i)
        mass(i) = mass(n)
        mass(n) = tmp
 
        n = n + 1
    end if
end do


Вернуться к обсуждению:
Расположить в массиве сначала все четные, а потом все нечётные элементы Fortran
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2016, 18:55
Готовые ответы и решения:

Cортировка в массиве: сначала все четные, а потом все нечетные числа
Пользователь вводит элементы массива. Переставить в первую половину элементы, расположенные на...

Переформировать массив таким образом, чтобы сначала располагались все четные элементы, а потом все нечетные
Переформировать массив таким образом, чтобы сначала располагались все четные элементы, а потом все...

В массиве сначала расположить все положительные элементы,а потом отрицательные
1.В одномерному массиве,что состоит из N целых элементов вычислить: 1)добавление элементов...

Переписать все числа во второй массив так, чтобы сначала шли четные элементы, затем нули, потом нечетные элементы
Парни, нуждаюсь в ваших советах. Из одномерного целочисленного массива переписать все числа во...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2016, 18:55
Помогаю со студенческими работами здесь

Расположить в массиве сначала все отрицательные элементы и нули, потом - положительные (Pascal -> C++)
Помогите пожалуйста, нужно перевести программу с pascal на С++. Есть два вида кода: const...

Создать файл целых чисел. За один просмотр файла вывести на экран сначала все четные числа, а потом все нечетные
Помогите пожалуйста написать программу. Создать файл целых чисел. За один просмотр файла вывести на...

В одномерном массиве расположить сначала нечетные элементы, затем четные
в одномерном массиве расположить сначала нечетные элементы, затем четные без смены их порядка

Преобразовать массив: сначала расположить все отрицательные элементы, а потом - все положительные
ЧЕРЕЗ ФУНКЦИЮ! Преобразовать одномерный целочисленный массив таким образом, чтобы сначала...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru