Сумма элементов последовательности
Пример 1. Найти сумму элементов числовой последовательности:
Число слагаемых ввести с клавиатуры.
var m : integer; a, S: real;
begin
write('Количество слагаемых m = ');
read(m); S := 0;
for var n:=1 to m do
begin
a := n/(n+1);
S := S+a;
end;
writeln('S = ',S);
end.
Упражнение:
Найти сумму последовательности:
Число слагаемых ввести с клавиатуры.
Таблица значений функции
Пример 3. Вывести на экран таблицу значений функции:
Количество значений вводится. Начальное значение x=-5, шаг изменения значений аргументов h=0.5.
var k:integer; x,y,h: real;
begin
writeln('Количество значений');
readln(k);
x := -5;
h := 0.5;
writeln(' x y ');
for var n:=1 to k do
begin
y := sqr(x);
writeln(x:7:2, ' ' , y:10:2);
x := x+h;
end;
end.
Упражнения:
Постройте таблицы значений для функций:
1. Шаг h = 1, начальное значение х и количество точек k вводится с клавиатуры:
2. х принадлежит промежутку [a, b], a,b и количество точек k вводится с клавиатуры:
Шаг считается по формуле:
