«Циклические процессы в языке программирования Turbo Pascal»

Опубликовано Чаркина Елена Николаевна вкл 16.06.2016 - 23:59
Чаркина Елена Николаевна
Автор: 
Илюшечкина Оксана

                      

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

Скачать:

ВложениеРазмер
Microsoft Office document icon sbornik_zadach_k_diplomnoy_ilyushechkina.doc346 КБ

Предварительный просмотр:

БОУ ОО СПО «Болховский педагогический колледж»

Сборник задач по теме:

 «Циклические процессы в языке программирования Turbo Pascal»

Болхов, 2014г.

БОУ ОО СПО «Болховский педагогический колледж»

Сборник задач по теме:

 «Циклические процессы в языке программирования Turbo Pascal»

Болхов, 2014г.

                       

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

Составитель: Илюшечкина О.В.

Верстка: Илюшечкина О.В.

                             Содержание

Справочный материал…………………………………...…3

I.Задания по теме «Циклы в Паскале»……………………8   

II.Задачи с использованием массивов…………....26

III.Задачи разного уровня сложности……………………29

1.Базовый уровень…………………………………………29

2.Средний уровень……………………………………...…30

3.Повышенный уровень……………………..……………32

Список использованной литературы……………………35

Справочный материал.

Цикл представляет собой последовательность операторов, которая выполняется неоднократно.

В языке программирования Turbo Pascal имеется три разновидности цикла:

  1. Цикл с предусловием (while)
  2. Цикл с постусловием (repeat)
  3. Цикл с параметром (For).

Оператор повтора while состоит из заголовка и тела цикла. Ключевые слова while и do обозначают «до тех пор, пока» и «выполняй» соответственно.

Общий вид команды While:

While Условие выполнения цикла do

Begin

{инструкции}

End;

Число повторений операторов (инструкций) цикла while определяется в ходе работы программы;

После слова while записывается условие продолжения выполнения инструкций цикла. В этом отличие цикла while от цикла repeat.

 Условие – это выражение логического типа, которое может принимать одно из двух значений: true или false.

Цикл while – это цикл с предусловием, т.е. инструкции тела цикла вообще могут быть не выполнены, если проверяемое условие ложно с самого начала.

Блок-схема команды While:

Оператор повтора repeat состоит из заголовка (repeat), тела и условия окончания (until). Ключевые слова repeat, until обозначают «повторяй» и «пока» соответственно.

Общий вид команды Repeat:

Repeat

{инструкции}

Until Условие выхода из цикла;

Число повторений операторов (инструкций) цикла repeat заранее неизвестно и определяется в ходе программы.

После слова until записывается условие завершения цикла.

Условие – это выражение логического типа: простое или сложное логическое выражение.

Цикл repeat удобно использовать в тех случаях, когда тело цикла гарантированно должно выполниться хотя бы один раз.

Блок-схема команды Repeat:

Оператор for. Этот вид оператора цикла называют циклом со счётчиком или

цикл с параметром. В нём важную роль играет переменная-параметр, которая на каждом шаге цикла автоматически изменяет своё значение ровно на единицу – поэтому её и называют счётчиком. 

Общий вид команды  For.

Инструкцию for можно реализовать двумя способами:

Вариант 1

For счётчик:=НачальноеЗначение to КонечноеЗначение do

Begin

{инструкции}

End;

Ключевые слова for, do обозначают «для», «выполняй» соответственно. Строка, содержащая for . . . do, называется заголовком цикла, оператор, стоящий после do образует его тело. Очень часто тело цикла – составной оператор. Если тело цикла представлено одиночным оператором, то begin и end не пишутся.

Вариант 2

For Счётчик:=НачальноеЗначение downto КонечноеЗначение do

Begin

{инструкции}

End;

Инструкции между begin и end выполняются столько раз, сколько определяет выражение [(НачальноеЗначение – КонечноеЗначение)+1] .

Блок-схема команды For:

Оператор for используется для организации циклов с фиксированным, заранее известным числом повторений.

