Лабораторная работа 4

ПРОГРАММИРОВАНИЕ ЦИКЛОВ С УСЛОВИЕМ

Цель работы: Овладеть навыками программирования на языке Паскаль алгоритмов циклической структуры с использованием операторов цикла с предусловием и постусловием.

Краткие сведения из теории

Для программирования циклов ПОКА в Паскале существуют оператор цикла с предусловием WHILE и оператор цикла с постусловием REPEAT.

ПРИМЕР 1: Алгоритм Евклида для подсчета НОД (наибольшего общего делителя) двух натуральных чисел.

П Р О Г Р А М М А

program Evklid;

var a,b,x,y,z: integer;

begin

writeln ('Введите числа');

readln (a,b);

x:=a; y:=b;

while (x< >y) do

if x > y

then x:=x-y

else y:=y-x;

z:=x;

writeln ('НОД=',z)

end.

ПРИМЕР 2: Вычислить сумму членов ряда с точностью до члена ряда, меньшего Е.

П Р О Г Р А М М А

program Summa;

var n:integer;

S,Z,E: real;

begin

writeln ('ввести точность');

readln (E);

n:=1; Z:=1/6; S:=0;

While abs(z) >=E do

begin

S:=S+Z;

n:=n+1;

Z:=n/((n+1)*(n+2))

end;

writeln ('S=', S:10:2)

end.

Упражнения:

1. Вычислить . Расчет производить до тех пор, пока слагаемое по абсолютной величине не станет меньше заданной точности. Значениезадать вводом.

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

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

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

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

6. Найти наибольшее значение функции и значение, при котором оно получено. Значения аргументаx изменяются от 0 до 10 с шагом 0,1.

7. Дано натуральное число m. Найти наименьшее среди чисел , а также сумму этих чисел.

8. Дано натуральное число n. Найти наибольшее среди чисел , а также сумму этих чисел.

9. Дано натуральное число n. Получить все его натуральные делители.

10. Даны действительные, положительные числа a, b, . Последовательностиобразованы по закону:. Найти первоеn такое, что .

Лабораторная работа 5 программирование циклов с условием

ЦЕЛЬ РАБОТЫ: Овладеть навыками программирования на языке Паскаль алгоритмов циклической структуры с использованием операторов цикла с предусловием и постусловием.

Краткие сведения из теории

Для программирования циклов ПОКА в Паскале существуют оператор цикла с предусловием WHILE и оператор цикла с постусловием REPEAT.

ПРИМЕР 1: Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел.