Турбо Паскаль - Форум
Суббота, 03.12.2016, 22:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Турбо Паскаль (Срочно Плиз!!!!)
Турбо Паскаль
blackcataДата: Понедельник, 27.06.2011, 13:01 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
При некоторых заданных X,N,E определяемых вводом вычислить:
1)Сумму N слагаемых задданого вида.
2)Вычислить сумму слагаемых,которые по абсолютной величине больше E.

sin⁡(x)/x=1-x^2/3!+x^4/5!-x^6/7! еще давали формулу к этой задаче
 
KOT_B_MEIIIKEДата: Понедельник, 27.06.2011, 20:14 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code
program makloren;
var y,x,e,p:real;i,n:integer;
function fact(a:integer):integer;
           var i,r:integer;
           begin
           for i:=1 to a do r:=r*i;
           fact:=r
           end;
begin
write('Vvedite x:');read(x);
write('Do kakogo chlena prosummirovat?');read(n);
y:=1;
for i:=2 to n do
      y:=y+y*x*x/((2*i-2)*(2*i-1));
writeln(y);
write('Vvedite epsilon:');read(e);
y:=1;
p:=y*x*x/((2*i-2)*(2*i-1));
while (p>e) do
        begin
        y:=y+p;
        p:=p*x*x/((2*i-2)*(2*i-1));
        end;
writeln(y);
end.


мб так... но ой как не уверен((
200 сообщение)))
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Турбо Паскаль (Срочно Плиз!!!!)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016