Количество повторений определяется начальным и конечным значением переменной-счётчика.

Переменная-счётчик должна быть порядкового типа: чаще integer, реже – char, boolean и т.д.

Начальное и конечное значение должны быть константами и должны принадлежать к одному и тому же типу.

Параметр цикла for может изменяться( увеличиваться или уменьшаться) каждый раз при выполнении тела цикла только на единицу. Если нужен другой шаг изменения параметра, предпочтительнее циклы repeat или while.

Большинство задач с циклами можно решить разными способами, используя при этом любой из трёх операторов цикла.

В некоторых случаях предпочтительнее использовать какой-то один из операторов.

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

Цикл for обеспечивает удобную запись циклов с заранее известным числом повторений.

При неумелом использовании циклов любого типа возможна ситуация, когда компьютер не сможет нормально закончить цикл ( в таком случае говорят, что программа «зациклилась»). При работе в среде Turbo Pascal для выхода из подобной ситуации используется комбинация клавиш +.

Задания по теме «Циклы в Паскале».

  1. В результате выполнения фрагмента программы на экран должны быть выведены числа, полученные умножением переменной х на числа от 1 до 10. Выберите правильный фрагмент.

a)

c)

Var I,x:integer;

Begin

Read(x);

For I:=1 to 10 do

begin

x:=x*i;

writeln(x);

end;

End.

Var I,x,y:integer;

Begin

Read(x);

For I:=1 to 10 do

y:=x*i;

Writeln(y);

End.

b)

d)

Var I,x:integer;

Begin

Read(x);

For I:=1 to 10 do

Writeln(x*I);

End.

Var I,x:integer;

Begin

Read(x);

For I:=1 to 10 do

Writeln(′x*I′);

End.

Ответ:________________

  1. В результате выполнения фрагмента программы значение переменной х должно стать равным 100. Выберите правильный фрагмент.

a)

c)

Var I,x:integer;

Begin

X:=0;

For I:=1 to 100 do

x:=x+1;

End.

Var I,x:integer;

Begin

X:=0;

For I:=1 to 100 do

x:=x+100;

End.

b)

d)

Var I,x:integer;

Begin

X:=0;

For I:=1 to 100 do x:=x+i;

End.

Var I,x:real;

Begin

X:=0;

For I:=1 to 100 do x:=x+1;

End.

Ответ:________________

  1. В результате выполнения фрагмента программы на экран должно быть выведено значение . Выберите правильный фрагмент.

a)

c)

Var I,n,x:integer;

Begin

Read(x);

Read(n);

For I:=1 to n do

x:=x*i;

writeln(x);

End.

Var I,n,x,p:integer;

Begin

Read(x);

Read(n);

P:=1;

For I:=1 to n do

x:=x*p;

writeln(x);

End.

b)

d)

Var I,n,x:integer;

Begin

Read(x);

Read(n);

For I:=1 to n do

x:=x*n;

writeln(x);

End.

Var I,n,x,p:integer;

Begin

Read(x);

Read(n);

P:=1;

For I:=1 to n do

p:=p*x;

writeln(p);

End.

Ответ:________________

  1. В результате выполнения фрагмента программы на экран должно быть выведено значение . Выберите правильный фрагмент.

a)

c)

Var I,n,x:integer;

Begin

Read(x);

Read(n);

For I:=1 to n do

x:=x*i;

writeln(x);

End.

Var I,n,x,p:integer;

Begin

Read(x);

Read(n);

P:=1;

For I:=1 to n do

x:=x*p;

writeln(x);

End.

b)

d)

Var I,n,x:integer;

Begin

Read(x);

Read(n);

For I:=1 to n do

x:=x*n;

writeln(x);

End.

Var I,n,x,p:integer;

Begin

Read(x);

Read(n);

P:=1;

For I:=1 to n do

p:=p*x;

writeln(p);

end.

Ответ:________________

  1. Какое значение переменной А будет выведено на экран оператором writeln(A) в результате выполнения следующей программы?

