Главная Контакты Случайная статья Автоматизация Антропология Археология Архитектура Биология Ботаника Бухгалтерия Военная наука Генетика География Геология Демография Деревообработка Журналистика Зоология Изобретательство Информатика Искусство История Кинематография Компьютеризация Косметика Кулинария Культура Лексикология Лингвистика Литература Логика Маркетинг Математика Материаловедение Медицина Менеджмент Металлургия Метрология Механика Музыка Науковедение Образование Охрана Труда Педагогика Полиграфия Политология Право Предпринимательство Приборостроение Программирование Производство Промышленность Психология Радиосвязь Религия Риторика Социология Спорт Стандартизация Статистика Строительство Технологии Торговля Транспорт Фармакология Физика Физиология Философия Финансы Химия Хозяйство Черчение Экология Экономика Электроника Электротехника Энергетика
	Трассировка примера. Пусть введеныx:=2; y:=5. for i:=1 to y do. Трассировка примера. Пусть введенon:=5;. for k:=2 to n do. Практическая работа. Домашнее задание ⇐ ПредыдущаяСтр 2 из 2 Трассировка примера
Пусть введеныx:=2; y:=5
№ шага	i	A<=B	s
		1≤5	s:=1*2
		2≤5	s:=2*2
		3≤5	s:=4*2
		4≤5	s:=8*2
		5≤5	s:=16*2
		6≤5 false	Ответ: s=32

ProgramStepen;

Uses crt;

Varx,y,s,i:integer;

Begin

Writeln('Enter x, y');

readln(x, y);

s:=1;

for i:=1 to y do

s:=s*x;

Writeln('Stepen=',s);

 End.

Задание 2. Решить задачу нахождения факториала натурального числа N.

Факториал числа N – это результат произведения всех натуральных чисел из диапазона от 1 до N. N!=1*2*3*…(N-1)*N

Ответить на вопросы:

1) Какие действия повторяются многократно при возведении числа в степень? (Многократное умножение различных чисел от 1 до N).

2) За что будет отвечать параметр цикла? (За величину очередного множителя).

3) Какое начальное значение накапливающей переменной целесообразно взять и почему?

4) Построить алгоритм решения задачи в виде блок-схемы.

Трассировка примера

 Пусть введенon:=5;

ProgramFactorial;

Usescrt;

Var i,n:integer;

s:longint;

Begin

Clrscr;

Writeln('Enter n');

Readln(n);

f:=1;

for k:=2 to n do

f:=f*k;

Writeln('Factorial=',f);

Readln;

End.

Задание 3. Найти все двузначные числа, в которых есть цифра N или само число делится на N.

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

Задача 1. Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N.

Задача 2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 или 8.

Задача 3. Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.

Задача 4. Дано семизначное число n. Выбросить из записи числа цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 1509 должно получиться 19.

Домашнее задание

Задача 1. Написать программу поиска четырехзначного числа, которое при делении на 133 дает в остатке 125, а при делении на 134 дает в остатке 111.

Задача 2. Составить программу вычисления суммы кубов чисел от 25 до 55.

Задача 3. Дано натуральное число. Найти все его делители и их сумму.

Задача 4. Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения А и В вводятся с клавиатуры).

Задача 5. Определить, является ли число простым.