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

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

Алгоритм. 2. Пока нет признака конца последовательности выполнять





1. Ввести первое число.

2. Пока нет признака конца последовательности выполнять

2.1. Положить число простое

2.2. Для делителя от 2 до ]число/2[ выполнять

если число делится на делитель, то

а) вывести делитель и

б) изменить предположение – «не простое».

2.3. Если число простое, то вывести: " простое число"

2.4. Прочитать следующее число.

3. Закончить.

Программа для этого алгоритма будет иметь вид

Program Dividers;

Const

d=2;

Var

Num, Del, P: Integer;

Begin

Writeln ('Введите число'); { п.1 }

Readln(Num);

{ п.2 }

While Num < > 0 Do

Begin

P: = 0; { п.2.1 – число простое }

For Del: = d To Num Div d Do

Begin

If Num Mod Del=0 Then

Begin

Write(Del);

P: = 1; { число не простое }

End;

End;

If P=0 Then{ п.2.3 }

Writeln('Число ', Num, ' - простое');

Writeln('Введите число'); { п.2.4 }

Read(Num);

End;

End.

В программе использован оператор While, так как уже первое число может быть нулем и цикл выполнять не нужно.

Сведем основные операторы языка Паскаль и описатели данных в табл. 2 и 3 соответственно.


Основные операторы языка Паскаль Таблица 2

 

Название Общий вид Действие Пример записи
1. Присваивания Переменная = выражение; Значение выражения записывается на место переменной X: = 0; Y: =A/B+C*D;
2. Ввода Read(список); Readln(список); Перепись данных с устройства ввода в ОП. Readln – переход на новую строку Read (X, Y, A);
3. Вывода Write(список); Writeln(список); Перепись данных из ОП на устройство вывода. Writeln - переход на новую строку Write ('X=', X: 8: 5.);
4. Условный If Условие Then Оператор1 Else Оператор2; Ветвление (выполнение оператора1 или оператора2) If X> 0 Then Y: = Sqrt(X) Else Y: =Sqr(X);
5. Выбора Case Выражение Of Значение1: Оператор1; ...... ЗначениеN: ОператорN; End; Ветвление по N направленям Case Month Of 3..5: Writeln(' Весна'); 6..8: Writeln(' Лето'); End;
6. Цикла со счечиком (For) For Пар.: = Н.З. To К.З. Do Оператор 1; For Пар.: = Н.З.Downto К.З. Do Оператор 1; Выполнение оператора1 n раз: n = кон.знач. – нач.знач.+1 Выполнение оператора1 n раз: n = нач.знач. – кон.знач.+1 S: = 0; For I: = 1 To 20 Do S: = S+I;
7. Цикла с постусловием Repeat Операторы Until Условие; Выполнение операторов пока условие " ложно". Выполняется не менее 1 раза. Num: = 1; Repeat Num: = Num*2; Until Num> 1000;
8. Цикла с предусловием While Условие Do Оператор1; Выполнение оператора 1 пока условие " истинно". Num: = 1; While Num< 1000 Do Num: = Num*2;
9. Заголовок программы Program Имя; Начало программы Program Pr1;
10. Начало блока операторов Begin Обозначение начала блока Begin
11. Конец блока, программы End; End. Обозначение конца блока или программы End; End.

 

Таблица 3.







Дата добавления: 2014-12-06; просмотров: 595. Нарушение авторских прав; Мы поможем в написании вашей работы!




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


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


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


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Травматическая окклюзия и ее клинические признаки При пародонтите и парадонтозе резистентность тканей пародонта падает...

Подкожное введение сывороток по методу Безредки. С целью предупреждения развития анафилактического шока и других аллергических реак­ций при введении иммунных сывороток используют метод Безредки для определения реакции больного на введение сыворотки...

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

ТЕОРИЯ ЗАЩИТНЫХ МЕХАНИЗМОВ ЛИЧНОСТИ В современной психологической литературе встречаются различные термины, касающиеся феноменов защиты...

Этические проблемы проведения экспериментов на человеке и животных В настоящее время четко определены новые подходы и требования к биомедицинским исследованиям...

Классификация потерь населения в очагах поражения в военное время Ядерное, химическое и бактериологическое (биологическое) оружие является оружием массового поражения...

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