Var A, n:integer;

Begin

n:=527; A:=2;

while n mod A<>0 do A:=A+1;

writeln(A);

end.

Ответ:________________

  1. Какое значение переменной А будет выведено на экран оператором writeln(A) в результате выполнения следующей программы?

Var A, k:integer;

Begin

A:=0; k:=0;

while A<=27 do

begin

if k mod 2 =0 then A:=A+k;

k:=k+1;

end;

writeln(A);

End.

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 3;

  s := 0;

  while n <= 7 do begin

    s := s + n;

    n := n + 1

  end;  

  write(s)

end.

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 4;

  s := 0;

  while n <= 8 do begin

    s := s + n;

    n := n + 1

  end;  

  write(s)

end.

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=5;

  k:=0;

  while k < 15 do begin

    k:=k+2;

    s:=s+k;

  end.

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while k < 12 do begin

    s:=s+2*k;

    k:=k+3;

  end;

  write(s);

end.

Ответ:________________

  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    if x mod 2 = 0 then

      M:= M + (x mod 10) div 2;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

Ответ:________________

  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    if x mod 2 = 1 then

      M:= M + (x mod 10) div 2;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

Ответ:________________

  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:=L+1;

    if (M < x) and (x mod 2 = 1) then begin

      M:= (x mod 10) * 2;

    end;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

Ответ:________________

  1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:=L+1;

    if M < x then begin

      M:= (x mod 10) * 2;

    end;

    x:= x div 10;

  end;

  writeln(L); write(M);

End.

Ответ:________________

  1. Какое значение переменной А будет выведено на экран оператором writeln(A) в результате выполнения следующей программы?

Var A, n:integer;

Begin

n:=50; A:=0;

while n >1 do

begin

n:=n div 2;

A:=A+1;

end;

writeln(A);

End.

Ответ:________________

  1. Какое значение переменной А будет выведено на экран оператором writeln(A) в результате выполнения следующей программы?

Var A, n:integer;

Begin

n:=50; A:=0;

while n >1 do

begin

n:=n div 2;

A:=A+1;

end;

writeln(A);

End.

Ответ:________________

  1. По предложенной блок-схеме запишите код программы на языке программирования Pascal. Укажите, какие значения примут переменные с и d после выполнения фрагмента блок-схемы.

Ответ:________________

  1. По предложенной блок-схеме запишите код программы на языке программирования Pascal. Укажите, какие значения примут переменные с и d после выполнения фрагмента блок-схемы?

Ответ:________________

  1. По предложенной блок-схеме запишите код программы на языке программирования Pascal. Укажите, какие значения примут переменные с и d после выполнения фрагмента блок-схемы.

Ответ:________________

  1. По предложенной блок-схеме запишите код программы на языке программирования Pascal. Укажите, какие значения примут переменные с и d после выполнения фрагмента блок-схемы.

Ответ:________________

  1. Какое значение примет переменная А после выполнения программы:

А:=0;

x:=1;

repeat

А:=А+x*x;

x:=х+1

until x>=4;

Ответ:________________

  1. Какое значение примет переменная А после выполнения следующего фрагмента программы?

А:=1;  x:=2;

repeat

А:=А*x;

x:=х+2;

until A>=30;

Ответ:________________

  1. Какое значение примет переменная А после выполнения следующего фрагмента программы?

А:=0;   b:=false;

while (A<15) and not b do

begin

А:=А+5;

if A>20 then b:=true;

end;

Ответ:________________

  1. Какое значение примет переменная А после выполнения следующего фрагмента программы?

А:=2;  

Repeat

   А:=А*A;
   until A>=50;

Ответ:________________

  1. Какое значение примет переменная А после выполнения следующего фрагмента программы?

А:=1;

b:=false;

Repeat

А:=А+1;

b:=b or (A>10)

until b;

Ответ:________________

  1. Какое значение примет переменная X после выполнения следующего фрагмента программы?

