Пример 10

Подсчитать количество двузначных чисел, у которых сумма цифр нечетна.

Решение:

Program Pr10;

Var n, a, b, k: integer;

begin

k:=0; for n:=10 to 99 do begin

a:= n div 10; b:=n mod 10;

if (a+b) mod 2=1 then k:=k+1;

end;

writeln('k=',k)

end.

ЗАДАНИЯ

1. Дано натуральное число n. Вычислить 2¹+2²+…+2ⁿ.

2. Дано натуральное число n. Вычислить n! ()

3. Дано натуральное число n. Вычислить .

4. Дано натуральное число n и действительно число х. Вычислить .

5. Даны натуральные числа а, n. Вычислить .

6. Найти произведение: Р = (1 + х)·(3+2х)·(5+3х)·.... (n множителей)

7. Задана арифметическая прогрессия. 7,6; 6,3; …. Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0.

8. Задана арифметическая прогрессия 2; 2,8; …. Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.

9. Задана арифметическая прогрессия. 7,1; 5,3; …. Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0.

10. Задана арифметическая прогрессия. 8,4; 6,2 …. Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0.

11. Задана арифметическая прогрессия. 2; 3,8;.... Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >30.

12. Подсчитать количество и сумму четных трехзначных чисел.

13. Подсчитать сумму двухзначных чисел, сумма цифр которых не превышает 7.

14. Подсчитать количество двузначных чисел, кратных 3.

15.Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10.

16. Подсчитать количество и сумму трехзначных чисел, кратных 3.

17. Подсчитать количество и сумму четных трехзначных чисел.

18. Протабулировать функцию y=x³-1 на интервале [-1,3] с шагом 0.2.

19. Протабулировать функцию y=x²-1/x на интервале [1,2] с шагом 0.05.

20. Протабулировать функцию y= sin x – cos x на интервале [-p,p] с шагом p/10.

21. Протабулировать функцию y= cos(x)*x на интервале [-p,p] с шагом p/10.

22. Протабулировать функцию y=sin²x на интервале [0,p] с шагом p/20.

23. Протабулировать функцию y= cos x²+sin x² на интервале [-p/2,p/2] с шагом p/10.

24. Дано натуральное число n. Найти сумму S=1-3+5-…. (n слагаемых)

25. Дано натуральное число n. Найти сумму S=1+2/3+3/5.... (n слагаемых)

26. Дано натуральное число n. Найти сумму S=1-1/5+1/9-1/13+…. (n слагаемых)

27. Дано натуральное число n. Найти сумму S=1-3+5-…. (n слагаемых)

IV. ПРОЦЕДУРЫ

Процедура – это относительно самостоятельная часть программы, имеющая собственное имя. Процедура описывается перед основной программой.

Структура процедуры:

Procedure <имя_процедуры>(<параметры>); - заголовок процедуры

Label <метки>;

Const <константы>; раздел объявления меток, констант, типов данных,

Type <типы данных>; переменных (может отсутствовать)

Var <переменные>;

Begin

<операторы > - тело процедуры

End;

Параметры, указанные в заголовке процедуры называются формальными. Вызов процедуры осуществляется из основной программы указанием ее имени. При вызове процедуры формальные параметры заменяются фактическими. Количество и тип формальных и фактических параметров должны совпадать. Для передачи исходных данных в процедуру используются параметры-значения. Фактические параметры-значения могут быть константами, переменными, выражениями. Полученный в процедуре результат передается в основную программу с помощью параметров-переменных. В заголовке описания процедуры перед параметрами-переменными пишется Var.