Fortran

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Fortran Метод Эйлера - все ли правильно? все ли правильно ? function F(x,y) F=4x-2y end function X0=1 print,'vvedite y0' READ(,*)Y0 XK=2 https://www.cyberforum.ru/ fortran/ thread1194524.html	Fortran Перевести код из Pascal в Fortran Помогите, перевести код из Pascal в Fortran Program Floid; { Сортировка по возрастанию всплытием Флойда } uses CRT; Const n = 10; {Размер массива данных для сортировки} Type Vector = array of Integer; Var f :Text; {Текстовый файл для результатов сортировки} { Заполнить вектор a случайными числами } procedure Init( var a: vector; n: integer); var i: integer;
Fortran Выделение слов из текста https://www.cyberforum.ru/ fortran/ thread1192027.html Реализовать на фортране следующую задачу,выделив головной и подчиненные алгоритмы Сколько раз в некотором тексте встречаются заданные слова ( например,be,is,there,c,co)? Выведите слова,длина которых больше 7 и не больше 14 символов. Well begun is half done.Хорошее начало полдела откачало.What can`t be cured,must be endured. Приходится мириться с тем,чего нельзя исправить.Where there is smoke...	Fortran Нахождение наибольшего и наименьшего значения функции Здравствуйте, надо написать программу по нахождению наибольшего и наименьшего значений функции на определенной области. Вот фото задания: Кодим мы вроде на 77 фортране, но я точно не уверен(сорри). Код написал, вроде все ровно, но когда запускаю программу и ввожу n то после этого прога падает, и выдает ошибку: Помогите решить проблему :( ни получается, вот уверен проблема где-то перед... https://www.cyberforum.ru/ fortran/ thread1189638.html
Fortran Программа для моделирования ЭХЗ трубопроводов Добрый день. В ходе написания диплома столкнулся с готовой программой на языке Fortran. Сам не силен в программирование, когда-то только в pascal писали простейшие программы. Проблема в том, что я просто не могу запустить готовую программу. Подскажите, что делаю неверно, может быть не та версия софта или ошибки в самой программе. Благодарю. C Моделирование распределения токов и...	Fortran Вывести элементы K-го столбца данной матрицы. Получить новую матрицу умножением всех элементов данной на min https://www.cyberforum.ru/ fortran/ thread1189311.html это первая задача: Дана матрица размера M * N и целое число K (1 < K < N). Вывести элементы K-го столбца данной матрицы. это вторая задача: Получить новую матрицу путем умножения всех элементов данной матрицы на ее наименьший по модулю элемент помогите пожалуйста, очень надо
Fortran Найти сумму элементов, расположенных по периметру прямоугольного фрагмента матрицы https://www.cyberforum.ru/ fortran/ thread1189295.html Просьба написать задачу!!! Убедительная просьба!!! В функции: найти сумму элементов, расположенных по периметру пря- моугольного фрагмента матрицы M, диагонально противоположными вершинами которого являются элементы с индексами (i1,j1) и (i2,j2). В главной программе: в каждой из четырех матриц разных размеров найти максимальный и минимальный элементы и применить функцию к прямоугольнику,...	Fortran Fortran неправильно работает с матрицами Провел разными способами расчет обращения матрицы, Результаты - не совпадают! Чему верить? Входная матрица \|1.0\|7.\|11.\| \|7.0\|3.\|9.0\| \|11.\|9.\|5.0\| 1. Расчет на сайте http://matrixcalc.org/
Fortran Построение интерполяционного кубического сплайна Здравствуйте, Помогите найти ошибку в программе. она работает, но неправильно. Компилятор gfortran,диалект f95 program spline use data implicit none real a,b,left,right integer ind a =10.0 b =-5.0 left =0.0 https://www.cyberforum.ru/ fortran/ thread1187924.html	Fortran Fortran, работа по вычислительной математике Здравствуйте! у меня такая проблема, надо написать РГР по выч мату, даже есть уже готовая программа, но как пользоваться фортраном - я полнейший нуб...( запуская его из под виртуальной машины, ибо у самой 64-разрядная... В общем, возможно кто-то может помочь, могу скинуть саму программу, я сидела пыталась разобраться, но все это вижу практически в первый раз, а сдавать надо... ну или просто... https://www.cyberforum.ru/ fortran/ thread1187028.html
Fortran Численное интегрирование, метод Гаусса Здравствуйте. Помогите найти ошибку в программе, необходимо написать программу реализующую метод Гаусса-5 Программа работает, но считает не правильно, помогите найти ошибку Program int common /dat/ z(1000),n,h open(1,file='out3.txt') a=0 b=3 n=1 do i=1,10 call setka(a,b)	Fortran Оператор-функция. Подпрограмма - функция. Форматный вывод Здравствуйте, товарищи! В общем ситуация такая: в школе информатики,считай, и не было. Сейчас пишу все программы по чутью, либо катаю.Но хочется сделать самому да осознанно) Поэтому: 1.Если не трудно,подскажите хорошенькие книги по фортрану и по алгоритмам.Желательно для чайников. 2. Помогите пожалуйста с програмкой. Задание 3... https://www.cyberforum.ru/ fortran/ thread1184086.html

