Форум программистов, компьютерный форум, киберфорум
Fortran
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Fortran Нужны комментарии к коду https://www.cyberforum.ru/ fortran/ thread2740809.html
program l3 implicit none integer, parameter :: n=6, nval=4 real, dimension(n) :: x,f,d real, dimension(2*n):: wk real, dimension(nval) :: xval, fval, dval logical :: spline=.true. integer :: ierr, i real :: lwk
Нужны комментарии к коду Fortran
program l2 implicit none integer, parameter :: lda=3, n=lda, itask=1 real :: a(lda,n), b(n), work(n), rcond integer :: iwork(n), ind a(1,1) = 6; a(1,2) = -1; a(1,3) = -1 a(2,1) = -1; a(2,2) = 6; a(2,3) = -1 a(3,1) = -1; a(3,2) = -1; a(3,3) = 6
Fortran Разъясните программу Написать программу для вычисления e^x для -1,-5,-10,-15 , используя разложение в ряд Тейлора. program l1 implicit none double precision, external :: expon integer :: x print*, "print x" read*, x print*, "exp", x, "=", expon(x) https://www.cyberforum.ru/ fortran/ thread2740748.html Fortran Является ли целая квадратная матрица 6-го порядка «магическим квадратом» Определить, является ли заданная целая квадратная матрица 6-го порядка «магическим квадратом», то есть такой, в которой суммы всех элементов во всех строках и столбцах одинаковы. https://www.cyberforum.ru/ fortran/ thread2739294.html
аппроксимация данных Fortran
задали программу по аппроксимации данных из таблицы, пункт а я сделал, а вот как сделать в и с пункты не могу сообразить, может есть какие-то идеи вот пункт а program lab5 implicit none integer,parameter :: m,n=2,lda=m,itask=1 real,parameter :: tol=10**(-6) real, dimension(1:m,1:n):: a real, dimension(1:m):: b, v, rsd real, dimension(1:n):: x, qraux, work integer, dimension(1:n):: jpvt
Fortran Сглаживание массива Сглаживание.Дан одномерный вещественный массив A размером 100.Каждый элемент массива A(кроме двух крайних ) заменить выражением a’i= ai-1+2ai+ai+1/4 , i=2,3,.....,n-1, А Крайние элементы -выражениями a’1= a1+a2/2; a’n=an-1+an/2 https://www.cyberforum.ru/ fortran/ thread2736058.html
Fortran Параллельное программирование.Сложение матриц. Для задания значений элементов матриц используется рандом чисел https://www.cyberforum.ru/ fortran/ thread2735137.html
Посмотрев несколько книг,я не нашел или не понял как мне получить результат. PROGRAM RAND REAL A, A_RAND(0:3) REAL B, B_RAND(0:3) CALL RANDOM_NUMBER(A) CALL RANDOM_NUMBER(A_RAND) CALL RANDOM_NUMBER(B) CALL RANDOM_NUMBER(B_RAND)
Fortran Написал программу для половинного деления, но количество итераций и сам результат странно выдает
subroutine iteration(a,b,c,N,eps,f) external f real :: a,b,N,c do while (abs(a-b)>eps.or.N<10) c=(a+b)/2 if (f(a)*f(c)<0)then b=c else a=c end if
Fortran Сравнение массивов Добрый день. Стоит такая задача. Имеются два набора координат - X и X1 (см. код). Для первого набора координат заданы значения функции - A. Далее необходимо сравнить между собой наборы координат (X и X1). Если координата из второго набора совпадает с координатой из первого, то ей присваивается соответствующее значение функции. Если не совпадает, то присваивается значение 0.2. Пример:... https://www.cyberforum.ru/ fortran/ thread2733548.html Fortran Найти положительные четные значения в целочисленном двумерном массиве С (3´6 элементов) и вычислить сумму их индексов https://www.cyberforum.ru/ fortran/ thread2730335.html
Матрицу привести смог, а дальше как "отрезать" четные числа от нечетных и засуммировать сумму индексов не пойму. Помогите пожалуйста. program MASSIVE integer, dimension(3, 6) :: MATRIX data MATRIX /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18/ I=1; print*, (MATRIX(I, J), J = 1, 6) I=2; print*, (MATRIX(I, J), J = 1, 6) I=3; print*, (MATRIX(I, J), J = 1, 6) end
Fortran Не понимаю как это работает в фортране
Дана функция F = (x + max(x, y, z)) / (y^2 + max (y, z), вообще не знаю что писать и c чего начать.
Fortran Не пойму как исправить исправить ошибку subroutine iteration(a,b,c,N) real :: a,b,N,c do while (abs(a-b)>eps.or.N<10) c=(a+b)/2 if (f(a)*f(c)<0)then b=c else a=c end if N=N+1 https://www.cyberforum.ru/ fortran/ thread2729272.html
6838 / 4897 / 2068
Регистрация: 02.02.2014
Сообщений: 13,062
11.12.2020, 20:07 0

С клавиатуры вводятся четыре целых числа. Написать и отладить программу - Fortran - Ответ 15088781

11.12.2020, 20:07. Показов 1456. Ответов 17
Метки (Все метки)

Ответ

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
program test
implicit none
 
integer, parameter      :: n = 4
integer                 :: i, a, s, p, k1 ,k2
 
     s = 0 ! начальное значение суммы
     p = 1
     k1 = 0
     k2 = 0
    !Введем с клавиатуры 4 числа
    do i = 1, n
        print 100, "Число", i, " = ";
        read *, a
 
        ! проверяем, число больше 10?
        if (a>10) s = s+a
 
        ! проверяем кратность 3
        if (mod(a,3)==0) p=p*a
 
        ! проверка четности
        if (mod(a,2)==0) then
           k1 = k1+1
        else
           k2 = k2+1
        endif
    end do
 
    !И выводим результаты на экран
    print *, s, p, k1, k2
100 format (a, i3, a, $)
end program test


Вернуться к обсуждению:
С клавиатуры вводятся четыре целых числа. Написать и отладить программу Fortran
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2020, 20:07
Готовые ответы и решения:

С клавиатуры вводятся 3 целых числа a, b, c. Составить программу
Есть ли среди них число 25? Лежат ли эти числа в диапазоне от 3 до 15? Найти сумму для тех,...

С клавиатуры вводятся три целых числа- а,в,с. Составьте программу для определения и вывода сообщения
Здравствуйте, помогите пожалуйста написать код на питоне. Надеюсь кто-нибудь откликнется и поможет)...