A:=0; X:=0;

for i:=1 to 10 do

begin

А:=A+3;

X:=X+A

end;

Ответ:________________

  1. Какое значение примет переменная А после выполнения следующего фрагмента программы?

for  i:=1 to 10 do А:=3*i;

  1. Какое значение примет переменная А после выполнения следующего фрагмента программы?

A:=0;

for i:=10 downto 7 do А:=A+i;

Ответ:________________

  1. Запишите значение переменной a после выполнения фрагмента алгоритма:

Примечание: знаком := обозначена операция присваивания.

В ответ впишите только число.

Ответ:________________

  1. Запишите значение переменной b после выполнения фрагмента алгоритма:

Примечание: знаком “:=” обозначена операция присваивания.

В ответ впишите только число.

Ответ:________________

  1. Запишите значение переменной b после выполнения фрагмента алгоритма:

Примечание: знаком “:=” обозначена операция присваивания.

В ответ впишите только число.

Ответ:________________

  1. Запишите значение переменной с после выполнения фрагмента алгоритма, записанного в виде блок-схемы:

Примечание: знаком := обозначена операция присваивания. В ответе укажите одно число — значение переменной с.

Ответ:________________

  1. Сколько раз выполнится цикл?

a)  s:= 5;  n := 5;

        repeat

            n:=n+1;

            s:=s+n;

        until n =10;

б)  m:=10;  p:=1;

        repeat

            p := p * 2;

            m:=m -1;

        until m <=10;

Ответ:________________

  1. Найдите и исправьте ошибки в следующих фрагментах программы:

а) с:=0;

     repeat;

          c:=c+1;

          s:=s+c;

     while c>5;

б) n:=1;

    while n<3 do;

                n:=n+1;

в) y:=0;

     while y:=0.1  do      

                y:=y+sin(x);

г) n:=5;

    repeat do

           n:=n-1;

           v:=v*n;

    n<2;

д) y:=0;

     for x:=0.1  to  0.9 do             y:=y+sin(x);

е) n:=1;

    for a:=1 to –10 do;

            n:=n+a;

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на двух языках программирования.

Паскаль

Алгоритмический язык

var s, i: integer;

begin

s:=0;

for i:=2 to 10 do

s:=s+i;

write (s);

end.

алг

нач

цел s, i

s:=0

нц для i от 2 до 10

   s:=s+i

кц

вывод s

кон

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на двух языках программирования.

Паскаль

Алгоритмический язык

var s, k: integer;

begin

s:=50;

for  k:=0 to 8 do

s:=s – 4;

write (s);

end.

алг

нач

цел s, k

s:=50

нц для k от 0 до 8

   s:=s - 4

кц

вывод s

кон

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на двух языках программирования.

Паскаль

Алгоритмический язык

var a, b: integer;

begin

a:=2;

b:=0;

while a<>10 do

begin

   a:=a+2;

   b:=b+3*a;

end;

write (b);

end.

алг

нач

цел a, b

a:=2

b:=0

нц пока  a<> 10

   a:=a+2

   b:=b+3*a

кц

вывод b

кон

Ответ:________________

  1. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на двух языках программирования.

Паскаль

Алгоритмический язык

var p, i: integer;

begin

p:=1;

for i:=2 to 10 do

p:=p*i;

write (p);

end.

алг

нач

цел p, i

p:=1

нц для i от 2 до 10

   p:=p*i

кц

вывод p

кон

Ответ:________________

                  Задачи с использованием массивов.

 

  1. Какая сумма элементов массива больше – с первого до элемента с номером К или от элемента с номером К+1 до последнего.

const N = 10;

var arr: array[1..N] of integer;

    i, k: byte;

    sum1, sum2: integer;

