Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Вывод значений функций

Автор: epselon 16.5.2009, 00:51

Всем привет, помогите plz решить Контр. работу за 10 класс на Паскале..
Составить программу, значения х, а, n, вводятся с клавиатуры.
1) y=sin(x)+sin(x(2степени))+sin(x(3степени))+..+sin(x(n степени));
2) y=sin(x)+sin2степени(x)+sin3степени(х)+..+sinNстепени(х)
3) p=a*(a+1)*(a+2)*..*(a+n-1)
4) p=a*(a-4)*(a-24)*..*(a-n2степени)
5) p=2*4*6*..*(24)
6)S=-1/x+2/x2степени-3/x3степени+4/x4степени...
заранее спасибо

Автор: Sanek123 16.5.2009, 07:51

Код


uses crt;
var
   y,y2,x,p,a:real;
   i,n:integer;

begin
   write('Enter x: ');
   read(x);
   write('Enter n: ');
   read(n);
   write('Enter a: ');
   read(a);
           y:=1;

           for i:=1 to n do
           begin
           y := y + sin(Exp(i*ln(x)));
           end;

           y2:=1;

           for i:=1 to n do
           begin
           y2 := y2 + (Exp(i*ln(sin(x))));
           end;

           p:=1;

           for i:=1 to n do
           begin
           p := p * (a+i);
           end;

   writeln('Rezult: ',y : 0 : 0);
   writeln('Rezult: ',y2 : 0 : 0);
   writeln('Rezult: ',p : 0 : 0);
   readln;
   readln;
end.

Для первого - третьего... Дальше - по аналогии.

Автор: Sanek123 16.5.2009, 08:45

Для второй вместо

Код


y := y + sin(Exp(i*ln(x)));

надо поставить

Код


y := y + (Exp(i*ln(sin(x))));

В 4,5,6 - непонятен шаг!

Автор: AndreyZ53 16.5.2009, 09:30

Sanek123, по идеи в твоей задачи первоначально y1,2:=1 надо присвоить 0, а не 1, там же сумма
y1:=0; и тоже самое с y2:=0;

Автор: Sanek123 17.5.2009, 23:02

Цитата

по идеи в твоей задачи первоначально y1,2:=1 надо присвоить 0, а не 1, там же сумма
y1:=0; и тоже самое с y2:=0;

Базара нет, AndreyZ53 - вы правы! Просто сделал по тупой аналогии как для р

Код


p := p * (a+i);,

так как если р=0, то и результат - 0.
И вообще, видно рнр косякнул: раз восемь отпралял ответ, потом добавил - недобавилось, отредактировал - нет ответа. А сегодня захожу в этот топик - такая чушь в сообщениях: второе третье smile

...
А как epselon'у помоло?