Krasme

6962 / 4991 / 2108

Регистрация: 02.02.2014

Сообщений: 13,249

31.05.2014, 22:39

Пирамидальная сортировка массива - Fortran - Ответ 6255643

31.05.2014, 22:39. Показов 2271. Ответов 5

Метки (Все метки)

Сообщение было отмечено Lady A как решение

Решение

Lady A, небольшие поправочки, но привожу весь текст..

Кликните здесь для просмотра всего текста

Fortran

PROGRAM MASSIV
      INTEGER A, I
      DIMENSION A(7)
      A(1)=18
      A(2)=65
      A(3)=66
      A(4)=4
      A(5)=37
      A(6)=63
      A(7)=56
      write (*, '(7i5)') A
      PRINT  *, 'RESULT:'
      CALL SORT(A, 7)
       write (*, '(7i5)') A
       pause
      END PROGRAM
      
      SUBROUTINE SORT(A, N)
      INTEGER N
      INTEGER I, K, W, Y , N1
      INTEGER A
      DIMENSION A(7)
      N1=N/2
      DO I=N1, 1, -1
         !PRINT *, I
         CALL SURFACE(A, I, N)
      ENDDO
      
      DO K=7, 2, -1
         CALL SURFACE(A, 1, K)
         W=A(K)
         A(K)=A(1)
         A(1)=W
      ENDDO
 
      RETURN
      END
      
      SUBROUTINE SURFACE(A, II, K)
      INTEGER I,II, K
      INTEGER J, M, COPY
      INTEGER A
      DIMENSION A(7)
      I=II
      COPY=A(I)
      !PRINT *, COPY
      M=2*I
      DO WHILE (M .LE. K)
          !1
          IF (M .EQ. K) THEN
             J=M
          ELSE  IF (A(M) .GT. A(M+1)) THEN
                J=M
            ELSE
            J=M+1
         ENDIF
         
         !2
         IF (A(J) .GT. COPY) THEN
          A(I)=A(J)
          I=J
          M=2*I
          ELSE
          EXIT
          ENDIF
          
 
      ENDDO
      A(I)=COPY
      RETURN
      END

Вернуться к обсуждению:
Пирамидальная сортировка массива Fortran

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

31.05.2014, 22:39

Готовые ответы и решения:

Пирамидальная сортировка массива
Помогите, пожалуйста, написать программу и блок-схему к задаче Получить упорядоченный массив чисел...

Пирамидальная сортировка массива
Можете скинуть код програмы с пирамидальной сортировкой массива

Пирамидальная сортировка массива строк
Хочу сделать пирамидальную сортировку на массиве строк. Сейчас на числах работает, на строках нет...

Пирамидальная сортировка массива, счетчики
не могу понять куда счетчики:сравнения и обменов.помогите пожалуйста. вот код сортировки:...

	31.05.2014, 22:39

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

31.05.2014, 22:39

Помогаю со студенческими работами здесь

Пирамидальная сортировка(доработка динамичного массива)
Здравствуйте, форумчане! Помогите сделать массив динамичным(задается размер массива) и добавить...

Пирамидальная сортировка массива - найти ошибки в коде
Ошибка в приложенной картинке. Сортировка пирамидой, ошибка в сорте возникает почему-то только при...

Пирамидальная сортировка, добавить ввод размера массива пользователем
Есть программа для пирамидальной сортировки. Как сделать так чтобы пользователь сам вводил...

Рекурсия. Пример использования рекурсивных функций. Пирамидальная сортировка массива
Нужно создать программу которая будет использовать рекурсию я пирамидальной сортировки массива....

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх