Р еш и ть з а д а чу 3 циклами

24.12.2010, 09:25. **Показов** 704. **Ответов** 6

y=sin1+sin1,1+sin1,2+...+sin2

@SuPeR XaKer · 24.12.2010, 12:51

Pascal

Uses
 crt;
Var
 sum,l:real;
begin
ClrScr;
l:=1;
repeat
 sum:=sum+sin(l);
 l:=l+0.1;
until l>2.1;
write('Sum:=',sum);
readkey
end.

Pascal

Uses
 crt;
Var
 sum,l:real;
begin
ClrScr;
l:=1;
while l<=2.1 do
begin
 sum:=sum+sin(l);
 l:=l+0.1;
end;
write('Sum:=',sum);
readkey
end.

@Holy_Metal · 24.12.2010, 13:34

а через for как решить?

@SuPeR XaKer · 24.12.2010, 13:47

Pascal

Uses
 crt;
Var
 sum,l:real;
 i:integer;
begin
ClrScr;
l:=1;
for i:=1 to 11 do
begin
 sum:=sum+sin(l);
 l:=l+0.1;
end;
write('Sum:=',sum);
readkey
end.

ну вот так можно.

@Holy_Metal · 24.12.2010, 13:52

ну а если мне к примеру нужно не sin(2) а sin(1.5) это опять считать кол-во повторов??? это вроде массовость алгоритма называется, так вот оно нарушается

@SuPeR XaKer · 24.12.2010, 13:54

ну вот так можно.

я и не вдумывался особо то так как это не мне нужно.

@Holy_Metal · 24.12.2010, 13:56

да я так просто спросил, хотя на самом деле ее по другому и не сделаешь

ImDoHaToP
		1
	Р еш и ть з а д а чу 3 циклами 24.12.2010, 09:25. Показов 704. Ответов 6 Метки нет (Все метки) y=sin1+sin1,1+sin1,2+...+sin2 __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

@Holy_Metal 72 / 72 / 60 Регистрация: 14.12.2010 Сообщений: 201
	24.12.2010, 13:34	3
	а через for как решить? 0

@Holy_Metal 72 / 72 / 60 Регистрация: 14.12.2010 Сообщений: 201
	24.12.2010, 13:52	5
	ну а если мне к примеру нужно не sin(2) а sin(1.5) это опять считать кол-во повторов??? это вроде массовость алгоритма называется, так вот оно нарушается 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	24.12.2010, 13:54	6
	ну вот так можно. я и не вдумывался особо то так как это не мне нужно. 0

@Holy_Metal 72 / 72 / 60 Регистрация: 14.12.2010 Сообщений: 201
	24.12.2010, 13:56	7
	да я так просто спросил, хотя на самом деле ее по другому и не сделаешь 0

Опции темы