2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Задача по Fortran 77
Сообщение08.12.2006, 19:30 
Аватара пользователя
Здравствуйте. Мне нужно написать небольшую програмку на Fortran 77, но я совершенно не представляю, как это сделать, не смотря на то, что все нужные операторы я знаю. Помогите пожалуйста.

Запросить ввод и ввести K<20 целых чисел $a_1,... ,a_k$. Предварительно должно быть запрошено и введено текущее значение элементов K. Обеспечить контрольный вывод введенного вектора. Оставить в последовательноститолько элементы с нечетными значениями, вывести преобразованную последовательность; подсчитать и вывести сумму элементов с четными значениями.

 
 
 
 
Сообщение11.12.2006, 23:45 
Аватара пользователя
Вообще, блин, ни одного героя! :( . Хоть чем нибудь бы помогли.

Я вот все думал, думал... потом спросил у однокурсника: он подал хорошую идею.

 
 
 
 
Сообщение12.12.2006, 19:31 
Аватара пользователя
 !  нг:
Cobert: замечание за подъем темы (правила I.1.м).


Добавлю, что, по-видимому, Ваша задача никого не заинтересовала. Непонятно, что Вам не понятно (вроде все тривиально), писать программу за Вас — глупо (и никому не нужно). Может быть, если бы Вы поставили вопрос по-другому (например, опубликовав свой вариант решения), Вы бы получили больший отклик.

 
 
 
 
Сообщение13.12.2006, 00:02 
Аватара пользователя
Да, собственно, сейчас это уже не важно. Я сам написал. Просто с самого начала даже и не знал с чего начать, т.к. опыта программирования вообще не имею за молодостью курса =)

Вот мой вариант:

Код:
_______PROGRAM EX22
_______DIMENSION J(19)
_______INTEGER S,A,B
_______S=0
_______WRITE(*,7)
_____7_FORMAT(10X,'ENTER QUANTITY OF ELEMENTS OF THE FILE LESS THAN 20')
_______READ(*,*)A
_______IF (A.GE.20) THEN
_______WRITE(*,9)
_____9_FORMAT(10X,'THE SET QUANTITY OF ELEMENTS OF THE FILE DOES'
______&'NOT SATISFY TO THE CONDITION OF THE PROBLEM')
_______STOP
_______ENDIF
_______WRITE(*,1)
_____1_FORMAT (10X,'INPUT WHOLES NUMBERS')
_______DO 10 N=1,A
_______READ(*,*)J(N)
___10__CONTINUE
_______WRITE(*,2)
____2_ FORMAT (10X,'CONTROL CONCLUSION OF THE ENTERED VECTOR')
_______WRITE(*,*)J
_______WRITE(*,4)
_______DO 3 I=1,A
_______M=(J(I)/2)*2
_______IF (M.NE.J(I)) THEN
_______M=J(I)
_______ELSEIF (M.EQ.J(I)) THEN
_______M=0
_______ENDIF
_______WRITE(*,*)M
____3__CONTINUE
____4__FORMAT(10X,'CONCLUSION OF ODD VALUES')
_______WRITE(*,5)
____5__FORMAT (10X,'THE SUM OF ELEMENTS WITH ODD VALUES')
_______DO 6 I=1,A
_______L=(J(I)/2)*2
_______IF (L.EQ.J(I)) THEN
_______L=J(I)
_______ELSEIF (L.NE.J(I)) THEN
_______L=0
_______ENDIF
_______S=S+L
____6__CONTINUE
_______WRITE(*,*)S
_______END


Добавлено спустя 54 минуты 3 секунды:

И еще. У меня вопросик. Fortran 2003 вышел? Его можно скачать? А то меня немного бросает в сомнения, что версия 77 является достаточным аргументом для свободного программирования в наше время.

 
 
 
 
Сообщение14.12.2006, 10:50 
Аватара пользователя
Интересно, а в каком учебном заведение требуют Fortran ?

 
 
 
 
Сообщение14.12.2006, 13:03 
sexstant писал(а):
Интересно, а в каком учебном заведение требуют Fortran ?

Например в МЭИ информатика на 1 курсе - Fortran 77:))
Курсовой проект - создание примитивной базы данных, работа с файлами, добавление-удаление записей, бинарный поиск + сортировка Шелла. Актуальность и значимость такого курса не обсуждается:)
Или программы по графам, теорию которых преподают в таком виде, что...:)

 
 
 [ Сообщений: 6 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group