turbo pascal решение задач

[sting]

помогите пожалуйста!!!!!очень надо.девушка,плохо понимаю как решать такие задачи

Разработать алгоритм и программу на языке программирования Паскаль, вы-числяющую выражение. Оформить решение задачи по следующим этапам:
1) Постановка задачи;
2) Математическая модель задачи;
3) Алгоритм решения задачи (в виде схемы алгоритма);
4) Программа на языке программирования Паскаль;
5) Результаты выполнения программы на ЭВМ и их анализ.

Введите последовательность из любых чисел R.
Определите сумму положительных и сумму отрицательных чисел.



Найдите сумму N членов ряда:
Y= 1+x/2+x2/3+x3/4+…..+xk/(k+1), k€[0,N], x – любое число.

[MyLastHit]

Это по твоим формулам:

program Mat;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var y,x:real;
begin
writeln('vvedite x dlia 1-go viragenia');
begin
readln(x);
y:=sqrt(cos(sqr(x)+5)*exp(x));
writeln('y=',y:2:2);
end;
Writeln('vvedite x dlia 2-go viragenia');
begin
readln(x);
y:=sqrt((abs(11*x+7))/(ln(3*sqr(x)+2)));
writeln('y=',y:2:2);
end;
Writeln('vvedite x dlia 3-go viragenia');
begin
readln(x);
begin
if x>pi then 
begin
y:=sin(x);
writeln('y=',y:2:2);
end;
if x<pi then 
begin 
y:=cos(x);
writeln('y=',y:2:2);
end;
if x=pi then
begin
y:=0;
writeln('y=',y:2:2);
end;
end;
end;
Writeln('vvedite x dlia 4-go viragenia');
begin
readln(x);
begin
if x>-1 then 
begin 
y:=sqrt(x+1);
writeln('y=',y:2:2);
end;
if x<-1 then 
begin
y:=abs(x+1);
writeln('y=',y:2:2);
end;
if x=-1 then
begin y:=0;
writeln('y=',y:2:2);
end;
end;
end;
readln;
readln
end.

[MyLastHit]

Это для ряда:

program Mat;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var y,x,s:real;
   n,i:integer;
begin
  Writeln('Vvedite N');
  readln(n);
  Writeln('Vvedite x');
  readln(x);
 s:=0;
  for i:=1 to n do
  y:=exp((i-1)*ln(x))/i;
  s:=s+y;
  Writeln('y=',s:2:2);

readln;
readln
end.

[IT-man]

ну и для 1)

var k,i:integer;
a,sp,so:real;
begin
writeln('k=');
Readln(k);
sp:=0;
so:=0;
for i:=1 to k do begin
readln(a);
if a<0 then so:=so+a
else sp:=sp+a;
end;
writeln('sum+',sp:6:3);
writeln('sum-',so:6:3);
readln;
end.

[sorcerer]

помагите мне ещё решить плиз
Дан двумерный массив. Сдвинуть циклически элементы массива вправо в каждой строке.

[Tenken1995]

Добрый день, прошу помощи в решении задачи на массивы.
Если элементы массива расположены по возрастанию, то после первого положительного элемента вставить элемент равный сумме всех элементов массива, в противном случае рассортировать элементы массива по возрастанию.

[Mad_Cat]

1)не лезь в чужую тему - создай свою
2)контакты в подписи -сделаю недорого!