Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
1. Найти все натуральные числа от 1 до n, используя оператор цикла while.
Program example1;
Var i,n:integer;
begin
writeln(‘введите количество натуральных чисел ’);
readln(n);
i:=1;
while i<=n do
begin writel(‘ ’,i);
i:=i+1
end
end.
2. Найти все натуральные числа от 1 до n, используя оператор цикла repeat.
Program example2;
Var i, n: integer;
begin
writeln(‘введите количество натуральных чисел ’);
readln (n);
i:=1;
repeat write(‘ ’,i);
i:=i+1;
until i>n
end.
3. Написать программу приближённого вычисления суммы
с точностью
По условию задачи считается, что нужное приближение получено, если вычислена сумма нескольких первых слагаемых, и очередное слагаемое по модулю меньше, чем данное малое положительное число - это и все последующие слагаемые уже не надо учитывать. В таких задачах следует вычислять каждый член последовательности из предыдущего с помощью рекуррентного соотношения. В данном примере, если уже получено значение выражения xi-1/(i-1)!, то для получения xi/i! достаточно умножить значение предыдущего выражения на x/i.
Program example3;
Var i:integer;
x, eps, a,s:real; {а - очередной член ряда}
begin
writeln(‘введите x ’);
readln(x);
writeln(‘введите eps ’);
readln(eps);
i:=0; s:=0; a:=1;
while abs(a)>=eps do
begin
s:=s+a;
i:=i+1;
a:=a*x/i
end;
write(‘s=’,s) end.
4. Написать программу для вычисления суммы
Знак в формуле означает суммирование слагаемых, каждый из которых имеет вид , где n принимает значения от 1 до k.
Program example4;
Var i,n:integer;
x, s, a:real; {а - очередной член ряда}
begin
writeln(‘введите n’);
readln(n);
writeln(‘введите x ’);
readln(x);
s:=0; a:=-1;
for i:=1 to n do begin
begin
a:=-a*x/i
s:=s+a;
end;
write(‘s=’,s)
end.
Дата публикования: 2014-12-08; Прочитано: 295 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!