begin

    writeln('Enter the ten elements of the array:');

    for i:=1 to N do                    {1}

        read(arr[i]);

    write('k = ');                      {2}

    readln(k);

    sum1 := 0;

    for i:=1 to k do                    {3}

        sum1 := sum1 + arr[i];

    sum2 := 0;

    for i:=k+1 to N do                  {4}

        sum2 := sum2 + arr[i];

    if sum1 > sum2 then                 {5}

        writeln('sum1 > sum2')

    else

        if sum1 < sum2 then

            writeln('sum1 < sum2')

        else

            writeln('sum1 = sum2');

 

readln;

end.

 

 2. Написать программу расчета среднего арифметического отрицательных элементов в одномерном массиве. Заменить минимальный элемент в одномерном массиве на полученное среднее арифметическое. const n = 10;

var

        arr: array[1..n] of integer;

        i, count, summa, min_id: integer;

        mean: real;

begin

    count := 0;

    summa := 0;

    min_id := 0;

 

    for i:=1 to n do begin

                read(arr[i]);

                if arr[i] < 0 then begin

                        count := count + 1;

                        summa := summa + arr[i];

                        if arr[i] < arr[min_id] then

                                min_id := i;

                end;

        end;

 

    mean := summa/count;

    arr[min_id] := round(mean);

    writeln('Count: ', count);

    writeln('Mean: ', mean:6:2);

    writeln('New array: ');

    for i:=1 to n do

                write(arr[i], ' ');

        writeln;

end.

 

Задачи разного уровня сложности.

1.Базовый уровень.

  1. Составьте программу, выводящую на экран квадраты чисел от 10 до 20.
  2. Составьте программу, которая вычисляет сумму чисел от 1 до 100.
  3. Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры.
  4. Составьте программу, которая вычисляет произведение чисел от 1 до N. Значение N вводится с клавиатуры.
  5. Используя циклы, вывести на экран таблицу умножения на 4.
  6. Используя циклы, вывести на экран таблицу умножения на 9.
  7. 1 кг творога стоит 120 руб. Вывести на экран таблицу стоимости творога массой 100 г, 200 г, …, 900 г.
  8. 1 маркер стоит 35 руб. 50 коп. Вывести на экран таблицу стоимости 2, 3,…20 маркеров.
  9. Составьте программу, которая печатает таблицу перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20 дюймов.
  10. Составьте программу, которая выводит на экран таблицу перевода 5, 6, 7, … 25 евро в рубли. Курс евро вводится с клавиатуры.
  11. Даны действительное a и натуральное n. Вычислить: a!, где а!=1*2*3*…*а.
  12. Даны действительное a и натуральное n. Вычислить: 1 + 1/2 + 1/3 +1/4 + … + 1/n;
  13. Составьте программу вычисления суммы всех двузначных чисел.
  14. С помощью оператора while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.
  15. С помощью оператора while напишите программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

2.Средний уровень.

  1. С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры.
  2. Используя циклы, вывести на экран ряд чисел: 40, 39, 38, …, 12.
  3. Составьте программу, которая выводит на экран таблицу умножения числа́ n на чи́сла от a до b. Числа n, a, b вводятся с клавиатуры.
  4. Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+2, … m дней в количество недель. Числа n и m вводятся с клавиатуры.
  5. Составьте программу, которая выводит на экран таблицу перевода a, a+1, a+2, … b лет в месяцы. Значения a и b вводятся с клавиатуры.
  6. Составьте программу, которая выводит на экран таблицу перевода a, a+1, a+2, … b лет в недели. Границы a и b вводятся с клавиатуры.
  7. Составьте программу, которая выводит на экран таблицу перевода a, a+1, a+2, … b бит в килобайты. Границы a и b вводятся с клавиатуры.
  8.  Даны натуральные числа от 1 до 50. Найти сумму тех из них,  которые делятся на 5 или на 7.
  9. Ввести с клавиатуры 10 чисел. Если среди них есть числа, большие 15, заменить их на 15. Напечатать все полученные числа.
  10. Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5.
  11. Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10):
  1. саженей в метры ( 1 сажень равна 2,1366 м)
  2. футов в метры (1 фут равен 0,3048 м)
  3. драхм в граммы (1 драхма равна 3,7325 г)
  4. унций в граммы (1 унция равна 29,86 г)
  5. фунтов в килограммы (1 фунт равен 0,40951 кг)
  6. аршинов в метры (1 аршин равен 0,7112 м)
  7. золотников в граммы (1 золотник равен 4,2657 г)
  8. дюймов в миллиметры (1 дюйм равен 25,3995 мм)
  1. Напечатать те из двузначных чисел, которые делятся на 4, но не делятся на 6.
  2. Найти произведение двузначных нечетных чисел, кратных 13.
  3. Найти сумму чисел от 100 до 200, кратных 17.
  4. Составьте программу, которая вычисляет сумму квадратов чисел от 1 до введенного вами целого числа n.
  5. Даны действительное a и натуральное n. Вычислить:
  1. 1 + 2 + 4 + 8 + … + 210;
  2. (1 + 2)*(1 + 2 + 3)*…*(1 + 2 + … +10);
  3. a(a+1)…(a+n-1);
  4. sin x + sin x2 + … sin xn.
  1. У первоклассника Пети m рублей. Мороженое стоит k рублей. Петя решил наесться досыта мороженого, для этого он покупал по одному мороженому и съедал ее до тех пор, пока ему хватало денег. Как Пете узнать, сколько денег останется у него в конце концов? Учтите, что Петя делить еще не умеет, а умеет только вычитать и складывать. Сколько мороженых он может съесть?
  2. С помощью оператора while напишите программу определения идеального веса для взрослых людей по формуле: Ид. вес = рост – 100. Выход из цикла: значение роста = 250.
  3. Имеется кусок ткани длиной М метров. От него последовательно отрезаются куски разной длины. Все данные по использованию ткани заносятся в компьютер. Компьютер должен выдать сообщение о том, что материала не хватает, если будет затребован кусок ткани, большей длины, чем имеется.
  4. На соревнованиях по фигурному катанию оценки заносятся в компьютер. Составить программу для вывода на экран лучшего результата после каждого выступления фигуристов.

3.Повышенный уровень.

  1. Составьте программу, которая выводит на экран таблицу перевода a, a+1, a+2, … b минут в секунды. Границы a и b вводятся с клавиатуры.
  2. Составьте программу, которая выводит на экран таблицу перевода a, a+1, a+2, … b килобайт в байты. Границы a и b вводятся с клавиатуры.
  3. Составьте программу, которая выводит на экран таблицу перевода a, a+1, a+2, … b бит в килобайты. Границы a и b вводятся с клавиатуры.
  4. В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет?
  5. Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них.
  6. Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
  7. Ввести с клавиатуры 10 чисел – положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел.
  8. Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат.
  9. Дано натуральное n. Вычислить:
  1. 1/22  +  1/42   + ... +  1/(2n) n .
  2. 1/11  +  1/22   + ... +  1/n n.
  3. 1/a2 + 1/a4 + … 1/a2n.
  1. Бизнесмен взял ссуду m  тысяч рублей в банке под 20% годовых. Через сколько лет его долг превысит s тысяч рублей, если за это время он не будет отдавать долг?
  2. Напишите программу, которая определит первое отрицательное число последовательности: y = sin(i/100), i = 1,2,3…
  3. Дано действительное число А, большее 1. Найти среди чисел 1, 1+1/2, 1+1/2+1/3, ... первое, большее А и его номер.
  4. Царевна-лягушка съедает ежедневно на 20% комаров больше, чем в предыдущий день, и ещё два комара. Через сколько дней количество съеденных комаров превысит 100, если в первый день было съедено 12 комаров.
  5. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.
  1. Какой суммарный путь пробежит спортсмен за 7 дней?
  2. В какой день впервые спортсмен пробежит более 20 км?
  3. В какой день впервые суммарный путь превысит 60 км?
  1. Найти все двузначные числа, сумма квадратов цифр которых делится на 13.
  2. Составить программу вывода всех трехзначных чисел, сумма цифр которого равна данному натуральному числу.
  3. Даны натуральное число n и действительное x. Вычислить: x 1 /1! + x 2  /2! + ... + x n / n!
  4. Найти наибольшее и наименьшее значение функции y = 3x2 + x – 4, если на заданном интервале [a,b] x изменяется с шагом 0,1.
  5. С помощью оператора repeat напишите программу, которая требует у вас пароль, например 111, и если пароль правильный, то печатает сообщение «Молодец!»
  6. Составьте программу, суммирующую штрафное время команд при игре в хоккей. Выводить на экран суммарное штрафное время обеих команд после любого его изменения. После окончания игры выдать итоговое сообщение.
  7. Каждая бактерия делится на две в течение одной минуты. В начальный момент времени имеется одна бактерия. Составьте программу, которая подсчитывает количество бактерий на заданное вами целое значение момента времени.
  8. Составьте программу получения в порядке убывания всех делителей данного числа.
  9. Составьте программу определения наибольшего общего делителя двух натуральных чисел. (Реализовать в виде программы следующий вариант алгоритма Эвклида нахождения наибольшего общего делителя двух натуральных чисел: пока числа не станут равными, большее заменяется на разность большего и меньшего чисел. Когда числа станут равными одному и тому же числу d, то вычисления прекращаются: d равно наибольшему общему делителю исходных чисел).
  10. Вычислить последовательность N чисел Фибоначчи. Числа Фибоначчи ( Fi ) определяются по формулам F0 = F1 = 1; Fi = Fi –1 + Fi –2 при i = 2, 3, ... (каждое очередное число равно сумме двух предыдущих). Вычислить сумму всех чисел Фибоначчи, которые не превосходят заданного натурального числа.
  11. Решить уравнение x3+x2+x+1=0 с точностью e=0,001 на интервале [-2,1].

