Студопедия — PROGRAM PRG2_1;
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

PROGRAM PRG2_1;






VAR I, N, F: INTEGER;

BEGIN

{ДАНО НАТУРАЛЬНОЕ ЧИСЛО N. ОПРЕДЕЛИТЬ, ЯВЛЯЕТСЯ ЛИ ОНО ПРОСТЫМ.}

REPEAT

WRITE('BBEДИTE НАТУРАЛЬНОЕ ЧИСЛО N = ');

READLN (N);

UNTIL N>0;

F:= 0;

FOR I:= 2 TO N DIV 2 DO

IF N MOD I = 0 THEN F:= 1;

IF F = 0 THEN

WRITELN(¢ЧИСЛО', N: 6, ' ПРОСТОЕ')

ELSE

WRITELN('ЧИСЛО ', N: 6,' НЕ ПРОСТОЕ')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим натуральное число;

- в интервале от 2 до N/2 порождаем натуральные числа и проверяем, являются ли они делителями числа N;

- в зависимости от значения флага F выводим результат.

Переменные:

N - исследуемое число;

I - переменная цикла;

F - вспомогательный флаг.

ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = 25

ЧИСЛО 25 НЕ ПРОСТОЕ

ВВЕДИТЕ НАТУРАЛЬНОЕ ЧИСЛО N = 31

ЧИСЛО 31 ПРОСТОЕ

Рис. 2.1. Результат работы PRG2_1

Задача 2.2 Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале.

PROGRAM PRG2_2;

VAR I, N, F, J, R, M: INTEGER;

BEGIN

{ДАН ИНТЕРВАЛ НАТУРАЛЬНЫХ ЧИСЕЛ ОТ N ДО М.

ОПРЕДЕЛИТЬ ВСЕ ПРОСТЫЕ ЧИСЛА В ЭТОМ ИНТЕРВАЛЕ.}

REPEAT

WRITE ('ВВЕДИТЕ НИЖНЮЮ ГРАНИЦУ ИНТЕРВАЛА N =');

READ (N);

WRITE('BBEДИTE ВЕРХНЮЮ ГРАНИЦУ ИНТЕРВАЛА М =');

READLN (М);

UNTIL (N>0) AND(M>0) AND(N<M);

WRITELN('B ПРОМЕЖУТКЕ ОТ', N: 6, 'ДО', М: 6);

R:=0;

FOR J:= N ТО М DO

BEGIN

F:=0;

FOR I:= 2 TO J DIV 2 DO

IF J MOD I = 0 THEN F:= 1;

IF F = 0 THEN

BEGIN R:= 1;

WRITELN('ЧИСЛО', J: 6, 'ПРОСТОЕ');

END;

END;

IF R = 0 THEN WRITELN('ПРОСТЫХ ЧИСЕЛ НЕТ')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим натуральные числа М и N;

- в цикле по переменной J начинаем.порождение натуральных чисел;

- во вложенном цикле по I проверяем, простое ли число J;

- в зависимости от значения флагов F и R выводим результат.

Переменные:

N, М - границы интервала;

I, J - переменные циклов;

F, R - вспомогательные флаги.

Задача 2.3 Дано натуральное число N. Определить все про­стые числа, не превосходящие N.







Дата добавления: 2015-09-07; просмотров: 447. Нарушение авторских прав; Мы поможем в написании вашей работы!



Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...

Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Типовые ситуационные задачи. Задача 1. Больной К., 38 лет, шахтер по профессии, во время планового медицинского осмотра предъявил жалобы на появление одышки при значительной физической   Задача 1. Больной К., 38 лет, шахтер по профессии, во время планового медицинского осмотра предъявил жалобы на появление одышки при значительной физической нагрузке. Из медицинской книжки установлено, что он страдает врожденным пороком сердца....

Типовые ситуационные задачи. Задача 1.У больного А., 20 лет, с детства отмечается повышенное АД, уровень которого в настоящее время составляет 180-200/110-120 мм рт Задача 1.У больного А., 20 лет, с детства отмечается повышенное АД, уровень которого в настоящее время составляет 180-200/110-120 мм рт. ст. Влияние психоэмоциональных факторов отсутствует. Колебаний АД практически нет. Головной боли нет. Нормализовать...

Эндоскопическая диагностика язвенной болезни желудка, гастрита, опухоли Хронический гастрит - понятие клинико-анатомическое, характеризующееся определенными патоморфологическими изменениями слизистой оболочки желудка - неспецифическим воспалительным процессом...

Сущность, виды и функции маркетинга персонала Перснал-маркетинг является новым понятием. В мировой практике маркетинга и управления персоналом он выделился в отдельное направление лишь в начале 90-х гг.XX века...

Разработка товарной и ценовой стратегии фирмы на российском рынке хлебопродуктов В начале 1994 г. английская фирма МОНО совместно с бельгийской ПЮРАТОС приняла решение о начале совместного проекта на российском рынке. Эти фирмы ведут деятельность в сопредельных сферах производства хлебопродуктов. МОНО – крупнейший в Великобритании...

ОПРЕДЕЛЕНИЕ ЦЕНТРА ТЯЖЕСТИ ПЛОСКОЙ ФИГУРЫ Сила, с которой тело притягивается к Земле, называется силой тяжести...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия