7 задачек (Паскальик)

[Sne}l{inka))))]

Котики))) Привет всем! Дали контрольную не умею программировать((((
В универе дали контрольную .....Не понимаю что там написано даже(((
Пожалуйста помогите........плз плз плз плз.... зарание чмок чмок чмоки....
Надо выполнить минимум 4 задачки Если можно сделайте 7 она думаю самая сложная)))
Ну плз плз плз плз сделайте хоть чтонибудь...

1.Описать массив {ai,i=1..10} и заполнить его по праилу:
а)все элементы массива равны некоторому определеному числу (Параметр);

2. В одномерном массиве{ai,i=1..N} определить количество элементов:
а)для которых количество положительных элементов, расположенных слева,и количество отрицательных элементов,расположенных справа,совпадают.

3. Определить истиность высказывания для целочисленного масива {ai,i=0..N}
a)элементы массива упорядочены по невозрастанию или неубыванию

4. В целочисленном массиве {ai,i=1..N}:
г)нулевые эдементы большим из предшествующих

5. в целочисленном массиве {ai,i=0..N} переставить элементы так,чтобы по ходу массива:
в)суммы цифр элементов не убывали

6.Написать рекурсивную процедуру или функцию позволяющую:
а)вычислить сумму цифр натурального числа М

7. Реализовать метод биссекции для определения корня нелинейного уравнения в виде рекурсивной функции (проверять что на концах исходного отрезка функция имеет значения разных знаков, НЕ НАДО)

[Sheka]

Обращайтесь! Сделаю за Чмоки-Чмоки))) 255507394

[Хыиуду]

1. for i:=1 to 10 do a:=42;
3. nevozr:=true; neubyv:=true;
for i:=1 to n-1 do
begin
if a<a[i+1] then nevozr:=false;
if a>a[i+1] then neubyv:=false;
end;
6. function sumcifr(x:integer)
begin if x<10 then sumcifr:=x else sumcifr:=x mod 10 +sumcifr(x div 10); end;

[Sne}l{inka))))]

1.3.6. я сделала помогите остальное

[dr.Jekill]

Вот тебе по 7:
[syntax="pascal"]
Function func (arg:real):real;{dlia vychisliaiuschaia znachenia funkcii F(x)}
begin
func:=arg;{nuzhno zadat svoiu funkciu}
end;

Function sign(zn:real):integer;
begin
if zn=0 then
begin
sign:=0
end
else
if zn>0 then sign:=1
else sign:=-1;
end;

PROCEDURE BISECT (A,B,EPS :REAL; IT:INTEGER; {procedura nahozhdenia korhney}
VAR X : REAL; VAR K:INTEGER);{a-verniaia granica intervala,}
{b-nizhnaia granica intervala,}
{eps-tochnost}
{it-maksimalnoe kol-vo iteracii}
VAR A1, B1: REAL; X1, X2, X3 : INTEGER;
BEGIN
K := 0;
X1 := SIGN (FUNC(A));
X2 := SIGN (FUNC(B));
A1 := A;
B1 := B;
REPEAT
INC (K);
X := (A1+B1)*0.5;
X3 := SIGN (FUNC (X));
IF X3=0 THEN EXIT;
IF ABS(B1-A1)<(2*EPS) THEN EXIT;
IF (X1=X2) AND (X2=X3) THEN EXIT;
IF X1=X3 THEN
BEGIN
A1 := X;
X1 := X3;
END
ELSE
BEGIN B1 := X;
X2 := X3;
END;
UNTIL K>IT;
END;
[/syntax]
Доделывай.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Блин, только это не рекурсивная...

[Хыиуду]

Код: Выделить всё

function bisect(a,b:real):real;
var c: real;
begin
  if b-a<eps tehn bisect:=(b+a)/2
  else begin
     c:=(a+b)/2;
     if f(a)*f(c)>0 then bisect:=bicect(c,b)
     else bisect:=bicect(a,c);
  end;
end;

[Sne}l{inka))))]

Огромное спосибочки вам всем чмоки чмоки)))
Вы очень добрые люди пусть вам по жизни сопутствует удача!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Хыиуду котик, зайка,пупсик помоги....Можешь написать программу от начала до конца?

[Хыиуду]

const eps=0.01;
function f(x:real):real
begin
Здесь сама функция, например f:=sin(x);
end;

function bisect...
begin
см. выше
end;
begin
writeln(bisect(-10,10));
end.

И см. мою подпись.

[Sne}l{inka))))]

Все равно не компилирует((((((((
а это ты про что насчет подписки?

[BHy4ok]

Хыиуду котик, зайка,пупсик помоги....Можешь написать программу от начала до конца?

Я плакал
Хыиуду раздобрел