Мне ответить на вопрос для программирования на фортране. это мой вопрос: «введите 10 одномерных массивов. перепишите элементы массивов построчно в квадратной матрице, расположив их в порядке убывания значений. распечатайте матрицу ».
это моя кодировка, но результат для матрицы (5,4) неверен.
program array_matrix
implicit none
integer, dimension(: ),allocatable : : a,b,c
integer,allocatable: : matrix(: ,: )
integer i,j,temp,n,r,t
print*,'n'
read(*,*) n
allocate(a(n))
print*,'a'
do i=1,n
read(*,*) a(i)
end do
allocate(b(n))
print*,'b'
do i=1,n
read(*,*) b(i)
end do
allocate(c(n+n))
c(1: n)=a
c(n+1: n+n)=b
do i=1,n+n-1
do j=i+1,n+n
if(c(i) temp=c(i)
c(i)=c(j)
c(j)=temp
end if
end do
end do
print*, c
allocate(matrix(5,4))
do r= 1,5
do t= 1,4
matrix(r,t)=c( )
end do
end do
print *, 'matrix='
do r = 1,4
write(*,*) (matrix(r,t), t=1,5)
end do
pause
end program
1) ГТФИ:; 2) ГТФИ::; 3) ТФИ:; 4) ТФИ::.
2.Составить алгоритм, в результате выполнения которого Мячик соберет слово КОЛОКОЛ.
Решением каждой из нижепредложенных задач должна являться работающая программа. Предполагается, что входные данные во всех задачах корректны, и полностью соответствуют приведенным в условии ограничениям – дополнительно проверять это не нужно.
Задача «Манхэттенские улицы»
Система улиц Нью-Йоркского района Манхэттен весьма интересна. В Манхеттене есть N улиц, идущие с Севера на Юг (авеню), и M улиц, идущие с Запада на Восток (улицы). Ширина каждого авеню и каждой улицы равна D метров, а длина — L метров. При этом каждая улица пересекает каждый авеню и не имеет общих точек с другими улицами, а каждый авеню пересекает каждую улицу и не имеет общих точек с другими авеню.
Разумеется, все авеню и все улицы имеют асфальтовое покрытие. На перекрестках, естественно, асфальт уложен в один слой. Дорожно-ремонтные службы интересуются, сколько квадратных метров асфальта уложено на все авеню и улицы. Напишите программу, отвечающую на этот вопрос.
Формат ввода
Вводится четыре натуральных числа N, M, D, L.
1 ≤ N ≤ 1000, 1 ≤ M ≤ 1000, 1 ≤ D ≤ 100, 1 ≤ L ≤ 10000, L > MD, L > ND.
Формат вывода
Выведите одно число – ответ на задачу.
Примеры
Пример ввода
Пример вывода
75
Задача «Кока-кола»
Одна баночка кока-колы стоит B рублей. Пустую баночку из-под кока-колы можно сдать и получить за нее E рублей.
У Васи есть R рублей. Он покупает кока-колу, выпивает ее, сдает баночку, снова покупает кока-колу и так далее до тех пор, пока имеющихся у него денег (после сдачи очередной баночки) хватает на покупку кока-колы.
Сколько всего банок кока-колы он выпьет?
Формат ввода
Вводится три натуральных числа B, E, R (1 ≤ E < B ≤ 30000, 1 ≤ R ≤ 30000).
Формат вывода
Выведите одно число – количество баночек, которое сможет выпить Вася.
Примеры
Пример ввода
Пример вывода
2 1 3
2
3 1 13
6
2 1 1
0
Задача «Сверхпростые числа»
Простым числом называется натуральное число, большее единицы и делящееся только на единицу и на само себя. Выпишем все простые числа в порядке возрастания и пронумеруем их. Первым простым числом будет 2, вторым – 3, третьим – 5 и так далее.
Будем называть сверхпростыми простые числа, имеющие номера, также являющиеся простыми числами.
Напишите программу, которая по введенному числу K будет находить K-ое по величине сверхпростое число.
Формат ввода
Вводится одно натуральное число K (1 ≤ K ≤ 500)
Формат вывода
Выведите одно число – K-ое по величине сверхпростое число.
Примеры
Пример ввода
Пример вывода
1
3
2
5
3
11
100
3911
алгоритм в виде блок-схемы (рис. 27). Что
получится на выходе блок-схемы, если: Реализован некоторый
алгоритм в виде блок-схемы (рис. 27). Что
получится на выходе блок-схемы, если: Реализован некоторый
алгоритм в виде блок-схемы (рис. 27). Что
получится на выходе блок-схемы, если: Реализован некоторый
алгоритм в виде блок-схемы (рис. 27). Что
получится на выходе блок-схемы, если: Реализован некоторый
алгоритм в виде блок-схемы (рис. 27). Что
получится на выходе блок-схемы, если: