Задачи по теме "Циклические алгоритмы"

Циклы с условием

1. Напишите программу, подсчитывающую и выводящую на экран сумму чисел последовательности, оканчивающейся нулем. Число 0 не входит в последовательность, оно является признаком ее конца.

2. Напишите программу, подсчитывающую и выводящую на экран квадраты всех чисел последовательности находящиеся в диапазоне от нуля до единицы с шагом 0,2.

3. Напишите программу, подсчитывающую и выводящую на экран квадраты всех чисел последовательности находящиеся в диапазоне от 0 до 10 с шагом 3.

4. С клавиатуры вводится рост учеников. Необходимо сосчитать средний рост учеников класса. Число 0 – признак конца класса.

5. Напишите программу, выводящую на экран таблицу перевода расстояний из дюймов в сантиметры для значений от 1 до 10. (1 дюйм = 2,54 см)

6. Напишите программу, находящую сумму целых чисел, попадающих в интервал [-3,5].

7. Напишите программу, выводящую на экран таблицу умножения на 2 (от 0 до 20).

8. На склад приходит грузовик (возможно не пустой). Его вместимость 10 000 кг. Напишите программу, которая загружает его товарами так, чтобы он не был переполнен.

9. Напишите программу, вычисляющую сумму всех натуральных чисел от 1 до 100.

10. Напишите программу, вычисляющую сумму всех натуральных трехзначных чисел.

11. Напишите программу, вычисляющую значение p=1*1/2*1/3*…*1/13.

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

13. Вводится с клавиатуры пароль, состоящий из 4 цифр. Напишите программу, который в цикле с постусловием будет выполнять: запрос предполагаемого пароля; если он верный, то выводит сообщение «ПРИНЯТО», иначе возвращается к предыдущему шагу запроса.

14. Напишите программу, подсчитывающую сумму цифр в числе, введенном с клавиатуры.

Цикл For

Карточка №1

Найди и подчеркни ошибки: С клавиатуры вводится 100 целых чисел, найти минимум из них.

Program minim.

Var I, min, a: integer;

Begin;

Readln (‘Введите первое число’);

Writeln (min);

For min:=2 to 100 do

Writeln(‘Введите ‘,i,’число’);

Readln(a);

If amin then min:=a;

Writeln(‘Минимум равен ’,i);

Readln;

End;

Карточка №2

Найди и подчеркни ошибки: С клавиатуры вводится 100 целых чисел, найти максимум из них.

Program maxim.

Var I, max, a:integer;

Begin;

Writeln(‘Введите первое число’);

Readln(max)

Begin;

For max:=2 to 100 do

Writeln(‘Введите ‘,i,’число’);

Readln(a);

If a

End;

Read(‘Максимум равен ’,max);

Readln;

End;

Задачи:

1. С клавиатуры вводится целое число N. Сосчитать сумму всех целых чисел от 1 до N.

2. С клавиатуры вводятся 10 чисел, найти наибольшее (наименьшее) из них.

3. С клавиатуры вводится n целых чисел. Напишите программу, определяющую, верно ли, что отрицательных больше, чем положительных? (нулей нет).

4. В гонке участвовало 10 катеров, их скорости вводятся с клавиатуры. Напишите программу, выводящую на экран среднюю скорость катеров.

5. Последовательно вводят N чисел. Найдите среднее арифметическое этих чисел.

6. Последовательно вводят N чисел. Найдите разницу между наибольшим и наименьшим.

7. С клавиатуры вводится 10 чисел.

«3» - вывести сумму положительных.

«4» - вывести сумму положительных и количество отрицательных.

«5» - вывести сумму положительных, количество отрицательных, и произведение тех элементов, которые стоят на четных местах.

1. С клавиатуры последовательно вводятся десять чисел. Написать программу, которая вычислит и выведет на экран сумму чисел, кратных 3.

2. С клавиатуры вводится число N. Написать программу, которая вычислит и выведет на экран все его делители.

3. Напишите программу, для вычисления aⁿ, вводимых с клавиатуры.

4. Чиновник ежемесячно берет взятки в размере Х рублей. Величина Х – непостоянная и колеблется от 0 до 150000 рублей. Автомобиль, который хочет купить чиновник на взятки стоит 1700000 рублей. Напишите программу, которая вычислит сколько месяцев потребуется чиновнику на сбор денежной суммы.

5. Напишите программу, вычисляющую

Массивы

1)     В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do

A[i]:= i;

for i:=1 to 11 do

A[i-1]:= A[11-i];

Чему будут равны элементы этого массива?

1) 10 9 8 7 6 5 4 3 2 1 0

2) 11 10 9 8 7 6 5 4 3 2 1

3) 10 9 8 7 6 5 6 7 8 9 10

4) 11 10 9 8 7 6 7 8 9 10 11

2)     В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do A[i]:=i;

for i:=0 to 10 do begin

A[10-i]:=A[i];

A[i]:=A[10-i];

end;

Чему будут равны элементы этого массива?

1) 10 9 8 7 6 5 4 3 2 1 0

2) 0 1 2 3 4 5 6 7 8 9 10

3) 10 9 8 7 6 5 6 7 8 9 10

4) 0 1 2 3 4 5 4 3 2 1 0

3)      Дан фрагмент программы, обрабатывающий массив А из 10 элементов:

j := 1;

for i:=1 tо 10 do

  if A[i] = A[j] then j := i;

s := j;

Чему будет равно значение переменной s после выполнения этого алгоритма?

1) 1                              

2) 10                            

3) индексу элемента, равного первому, и имеющему наибольший индекс            

4) индексу элемента, равного последнему, и имеющему наименьший индекс

4)     В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do A[i]:=i;

for i:=0 to 4 do begin

k:=A[i];

A[i]:=A[10-i];

A[10-i]:=k;

end;

Чему будут равны элементы этого массива?

1) 10 9 8 7 6 5 4 3 2 1 0

2) 0 1 2 3 4 5 6 7 8 9 10

3) 0 1 2 3 4 5 4 3 2 1 0

4) 10 9 8 7 6 5 6 7 8 9 10

5)     В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do A[i]:=i;

for i:=0 to 10 do begin

k:=A[i];

A[i]:=A[10-i];

k:=A[10-i];

end;

Чему будут равны элементы этого массива?

1) 10 9 8 7 6 5 4 3 2 1 0

2) 0 1 2 3 4 5 6 7 8 9 10

3) 0 1 2 3 4 5 4 3 2 1 0

4) 10 9 8 7 6 5 6 7 8 9 10

6)     В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do A[i]:=i;

for i:=0 to 4 do begin

k:=A[10-i];

A[10-i]:=A[i];

k:=A[i];

end;

Чему будут равны элементы этого массива?

1) 10 9 8 7 6 5 4 3 2 1 0

2) 0 1 2 3 4 5 6 7 8 9 10

3) 0 1 2 3 4 5 4 3 2 1 0

4) 10 9 8 7 6 5 6 7 8 9 10