1. Вычислить сумму ряда: 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9
Program Summa_r;
Uses crt;
var n,S: real;
Begin
n:=0.1;
repeat
ClrScr;
S:=S+n;
n:=n+0.1;
until n>=0.9;
writeln('Сумма ряда S=',S);
readkey;
End.
2. Вывести таблицу функции y=cos(x) , где x изменяется в градусах от 10 до 45 с шагом 5
Program Tabl;
Uses crt;
var x, h, n, y: real;
Begin
ClrScr;
writeln('Таблица функции y=cos(x)');
x:=0; h:=5; n:=45;
repeat
y:=cos(x*pi/180);
writeln('X=',x,' Y=',y:6:4);
x:=x+h;
until x=50;
readkey;
End.
3. Определить, что больше сумма ряда: 1.1 , 1.3 , ... , 93.1 или произведение: 5*7*...*11
Program Summa_Mul;
Uses crt;
var k, n,S, P: real;
Begin
n:=1.1;
repeat
ClrScr;
S:=S+n;
n:=n+0.1;
until n>=93.1;
writeln('Сумма ряда S=',S:6:4);
k:=5;
P:=k*(k+2)*(k+4)*(k*6);
writeln('Произведение P=',P:6:4);
if S>P Then
writeln ('Сумма ряда S больше произведения чисел P')
else
writeln ('Больше произведение чисел P чем сумма ряда S');
readkey;
End.