Главная » Файлы » FORTRAN

В разделе материалов: 12
Показано материалов: 1-10
Страницы: 1 2 »

*****************************************************************
Описание содержимого наборов данных
ПАКЕТА НАУЧНЫХ ПРОГРАММ на языке Фортран IV
( он же пакет программ для научных исследований фирмы IBM )

Источник: ПНП Фортран IV. Общее описание.
ПРО.309.004 Д
Эстонское НПО ВТИ 1983г.
Веселовский В.Н.
*****************************************************************

PNPFS - имя папки, содержащей подпрограммы пакета в виде
исходных модулей на языке Фортран IV ДОС ЕС ЭВМ.

PNPFTES - имя папки, содержащей исходные модули программ-
примеров, тестирующие некоторые программы пакета.
Каждая программа-пример состоит из головной программы
и нескольких подпрограмм пакета.

OPER.DATA - имя последовательного набора данных,
содержащего входные данные для программы-примера OPER.

BOL.DATA - имя последовательного набора данных,
содержащего входные данные для программы-примера BOL.


********************************************************************
Интересные программы. | Просмотров: 12616 | Загрузок: 2164 | Добавил: vsl | Дата: 12.02.2011 | Комментарии (8)

----------------

Огромный архив программ, для начинающих самый раз!!!

И помните списывать плохо!!! лучше учитесь на чужих ошибках!!!

 1. Задана линейная таблица, состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k.
 2. Даны n чисел. Определить яв-ся ли они взаимно простыми т.е. имеют общий делитель отличный от единицы.
 3. Встречаются ли в разложении числа на простые множители одинаковые множители.
 4. Найти все простые делители натурального числа N.
 5. Дан текст. Найти все палиндромы (т.е. слова-перевертыши) в этом тексте.
 6. Дана строка слов разделенных пробелом, в конце строки точка. Поменять местами два центральных слова если их количество четно.
 7. Определить можно ли из символов входящих в строку а, составить строку с.
 8. Уплотнить линейный массив удалив нули и сдвинув влево остальные элементы.
 9. Найти в одномерном числовом массиве элемент, который наибольшее кол-во раз повторяется в массиве. Вывести это число и кол-во его вхождений в массив.
10. Дан одномерный массив размерностью N из положительных и отрицательных чисел. Упорядочить его так, чтобы в начале располагались все отрицательные, а затем все положительные элементы, сохранив порядок следования и не создавая новый массив.
11. Дан прямоугольный целочисленный массив размером N*N. Определить яв-ся ли данный массив магическим квадратом, т.е. сумма элементов в строках, столбцах и на главных диагоналях равна.
12. Составить программу, которая размещает элемент s неупорядоченного массива A на место, соответствующее ему в упорядоченном массиве.
13. Женщина шла на базар и разбила яйца, лежавшие у неё в корзине. Она сказала, что не знает сколько яиц у неё было, но когда она брала по 2,3,4,5 и 6 яиц то оставалось в остатке одно. Когда же она брала по 7 яиц, то ничего не оставалось в остатке. Сколько яиц могло быть в корзине.
14. Вводится слово из N различных букв (N<10). Получить все возможные слова из S букв этого слова(S<=N)
15. Дана матрица N*N.
 1)заменить нулями элементы, расположенные на главной диагонали и выше (ниже) её;
 2)найти сумму элементов, расположенных на побочной диагонали и выше (ниже) её;
 3)найти максимальный из элементов, расположенных на побочной диагонали и выше (ниже) её;
 4) найти произведение элементов, расположенных на побочной диагонали и выше (ниже) её.
