Главная » Файлы » FORTRAN » Интересные программы.

Сборник программ по информатике (FORTRAN+Паскаль) +условия
[ · Скачать удаленно (8.8 Mb) ] 18.03.2009, 18:25

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

 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. Дан текст. Определить в нем кол-во слов 'кот'.

Автор неизвестен...скачан с http://mpeistudy.ru/

Категория: Интересные программы. | Добавил: Anti-di
Просмотров: 10139 | Загрузок: 1662 | Комментарии: 10 | Рейтинг: 1.0/1
Всего комментариев: 9
9 Катя  
0
помогите пожалуйста решить:
если есть среди чисел a, b и c, пара взаимно противоположных, вывести третье(оставшееся) число, в противном случае вывести сигнал "нет"

8 ELOPEBROSPARA  
0
Просто хорошая страничка

7 Маруська  
0
помогите блок-схему написать с массивом
задача Дано N натуральных чисел Найти произведение только только нечетных из данных чисел ( язык Паскаль) очень срочно!!!!
пожалуйста

6 вик  
0
дана последовательность слов, как их(слова) отсортировать в алфавитном порядке???

5 Anti-di  
0
все исправлено..теперь есть и Фортран

4 SANJIK  
0
это не fortran!это pascal!

3 svorob  
0
помогите решить на фортране плиз!
В матрице Z заменить нулями все элементы, расположенные выше главной диагонали.
Элементы матрицы вывести построчно.

0.1 0.4 0.65 -0.8
Z= 0.2 -0.5 0.6 1.2
3.4 5.7 -6.4 0.7
0.9 1.2 7.2 -7.3 sad


2 Anti-di  
0
Кент ...пишите на форуме!!!...это во-первых...во-вторых если я за вас буду писать проги вы ничему не научитесь!!! если есть конкретные вопросы то пожалута...

1 keNt  
0
Помогите пожалуста решить прогу:
Задан целочисленный массив N*M. Каждая строка массива упорядочена по возрастанию. Найти и напечатать число, встречающееся во всех строках, и напечатать надпись НЕТ, если тако-го числа не окажется. Использовать ввод, вывод из/в файл
Зарание спасибо.

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]