Список использованной литературы:

  1. Паскаль (язык программирования). Материал из Википедии — свободной энциклопедии http://ru.wikipedia.org/wiki

  1. Язык Pascal. Программирование для начинающих.

http://pas1.ru/cycles 

  1. Паскаль для начинающих. Основы грамматики в таблицах и примерах. Операторы цикла.

http://schools.keldysh.ru/sch887/pascal.htm 

  1.  Поляков К.Ю. Подготовка к ЕГЭ. Анализ программ с циклами. http://kpolyakov.narod.ru/school/ege.htm 
  2. Материалы для подготовки к ЕГЭ и ГИА по информатике. http://ege.yandex.ru/informatics/
  3. Д. Тарасов. Анализ программ с циклами.

http://videouroki.net/view_post.php?id=177 

  1. Иванова Е.В. Презентация «Паскаль. Цикл while»
  2. http://metod-kopilka.ru/page-4-1-3-10.html
  3. 5.  Макарова М.Е. Презентация «Циклические алгоритмы» http://uchinfo.com.ua/exclusive/algoritm/algoritm3.htm
  4. Зеленов Б.А. Циклы While и Repeat (презентация) http://www.school3aksinf.ucoz.ru/load/cikly_while_i_repeat_prezentacija/3-1-0-352 
  5. Зеленов Б.А. Презентация  и тесты «Циклические алгоритмы» http://www.school3aksinf.ucoz.ru/load/3-1-0-20 
  6. Зеленов Б.А. On-line тест на знание элементарных конструкций циклов и их чтение.  http://www.school3aksinf.ucoz.ru/tests/  
  7. Языки программирования Pascal и Delphi. Операторы повтора (циклы)   http://www.maksakov-sa.ru/Pascal/OperPovtorPascal/index.html 
  8. Худякова И.Н. Программирование на языке Turbo Pascal.

http://irina-nv.sehost.ru/page13 

  1. Тест по языку программирования Паскаль.

http://pascal2010.gym5cheb.ru/p51aa1.html 

        


Знакомимся с плотностью жидкостей

Ворона

Голубая лягушка

Весенняя гроза

Как зима кончилась