16. Из семи красных и восьми белых роз требуется составить букет из пяти роз. Перечислить все возможные варианты.
17. На клеточном листе бумаги размером MхN расположены прямоугольники. Задан массив MхN в котором элемент a[i,j]=1 если клетка листа (i,j) яв-ся частью прямоугольника, и a[i,j]=0 если это пустая клетка. Напечатать число прямоугольников.
18. Напечатать все совершенные числа меньше m}. Справка: Совершенными называются числа сумма делителей включая 1, которых равна самому числу, делители не должны быть равны самому числу.
19. Дан прямоугольный массив состоящий из различных элементов. В каждой строке выбирается минимальный элемент, а среди них максимальный элемент. Напечатать номер строки в кот расположено полученное число.
20. Дана таблица, поменять местами строки и столбцы.
21. Любую сумму больше 7 можно выплатить без сдачи трешками и пятерками т.е. для n>7 найти все целые неотрицательные а и b, что 3а+5b=n
22. Два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого, кроме самого этого числа. Найти все пары в данном
диапазоне.
23. Найти наибольшее число из данного диапазона у которого наибольшее количество делителей.
24. Два двузначных числа, записанных одно за другим образуют четырехзначное число, которое делится на их произведение. Найти эти числа.
25. Найти натуральные числа из данного диапазона у которых количество делителей является произведением двух простых чисел.
62. Ввести список фамилий в любом порядке. Распечатать список в алфавитном порядке.
27. Определить, какая цифра находится в позиции числовой последовательности. 1011112131415...979899-подряд выписаны все двузначные числа.
28. Вывести список шестизначных чётных чисел, делящихся без остатка на сумму своих цифр в 10 колонок.
29. Вывести список трёхзначных чисел, делящихся без остатка на произведение своих цифр в 5 колонок. Поставить защиту от деления на ноль.
30. Вывести список симметричных нечётных чисел (например 34543 или 70507) в 5 колонок.
31. Вывести список шестизначных "счастливых" чисел (сумма первых трёх цифр равна сумме трёх последних), кратных семи в 10 колонок
32. Определить кол-во слов в строке. Слова отделяются одним или несколькими пробелами.
33. Определить номера позиций и кол-во повторений запрашиваемого символа в строке введённой с клавиатуры.
34. Найти и заменить определённый символ в строке введённой с клавиатуры. Программа должна запрашивать заменяемый и заменяющий символы, а также подтверждение каждой замены символа с сообщением его номера в строке.
35. Определить самое короткое и самое длинное слово в строке введённой с клавиатуры.
36. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы вначале шли элементы меньше среднего значения по всему массиву С.
37. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы массива А имели в С нечётные номера.
38. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы массива А имели номера от 51 до 150.
39. Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы А и В чередовались по 10 штук.
40. Составить программу, создающую из файла копию, но записанную задом наперёд.
41. Составить программу, удаляющую в файле текст после первой точки.
42. Найти остаток от деления числа, записываемого с помощью

  k семёрок, на число а (k и a -заданные натуральные числа).
