Помогите решить задачки в Pascal "!"

[Yondaime]

1.Составить программу вычисления суммы знакопеременного ряда

S=1-1/2+1/3-1/4+... и т.д.

Вычисление продолжать до тех пор пока очередное слагаемое не станет по модулю меньше величины Е. В программе использовать оператор цикла с предусловием While.

2.Вычислить сумму ряда при заданном значении X:

S=x+(x*x)/2!+(x*x*x)/3!+(x*x*x*x)/4!+...+(x^12)/12! (x^12) --> x в 12-ой степени

Приминяя Оператор цикла с постусловием REPEAT

3. Составить программу вычисления дроби:

S=x/((x*x)+2/(x*x)+4/(x*x)+8/k*(k/(x*x)+256/(x*x))

Применяя оператор цикла с постусловием Repeat или While.

Зарание СПС ! ! !

там где х*х*... это степень я не помню просто как её ставить (

[vladchyzh]

3. Составить программу вычисления дроби:

S=x/((x*x)+2/(x*x)+4/(x*x)+8/k*(k/(x*x)+256/(x*x))

Применяя оператор цикла с постусловием Repeat или While.

const
 Stop = 2;
var
 x, k : integer;
 S : Real;
 n : integer;
begin
 while n<Stop do
  begin
   n:=n+1;
   writeln('x=', x);
   readln(x);
   writeln('k=', k);
   readln(k);
   if ((x*x)+2/(x*x)+4/(x*x)+8/k*(k/(x*x)+256/(x*x)))<>0 then
    begin
     S:=x/((x*x)+2/(x*x)+4/(x*x)+8/k*(k/(x*x)+256/(x*x)));
     writeln('S=', S:6:3);
    end
   else writeln('Eror in incoming data.');
  end;
 writeln('Bay-Bay!');
 readln;
end.

P.S. Может что то не так подправишь и еще себе подстроишь.

[maladoy]

2 в одном

program v123;
uses crt;
var e:real;
    i:integer;
     s:real;
	 m:integer;
function vstep(k:integer;l:real):real;
 begin
  vstep:=exp(l*ln(k));
 end;
function fakt(n:integer):longint;
   begin
     if n>1 then fakt:=n*fakt(n-1)
         else fakt:=1;
   end;
begin
 writeln ('vybery zadachu 1,2:');
 readln (m);
 s:=0;
   i:=1
 if m=1 then begin
  writeln ('vvedite e');
  readln(e);
  while abs(vstep(-1,i-1)/i) > e do
  begin
  s:=s+vstep(-1,i-1)/i;
  i:=i+1;
  end;
  end;
  if m=2 then begin
  writeln('vvedite x');
  readln(x);
  repeat 
  s:=s+vstep(x,i)/fakt(i);
  i:=i+1;
  until i>12
  end;
  writeln('s=',s:6:4);
readln;
  end.

[maladoy]

if ((x*x)+2/(x*x)+4/(x*x)+8/k*(k/(x*x)+256/(x*x)))>0 then

наверно не > a <>

[vladchyzh]

maladoy, точно, спасибо что подправил.

[maladoy]

Сообщение от vladchyzh

maladoy, точно, спасибо что подправил.

тока условие у задачи походу косячное какое-то!!!

[bura]

Задача 1:

var
 i: integer;
 sum, e, a: double;
begin
  write('Vvedite tochnost: ');
  readln(e);
  i:=1;
  sum:=0;
  a:=1.0;
  while abs(a)>=abs(e) do
   begin
    a:=1.0/i;
    if (i mod 2)=1 then
     sum:=sum+a
    else
     sum:=sum-a;
    i:=i+1;
   end;
  writeln('summa ravna ', sum:8:5);
  readln;
end.

[kyros]

Помогите решить задачки.
ВЫЧИСЛЕНИЕ АРИФМЕТИЧЕСКИХ ВЫРАЖЕНИЙ
Вычислить заданное смешанное арифметиеское выражение для данных в форматах REAL (переменные a,b) и INTEGER (остальные переменные)
1.Написать программу осуществляющую вычисление смешанного арифметического выражения для исходных данных.
первое (-2*С-ln (d)+53)/(a/4-1)
второе (с/в+ln (3*а/2))/(с-a+1)
третье (ln(4*a-1)+b/2)/(b*c-5)

[mihali4]

Сообщение от kyros

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

Один вопрос - одна тема.
А задавать свои вопросы в чужих темах как минимум - неэтично.
Закрыто.