|
|
Наибольшее простое число, не превосходящее 1000; наименьший элемент в массиве из 25 чиселЗадание 1: Найти наибольшее простое число, не превосходящее 1000. Простое число - число, которое делится на 1 и на само себя. Поиск больших простых чисел связан с привлечением современной компьютерной техники и основан на специальном алгоритме Люка-Лемера, который связан с понятиями чисел Мерсенна, Ферма, Каллена и т. п. За приемлемое время современные вычислительные средства позволяют разложить числа в 100 знаков. Самое большое найденное простое число на сегодня состоит из 11811 цифр. Простые числа длиной в несколько знаков целесообразно искать последовательным делением на весь ряд предшествующих простых чисел. Программа построена на алгоритме, который, отталкиваясь от первого простого числа (2) последовательно находит все последующие простые числа в границах заданного диапазона. Последнее число из подобного ряда будет наибольшим и принимается в качестве ответа для задания. Поиск производится последовательным делением на все простые числа, предшествующие рассматриваемому числу. Каждое найденное простое число включается в список делителей и участвует в поиске следующего простого числа. 10 PRINT "ПОИСК ПРОСТЫХ ЧИСЕЛ" название программы 20 INPUT "Диапазон поиска от 0 до ", A ввод верхней границы поиска 30 PRINT 2 печать первого простого числа 40 DIM C(A) описание массива 50 B=2: F=1: C(1)=2 задание констант 60 B=B+1 вычисление числа для исследования 70 FOR I=1 TO F открытие цикла 80 D=B/C(I) деление числа на известные простые числа 90 E=INT(D) округление результата 100 IF E=D THEN 60 проверка деления нацело 110 NEXT I конец цикла 120 F=F+1 увеличение количества чисел в списке 130 C(F)=B запись в список нового простого числа 140 IF B>A THEN 180 проверка на выход из диапазона поиска 150 PRINT B печать найденного простого числа 160 K=B запоминание последнего из найденного 170 GOTO 60 переход к новому исследуемому 180 PRINT "Наибольшее простое число: ",K печать результата 190 STOP останов Задание 2: В массиве из 25 вещественных чисел найти наименьший элемент и поменять его местами с первым элементом. Программа отыскивает наименьший элемент в произвольно заданном одномерном массиве и обменивает его местами с первым элементом. Для наглядности на экран выводятся заданный и изменённый массивы. 10 PRINT "ПОИСК НАИМЕНЬШЕГО ЭЛЕМЕНТА" 20 INPUT "Количество элементов? ",N 30 DIM A(N) 40 FOR I=1 TO N 50 INPUT A(I) 60 NEXT I 70 MIN=A(1) 80 FOR I=2 TO N 90 IF MIN>A(I) THEN MIN=A(I): C=I 100 NEXT I 110 PRINT "Наименьший элемент: ", MIN 120 PRINT "Заданный массив: " 130 FOR I=1 TO N 140 PRINT A(I) 150 NEXT I 160 D=A(1): A(1)=A(C): A(C)=D: PRINT 170 PRINT "Искомый массив: " 180 FOR I=1 TO N 190 PRINT A(I)";" 200 NEXT I * Программы апробированы в 210 STOP среде BASIK на PC AT Pentium. Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками, графиками, приложениями и т.д., достаточно просто её СКАЧАТЬ.  |
|
Банк готовых работ
Форма заказа
Скачать работу
экономические  Copyright © refbank.ru 2005-2024
Все права на представленные на сайте материалы принадлежат refbank.ru. Перепечатка, копирование материалов без разрешения администрации сайта запрещено. |
|