Арифметические циклы .

@DEF174 · Регистрация: 17.01.2012

Author24 — интернет-сервис помощи студентам

Тема: Арифметические циклы .
Цель: Овладеть навыками программирование простейших знакопеременных арифметических циклов.
Задание: Разработка алгоритмов, составление и отладка индивидуальных программ по вариантам
а) (1+sin0.1)(1+sin0.2)...(1+sin10)
б) p=2/3*4/5*6/7...2n/2n+1

@hunter_90 · 23.01.2012, 08:15

a)

Pascal

uses crt;
var
 x,a:real;
begin
 clrscr;
 x:=1;
 a:=0.1;
 repeat
 x:=x*(1+sin(a));
 a:=a+0.1;
 until a>=10;
 writeln('x= ',x:3:3);
 readln
 end.

@Puporev · 23.01.2012, 08:25

1.

Сообщение от DEF174

Тема: Арифметические циклы .

Pascal

uses crt;
var p:real;
    i:integer;
begin
clrscr;
p:=1;
for i:=1 to 100 do
p:=p*(1+sin(i*0.1));
write('P=',p:0:16);
readln
end.

Добавлено через 5 минут
2.

Pascal

uses crt;
var n,i:integer;
    p:real;
begin
clrscr;
write('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*2*i/(2*i+1);
write('P=',p:0:5);
readln
end.

@DEF174 · 23.01.2012, 09:27 **[ТС]**

Спасибо большое

@DEF174 0 / 0 / 0 Регистрация: 17.01.2012 Сообщений: 20
		1
	Арифметические циклы . 23.01.2012, 08:03. Показов 987. Ответов 3 Метки нет (Все метки) Тема: Арифметические циклы . Цель: Овладеть навыками программирование простейших знакопеременных арифметических циклов. Задание: Разработка алгоритмов, составление и отладка индивидуальных программ по вариантам а) (1+sin0.1)(1+sin0.2)...(1+sin10) б) p=2/34/56/7...2n/2n+1 0

@DEF174 0 / 0 / 0 Регистрация: 17.01.2012 Сообщений: 20
	23.01.2012, 09:27 [ТС]	4
	Спасибо большое 0