Учебно-методический комплекс дисциплины для обучающегося «Языки программирования» для специальности 5В010900 Математика

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

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

begin

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

x:=a; y:=b;

while (x< >y) do

if x > y

then x:=x-y

else y:=y-x;

z:=x;

writeln ('НОД=',z)

var n:integer;

S,Z,E: real;

begin

readln (E);

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

While abs(z) >=E do

begin

S:=S+Z;

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

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

1. 
   Вычислить . Расчет производить до тех пор, пока слагаемое по абсолютной величине не станет меньше заданной точности . Значение задать вводом.
   
2. 
   Составить программу вычисления суммы . Расчет ввести до тех пор, пока разность между значениями двух соседних членов ряда по абсолютной величине не станет меньше заданной точности . .
   
3. 
   Составить программу вычисления . Счет окончить, когда разность между значениями двух соседних слагаемых по абсолютной величине станет меньше заданной точности . .
   
4. 
   Составить программу вычисления суммы . Расчет вести до тех пор, пока разность между значениями двух соседних членов ряда по модулю не станет меньше заданной точности . .
   
5. 
   Составить программу вычисления величины . Суммирование производить до тех пор, пока слагаемое по абсолютной величине не станет меньше заданной точности . .
   
6. 
   Найти наибольшее значение функции и значение, при котором оно получено. Значения аргумента x изменяются от 0 до 10 с шагом 0,1.
   
7. 
   Дано натуральное число m. Найти наименьшее среди чисел , а также сумму этих чисел.
   
8. 
   Дано натуральное число n. Найти наибольшее среди чисел , а также сумму этих чисел.
   
9. 
   Дано натуральное число n. Получить все его натуральные делители.
   
10. 
    Даны действительные, положительные числа a, b, . Последовательности образованы по закону: . Найти первое n такое, что .