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

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

Алгоритм. 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Р,где...

Виды сухожильных швов После выделения культи сухожилия и эвакуации гематомы приступают к восстановлению целостности сухожилия...

КОНСТРУКЦИЯ КОЛЕСНОЙ ПАРЫ ВАГОНА Тип колёсной пары определяется типом оси и диаметром колес. Согласно ГОСТ 4835-2006* устанавливаются типы колесных пар для грузовых вагонов с осями РУ1Ш и РВ2Ш и колесами диаметром по кругу катания 957 мм. Номинальный диаметр колеса – 950 мм...

Философские школы эпохи эллинизма (неоплатонизм, эпикуреизм, стоицизм, скептицизм). Эпоха эллинизма со времени походов Александра Македонского, в результате которых была образована гигантская империя от Индии на востоке до Греции и Македонии на западе...

Тема: Изучение приспособленности организмов к среде обитания Цель:выяснить механизм образования приспособлений к среде обитания и их относительный характер, сделать вывод о том, что приспособленность – результат действия естественного отбора...

Тема: Изучение фенотипов местных сортов растений Цель: расширить знания о задачах современной селекции. Оборудование:пакетики семян различных сортов томатов...

Тема: Составление цепи питания Цель: расширить знания о биотических факторах среды. Оборудование:гербарные растения...

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