ImDoHaToP
1

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

24.12.2010, 09:25. Показов 704. Ответов 6
Метки нет (Все метки)

y=sin1+sin1,1+sin1,2+...+sin2
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.12.2010, 12:51 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
0
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
24.12.2010, 13:34 3
а через for как решить?
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.12.2010, 13:47 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
ну вот так можно.
0
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
24.12.2010, 13:52 5
ну а если мне к примеру нужно не sin(2) а sin(1.5) это опять считать кол-во повторов??? это вроде массовость алгоритма называется, так вот оно нарушается
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.12.2010, 13:54 6
ну вот так можно.
я и не вдумывался особо то так как это не мне нужно.
0
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
24.12.2010, 13:56 7
да я так просто спросил, хотя на самом деле ее по другому и не сделаешь
0
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru