Циклы на паскале

  • 04 апр. 2012 г.
  • 691 Слова
Программирование циклических алгоритмов



Цель работы: закрепить практические навыки работы с системой Borland Pascal, научиться правильно использовать различные операторы циклов;научиться составлять программы решения задач с использование циклических структур.

Общие сведения

Алгоритм называется циклическим, если он содержит многократное выполнение одних и тех жеоператоров при различных значениях промежуточных данных. Число повторений этих операторов может быть задано в явной (цикл с известным заранее числом повторений) или неявной (цикл с неизвестным заранее числомповторений) форме.
Перед выполнением работы необходимо изучить различные схемы организации циклов и операторы FOR, WHILE, REPEAT.

Примеры

Пример1: На промежутке от 1 до M найти все числаАрмстронга. Натуральное число из n цифр называется числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу.

Этапы решения задачи:
1. Математическая модель: xО[1;M],x=
2. Составим блок схему программы:


[pic]


Распишем составные части блока"Находим все числа Армстронга на заданном промежутке и печатаем их"
[pic]

Опишемблок "Подсчитываем сколько цифр в числе i"
[pic]
Опишем блок "Проверяем, является ли i числом Армстронга"
[pic]
Дальнейшая детализация не требуется, запишем блок-схемуцеликом:
[pic]
Дальнейшей детализации не требуется, переведем программу на язык Паскаль.
PROGRAM Primer_1;
var i,k,s,p,n: Integer;
BEGIN
Write('Введите M'); Readln(m);
For i:=1 to M do
begin
s:=0; k:=i; n:=0;
While k0 do
begin k:=k DIV 10; n:=n+1 end;k:=i;
While k0 do
begin p:=k MOD 10; k:=k DIV 10;
If p0 then s:=Trunc (s+Exp(n*Ln(p)))...
tracking img