Даны четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры
Добрый вечер, помогите пожалуйста с паскалем. Даны четыре произвольных числа a, b, c, d, которые...

Числа вводятся с клавиатуры до тех пор, пока не напишем 0. Написать программу для вычисления
Собственно вот картинка...

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

С клавиатуры вводятся 3 целых числа: N, A и B (процедура 1) Они передаются в процедуру 2
С клавиатуры вводятся 3 целых числа: N, A и B (процедура 1). Они передаются в процедуру 2. В...

С клавиатуры вводятся шесть целых чисел. Вывести все целые числа x [-10,10]
С клавиатуры вводятся шесть целых чисел, являющихся коэффициентами уравнения пятой степени. Вывести...

С клавиатуры вводится четыре целых числа: v, r, p, b. На экран выводится одно целое число
Оксанка собрала v васильков и r ромашек. Девочка решила сделать букеты так, чтобы в каждом...

С клавиатуры последовательно вводятся 3 целых числа. Необходимо ввести их на экран в порядке возрастания
С клавиатуры последовательно вводятся 3 целых числа. Необходимо ввести их на экран в порядке...

С клавиатуры вводятся два целых числа. Сравнить эти числа. Результат вывести в виде 3<5 или 3=3, или 3>2
Добрый День , дали задачу которую нужно написать на языке C++ , помогите с решением, заранее...

Написать программу, которая вводит с клавиатуры три целых числа и записывает в логическую переменную значение true, е
Уважаемые форумчане, подскажите, что не так в коде, вроде все правильно, но мне выдает такие ошибки...

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