Найти значение функции y=sin1+sin2+. sinN если N=15

@Vlad2328 · Регистрация: 18.01.2013

Найти значение функции y=sin1+sin2+... sinN если N=15

@Leshiy27 · 19.01.2013, 22:33

Pascal

uses crt;
var
f:real;
i,n:integer;
begin
writeln('Введите N');
readln(n);
for i:=1 to n do
f:=f+sin(i);
writeln('Y= ',f);
end.

Добавлено через 22 секунды
как то так

@Taftis · 19.01.2013, 23:39

Pascal

program zadacha;
uses crt;
var i,n: integer;
    f:real;
begin
write('vvedite n= ');
readln(n);
 
for i:=1 to n do begin
  F:=F+sin(i);
  end;
writeln ('znachenie function F=',F:6:2);
end.

@Vlad2328 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 14
		1
	Найти значение функции y=sin1+sin2+. sinN если N=15 19.01.2013, 22:00. Показов 2453. Ответов 2 Метки нет (Все метки) Найти значение функции y=sin1+sin2+... sinN если N=15 0

Опции темы

Найти значение функции y=sin1+sin2+. sinN если N=15

Решение