Помогите решать задачу

sanyacech · 03.02.2010, 21:20

Дано : n (т.е. я должен вводить любое n)

Найти: y=sin (3.14*k) если k меняется от 1 до n

плиз очень надо

Гризлик · 04.02.2010, 00:08

sanyacech, Для начало сказали бы на каком языке нужно!

Макаревич · 04.02.2010, 00:19

если паскаль, то вот код

var k,n: longint;
y:real;
begin
read(n);
y:=0;
for k:=1 to n do
y:=sin(3,14*k);
write (y);
end.

хотя если k меняется от 1 до n, то мож надо сумму синусов найти????

если да, то вместо y:=sin(3,14*k) вставьте y:= y+sin(3,14*k)

Гризлик · 04.02.2010, 00:45

Цитата:

Сообщение от Макаревич

for k:=1 to n do
y:=sin(3,14*k);
write (y);
end.

Я конечно не силен в Паскале. Так что прошу извенить меня если что

Но помоему тут не хавтает операторов begin и end

Код:

for k:=1 to n do begin
y:=sin(3,14*k);
write (y);
end; 
end.

Макаревич · 04.02.2010, 20:43

Цитата:

Сообщение от Гризлик

for k:=1 to n do begin
y:=sin(3,14*k);
write (y);
end;
end.

если нужно выводить y каждый раз, то да, а так не нужно, т.к. после y:=sin(3,14*k) стоит ;

sanyacech · 05.02.2010, 15:14

спасибо мужики держите ++++++

03.02.2010, 21:20	#1 (ссылка)
sanyacech Новичок Регистрация: 18.07.2009 Сообщений: 78 Репутация: 1	Помогите решать задачу Дано : n (т.е. я должен вводить любое n) Найти: y=sin (3.14*k) если k меняется от 1 до n плиз очень надо

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
App crash на Windows 7, что делать и как решать эту проблему???	boris4646	Windows 7	4	06.12.2010 22:58
App crash на Wundiws 7, что делать и как решать эту проблему???	boris4646	Windows 7	0	06.12.2010 13:06
Помогите решить задачу на "Поиск решения", Excel	Annitka	Офис	3	10.05.2010 23:28
Диспетчер задач не снимает задачу	Mokus	Windows XP	2	17.03.2010 10:19
Нужно решить задачу массивы на с	Digkill	Программирование	0	22.01.2010 17:54
Помогите решить задачу	Redfoxter	Программирование	3	19.12.2009 17:12
Помогите решить задачу	Battle	Программирование	1	14.12.2009 01:07
Помогите решить задачу	Mihal	Программирование	6	08.12.2009 19:08
Помогите решить задачу	Пират	Общение по интересам	5	15.09.2009 14:42
плизз помогите решить задачу в turbo packal	humor92	Программирование	8	12.08.2009 11:54

04.02.2010, 00:08	#2 (ссылка)
Гризлик Эксперт Регистрация: 08.09.2009 Сообщений: 10,716 Репутация: 960	sanyacech, Для начало сказали бы на каком языке нужно!

04.02.2010, 00:19	#3 (ссылка)
Макаревич Новичок Регистрация: 23.11.2009 Сообщений: 413 Репутация: 30	если паскаль, то вот код var k,n: longint; y:real; begin read(n); y:=0; for k:=1 to n do y:=sin(3,14k); write (y); end. хотя если k меняется от 1 до n, то мож надо сумму синусов найти???? если да, то вместо y:=sin(3,14k) вставьте y:= y+sin(3,14*k)

05.02.2010, 15:14	#6 (ссылка)
sanyacech Новичок Регистрация: 18.07.2009 Сообщений: 78 Репутация: 1	спасибо мужики держите ++++++

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Ads