Тема лабораторного занятия: Операторы цикла.
Дата: 2025-05-25; Просмотры: 3
Оценка:
0.00 из 5.00 — оценок
Количество часов: 3.
Задание. Реализовать готовую программу с использованием операторов цикла.
| Упражнение 1. Задача. Найти факториал заданного числа (n! = 1 × 2 × 3 × … × n). PROGRAM fact_FOR; uses crt; var i,n: integer; f: real; begin clrscr; write('N='); readln(N); f:=1; for i:=1 to N do f:=f*i; writeln(n,’!=’,f:5:2); readln; end. | Упражнение 2. Задача. Найти сумму первых n обратных натуральных чисел S = 1 + 1/2 + 1/3 + … + 1/n. PROGRAM sum_obr; uses crt; var i,n: integer; s: real; begin clrscr; write('N='); readln(N); s:=0; for i:=1 to N do s:=s+1/i; writeln(’S=’,s:5:2); readln; end. |
| Упражнение 3. Задача. В ычислить произведение первых n нечетных чисел (2 n -1)!! и произведение первых n четных чисел (2 n )!! PROGRAM proizv_chet_nechet; uses crt; var i,n: integer; p_chet,p_nechet: real; begin clrscr; write('N='); readln(N); p_chet:=1; p_nechet:=1; for i:=1 to N do begin p_chet:=p_chet*2*i; p_nechet:= p_nechet*(2*i-1); end; writeln(2*n,’!!=’,p_chet:5:2); writeln(2*(n-1),’!!=’,p_nechet:5:2); readln; end. | Упражнение 4.
Задача . Вычислить 
PROGRAM korni_while;
uses crt;
const n=33;
var i: integer;
s: real;
begin
clrscr;
S:=sqrt(3*n);
i:=n-1;
while i>=1 do
begin
S:=sqrt(3*i+s);
i:=i-1;
end;
writeln(’s=’,S:5:2);
readln;
end.
|
Методические рекомендации по СРСП №14
Тема: Операторы цикла.
Количество часов: 3.
Задание. Выполнить постановку задачи, составить алгоритм с использованием всех трех операторов цикла (for, while и repeat) и написать программу на языке Паскаль.
| Вариант | Задание |
| 1. | Дано n чисел. Найти наибольшее из них. |
| 2. | Дано n чисел. Найти наименьшее из них. |
| 3. | Дано n чисел. Найти их сумму. |
| 4. | Дано n чисел. Найти их произведение. |
| 5. | Дано n чисел. Найти сумму положительных чисел. |
| 6. | Дано n чисел. Найти количество отрицательных чисел. |
| 7. | Дано n чисел. Найти наибольшее из отрицательных чисел. |
| 8. | Дано n чисел. Найти наименьшее из положительных чисел. |
| 9. | Напишите программу вычисления 1 + 4 + 9 +…+ n2.. |
| 10. | Найти сумму первых n степеней двойки, начиная с нулевой степени: 1 + 2 + 4 + ... + 2n-1. |
| 11. | Найти сумму первых n нечетных натуральных чисел: 1+3+5+...+2n-1. |
| 12. | Найти сумму первых n четных натуральных чисел: 2 + 4 + 6 +...+ 2n. |
| 13. | Найти n-й член последовательности Фибоначчи, где f0 = f1 = 1, fn = fn-1 + fn-2. |
| 14. | Вычислить с помощью операторов for и repeat
|
Методические рекомендации по СРС №14