Циклы на Языке Паскаль Практическая Работа
Лабораторная работа №3
Апрель 4, 2017 – 10:47

Пример1: На промежутке от 1 до M найти все числа Армстронга. Натуральное число из n цифр называется числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу.
Этапы решения задачи:
- Математическая модель: xО[1;M], x=
- Составим блок схему программы:
Распишем составные части блока"Находим все числа Армстронга на заданном промежутке и печатаем их"
Опишем блок "Подсчитываем сколько цифр в числе i"
Опишем блок "Проверяем, является ли i числом Армстронга"
Дальнейшая детализация не требуется, запишем блок-схему целиком:
Дальнейшей детализации не требуется, переведем программу на язык Паскаль.
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))) end; If s=f then WriteLn (f) end; END.
Контрольные вопросы
- Как записывается и как работает оператор FOR?
- Для организации каких циклов применим оператор FOR?
- В чем отличие оператора WHILE от оператора REPEAT?
- Как программируются циклические алгоритмы с явно заданным числом повторений цикла?
- Как программируются циклические алгоритмы с заранее неизвестным числом повторений цикла?
- Напишите оператор цикла, который не выполняется ни разу.
- Напишите оператор цикла, который выполняется неограниченное число раз.
- Замените оператор "Repeat A Until B" равносильным фрагментом программы с оператором While.
Задачи
Вычисление выражений:Дано натуральное n. Вычислить:
1. ;
2. ;
Дано действительное число х, натуральное число n. Вычислить:
3.x ( x - n )( x - 2 n )( x - 3 n )…( x - n2 );
4. ;
5. ;
Дано натуральное n. Вычиcлить:
6. ;
7. ;
Вычислить приближенно значение бесконечной суммы (справа от каждой суммы дается ее точное значение, с которым можно сравнить полученный ответ):8.= ;
9.= ;
10.= ;
Нужное приближение считается полученным, если вычислена сум-+/.ма нескольких первых слагаемых, и очередное слагаемое оказалось по модулю меньше данного положительного числа e.Задачки на смекалку
- Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2, 3, 4, 5, 6, 7, 8, 9.
- Найти все трехзначные числа, сумма цифр которых равна данному целому числу.
- Найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр.
- Найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.
- Найти все двузначные числа, сумма квадратов цифр которых делится на 17.
- Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр.
- Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа.
- Найти двузначное число, равное утроенному произведению его цифр.
- В каких двузначных числах удвоенная сумма цифр равна их произведению?
- Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел? Написать программу решения этой задачи.
Source: valera.asf.ru
Похожие публикации