43. На интервале (1000 .. 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр записи этого числа равна сумме третьей и четвёртой цифр.
44. Среди простых чисел, не превосходящих n, найти такое, в двоичной записи которого максимальное число единиц.
45. Найти двоичное представление для чётных совершенных чисел вида 2(p-1)*((2p)-1)
46. Задана последовательность состоящая из единиц и нулей. Определить кол-во М-значных чисел, входящих в указанную последовательность, которые делятся на 21.
47. Можно ли заданное натуральное число M представить в виде суммы двух квадратов натуральных чисел.
48. Найти минимальное число, которое представляется суммой четырёх квадратов натуральных чисел не единственным образом.
49. Даны числа M,N и двумерный массив M*N. Некоторый элемент массива назовем седловой точкой, если он яв-ся одновременно наименьшим в своей строке и наибольшим в своём столбце. Напечатать координаты какой-нибудь седловой точки.
50. Дан массив А(N) и число М. Найти такое множество элементов
A(i1),A(i2),...A(ik) (1<=i1<...<ik<=N), что A(i1)+A(i2)+...+A(ik)=M.
Предполагается, что такое множество заведомо существует.
51. Получить все способы расстановки шести книг разных авторов.
52. Для участия в конкурсе из класса в 20 человек требуется выбрать троих.
Сколькими способами это можно сделать.
53. Получить все четырёхзначные числа, у которых все цифры нечётные.
54. Даны 4 точки заданные координатами. Является ли данная фигура трапецией.
55. Определить наименшее число, которое при делении на 2,3,4,5,6,7,8,9 дает одинаковые остатки - 1.
56. Определить k - кол-во трёхзначных чисел сумма цифр которых равна a. (1<=a<=27)
57. Даны стороны треугольника : a,b,c. Вычислить косинус углов по теореме косинусов : sqr(c)=sqr(a)+sqr(b)-2ab*cos(alfa)
58. Пара кроликов каждый год дает приплод двух (самку и самца) которые через 2 месяца способны давать новый приплод. Сколько кроликов будет через год.
59. Дано предложение t. Заменить в нем слово 'потоп' словом 'потопкот'.
60. Дан текст. Определить в нем кол-во слов 'кот'.


Интересные программы. | Просмотров: 10138 | Загрузок: 1662 | Добавил: Anti-di | Дата: 18.03.2009 | Комментарии (9)

FORTRAN

----------------

В заданном тексте подсчитать количество предложений(строк) ,в которые входит заданное слово.

зад-5.1 вар-5

Автор: Зайцев Антон

----------------

Задачи на текст. | Просмотров: 1142 | Загрузок: 287 | Добавил: Anti-di | Дата: 03.08.2008 | Комментарии (0)

FORTRAN

-----------------------

Составить базу данных о студентах университета.

Файл отчет состоит из:Фамилия.Имя.Отчество студента ,год поступления,год окончания,специальность...и т.д(можно дописать все что душе угодно).

Так же предусмотреть возможность (помимо создания файла и его просмотра) поиска студента выборочно и если требуесть удалить файл-отчет.

Задачи на файлы. | Просмотров: 1130 | Загрузок: 302 | Добавил: Anti-di | Дата: 14.07.2008 | Комментарии (1)

FORTRAN
-------------------
Зад-5.1 Вар-1
В заданном тексте вычислить количество слов в тексте и распечатать их по одному в строке.




--------------------
Автор: Зайцев Антон




Задачи на текст. | Просмотров: 1083 | Загрузок: 297 | Добавил: Anti-di | Дата: 04.06.2008 | Комментарии (0)

FORTRAN
--------------------- 
Исходный файл содержит сведения о пациентах больницы типа:
-ФИО
-год рождения
-адрес
-группа крови
-основное заболевание
-дата последнего посещения врача


Задача:Отобрать  информацию о больных с указанным заболеванием, не посещавших  врача  более 3-х месяцев.
Упорядочить этот файл в порядке убывания времени  прошедшего со дня последнего посещения больницы.
----------------------
Задачи на файлы. | Просмотров: 2202 | Загрузок: 650 | Добавил: Anti-di | Дата: 24.05.2008 | Комментарии (0)

FORTRAN
---------------
зад-4.3.3  вар-9
 
Переставить  в каждом  столбце  прямоугольнай  матрицы все  отрицательные элементы в конец столбца. Распечатать часть полученной  матрицы,состоящую  из  n первых  строк,не имеющих  отрицательных  элементов.
 
---------------
Автор:Зайцев Антон
Задачи на подпрограммы. | Просмотров: 1084 | Загрузок: 399 | Добавил: Anti-di | Дата: 06.03.2008 | Комментарии (0)

FORTRAN
-------------------
 
Зад-5.1 Вар-10
 
В тексте в каждой строке осуществить перестановку символов таким образом, чтобы
первый символ  стал последним, второй  предпоследним и т.д.
 
--------------------
Автор: Зайцев Антон
Задачи на текст. | Просмотров: 971 | Загрузок: 268 | Добавил: Anti-di | Дата: 20.02.2008 | Комментарии (0)

FORTRAN
--------------
Задание:Вывести  на  экран  матрицу  размером (9,9)  и найти  суммы ее строк
 
--------------
Автор:Зайцев Антон
Задачи на матрицы. | Просмотров: 5694 | Загрузок: 527 | Добавил: Anti-di | Дата: 16.01.2008 | Комментарии (6)

FORTRAN
-------------
 
Вариант 14-й
 
В матрице найти  суммы  строк, найти  среди  них  максим-е  и  мин-е ,  а также  в каждом столбце  матрицы  поставить  на  первое место  максимальный  элемент  ,а    на  последнее место  в  столбце - мин-й .
 
------------
Автор:Зайцев Антон
Задачи на подпрограммы. | Просмотров: 1050 | Загрузок: 249 | Добавил: Anti-di | Дата: 25.12.2007 | Комментарии (0)

1-10 11-12