Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Самостоятельная работа 9 класс. Циклы с параметром на языке Паскаль.

Самостоятельная работа 9 класс. Циклы с параметром на языке Паскаль.



Осталось всего 4 дня приёма заявок на
Международный конкурс "Мириады открытий"
(конкурс сразу по 24 предметам за один оргвзнос)


  • Информатика

Поделитесь материалом с коллегами:

Задачи на цикл с параметрами в Паскале.

Самостоятельная работа.

Цель: обучающая самостоятельная работа, закрепление изученного материала по теме: «Циклы с параметарами»

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.




57 вебинаров для учителей на разные темы
ПЕРЕЙТИ к бесплатному просмотру
(заказ свидетельства о просмотре - только до 11 декабря)


Автор
Дата добавления 07.11.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров31
Номер материала ДБ-330301
Получить свидетельство о публикации
Похожие материалы

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