Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ImDoHaToP
1

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

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

y=sin1+sin1,1+sin1,2+...+sin2
2856 / 1985 / 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
2856 / 1985 / 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
2856 / 1985 / 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® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.