program 3;
function pow(a,b:real):real;
begin
       pow:=exp(b*ln(a));
end;
var
    i,n:integer;
    x,z:real;
begin
    z:=0;
    writeln('Enter n,x');
    readln(n,x);
    for i:=1 to n do 
    begin 
         z:=z+(x+cos(i*x))/pow(2,i);
    end;
    writeln(z);
end.

Pascal

program 2;
var 
    x,z,e:integer;
    q,j,b:real;
begin
       writeln('введите числа'); 
       writeln('z,e,x');
       read(z,e,x);
          q:=ARCTAN(z);
          j:=EXP(-(x+3)*ln(x));
          b:=x*(q+j);
       writeln('Q=',q);
       writeln('J=',j);
       writeln('B=',b);
       readln;
 end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.01.2009, 19:58

Ответы с готовыми решениями:

Блок-схемы
Требуется блок-схемы к двум программам. program Project1; uses crt; const D=; M=10;...

блок схемы
кто может помочь оформить блок схемы по госту, я схемы нарисовал, мне нужно чтоб мне...

блок-схемы
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы массы пронумерованы...

блок-схемы
кто может помочь проверит блок-схемы под созданные программы?

	25.01.2009, 19:58

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.01.2009, 19:58

Помогаю со студенческими работами здесь

блок-схемы
помогите сделать блок схемы по данным кодам в паскале: 1.uses crt; var...

=( блок схемы
Здравствуйте мальчики помогите плиз дурацкие блок схемы програмки сделала а с блок схемами не как...

Блок-схемы
Как составить блок схему???подскажите плизззззззззззззз program 3; uses crt; var y,b,x,c: real;...

Блок схемы
Маленькая просьба, помогите с блок схемами к следующим задачам: 1) uses crt; type film=record...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх