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

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

Алгоритм. 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. Нарушение авторских прав; Мы поможем в написании вашей работы!




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


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


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


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

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

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

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

БИОХИМИЯ ТКАНЕЙ ЗУБА В составе зуба выделяют минерализованные и неминерализованные ткани...

Типология суицида. Феномен суицида (самоубийство или попытка самоубийства) чаще всего связывается с представлением о психологическом кризисе личности...

ОСНОВНЫЕ ТИПЫ МОЗГА ПОЗВОНОЧНЫХ Ихтиопсидный тип мозга характерен для низших позвоночных - рыб и амфибий...

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