Практическая работа № 5

Название: Создание и отладка программ, включающих операторы цикла с параметром ( FOR)

Цель работы: Освоить приемы отладки и тестирования программ на языке Паскаль в интегрированной среде программ­ирования Турбо Паскаль 7.0

Выполните следующие действия:

1. Откройте презентацию «Элементы языка Паскаль-3» и просмотрите ее

2. Запустите Turbo Pascal (Turbo.exe).

3. Ознакомьтесь с примером программы нахождения числа с максимальной суммой делителей.

4. Приступите к выполнению заданий «Циклы с параметром (For)» на оценку.

Пример. На интервале [2;n] найти натуральное число с максимальной суммой делителей. Сохранить текст под именем Prim5.

Решение. Идея алгоритма состоит в том, что все дели­тели числа X, меньшие X, лежат в интервале от 1 до (X div 2+1). Наибольшим делителем является само число X. Следовательно, для каждого из чисел [2...n] нужно отобрать и просуммировать все делители из указанного множества. По ходу вычислений производить отбор наибольшего значения. Например: число 12 имеет сумму делителей S = 12+1+2+3+4+6 = 28

Алгоритм будет содержать два вложенных цикла. Исполне­ние вложенных циклов происходит так: для каждого значения параметра внешнего цикла происходит полная «прокрутка» внутреннего цикла.

Program Sum_Del;

Var N, I, SumMax, Sum, K, Ch: Integer;

Begin

Write ('Введите число N = ');

Read(N);

SumMax:=1; Ch:=1; {Начальные значения величин}

{Внешний цикл: перебор чисел}

For I:=2 to N Do

Begin

Sum:=0;

{Внутренний цикл: поиск делителей}

For K:=1 to I div 2+1 Do If (I mod K) = 0

Then Sum:=Sum+K; {Суммирование делителей}

Sum:=Sum+I; {Включение в сумму максимального делителя}

{Выбор максимальной суммы делителей}

If Sum>SumMax Then Begin SumMax:=Sum; Ch:=I; End;

End;

Write(‘Максимальную сумму делителей ‘,SumMax, ‘ имеет число ‘,Ch);

End.

Программы с циклами For (с параметром) задачи

Внимание.

1) Файлы сохраняются в личной папке с именем For<номер задачи>

2) Для защиты практической работы необходимо выслать преподавателю заархивиро­ванную папку, в которой находятся все программы и отчет в электронном виде.

3) Распечатанный отчет сдать в течении недели после выполнения практической работы.

На оценку 3(удовлетворительно) необходимо написать, отладить и представить в отчете тексты программ №№ 1 – 4, а также PrtSc результатов отладки.

На оценку 4(хорошо) необходимо написать, отладить и представить в отчете тексты программ №№ 5 – 9, а также PrtSc результатов отладки.

На оценку 5(отлично) необходимо написать, отладить и представить в отчете тексты программ №№ 10 – 14, а также PrtSc результатов отладки.

На оценку 3(удовлетворительно):

1. Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел. Ниже представлен рекомендуемый вид экрана во время работы программы.

Ниже представлен рекомендуемый вид экрана во время работы программы

Таблица квадратов

Число		Квадрат
l	1
2	4
…	…
8	64
9	81
10	100