Задачи на цикл с параметрами в Паскале.
Самостоятельная работа.
Цель: обучающая самостоятельная работа, закрепление изученного материала по теме: «Циклы с параметарами»
1. Вывод на экран кубов чисел от 11 до 5
2. Вычисление суммы чисел от 6 до 10
3. Составить программу вычисления значения выражения y=1+1/2+1/3+... +1/20.
4. Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0 < S < 18).
5. Дано натуральное число n (1000<=N<=9999). Определить, является ли оно палиндромом ("перевертышем"), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 1441.
Решение:
1. Вывод на экран кубов чисел от 11 до 5
Program Test2;
var
N: integer;
begin
for N:=11 downto 5 do { Счетчик N изменяется с шагом -1 }
write(N*N*N:5); { Эта строка - тело цикла; оно выполняется 8 раз, так как N изменяется от 11 до 5 с шагом -1 }
writeln; { Этот оператор нужен, чтобы закончить вывод чисел в одну строку }
readln
end.
2. Вычисление суммы чисел от 6 до 10
Program Test4:
var
N: integer; { Это будет счетчик цикла for }
S: integer; { В этой переменной будем накапливать сумму }
begin
S:=0; { Вначале обнулим сумматор }
for N:=6 to 10 do
S:=S + N; {Эта строка - тело цикла. При его выполнении каждый раз к S прибавляется очередное N. Переменную S можно сравнить с аккумулятором, в котором накапливается сумма }
writeln('Сумма чисел=', S:6);
readln
end.
3. Составить программу вычисления значения выражения y=1+1/2+1/3+... +1/20.
{В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у - очередное значение суммы дробей; n - параметр цикла. Учитывая это, составим программу: }
program prim1;
uses crt;
var n: integer;
y: real;
begin
clrscr;
{Задаем начальное значение, равное нулю.}
y:=0;
{Организовываем цикл с параметром от 1 до 20.}
for n:=1 to 20 do
begin
{Находим очередную сумму.}
y:=y+1/n;
{Выводим на экран очередную сумму.}
writeln('y=',y);
end.;
end.
4. Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0 < S < 18).
{Обозначим: k - это просматриваемое число; p1 - это первая цифра числа k, р2 - это вторая цифра числа k; s - это сумма цифр данного числа k. Число k будем выписывать только в том случае, когда сумма p1 и р2 будет равна s.}
program prim2;
uses crt;
var k,n,p1,p2,s:integer;
begin
clrscr;
{Задаем целое число.}
writeln(' целое число n=');
readln(n);
{Организовываем цикл с параметром от 10 до 99.}
for k:=10 to 99 do
begin
{Выделяем первую цифру.}
p1:=k div 10;
{Выделяем вторую цифру.}
р2:=к mod 10;
{Находим сумму цифр.}
s:=p1+p2;
{Если сумма цифр равна заданному числу N, то выводим К.}
if s=n then writeln('k= ',k);
end;
end.
5. Дано натуральное число n (1000<=N<=9999). Определить, является ли оно палиндромом ("перевертышем"), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 1441.
{Обозначим: n - вводимое число; m - дубликат числа n; а - перевертыш числа n; i - переменная цикла для создания перевертыша.}
program prim3;
uses crt;
var n, m, a, i: integer;
begin
clrscr;
{Введем четырехзначное целое число.}
writeln('N<=9999'); readln(n)
{Запоминаем введенное целое число и задаем начальное значение перевертыша.}
m:=n;а:=0;
{Организуем цикл с параметром от 1 до 4.}
for i:=l to 4 do
{Находим перевертыш числа N}
begin
а:=а*10+ m mod 10; m:= m div 10;
end;
{Если A=N, то данное число является перевертышем.}
if a=n then writeln('DA!')
else writeln('NO');
readln;
end.
