2 задачи на массивы.Задача на определён. интеграл., Volvo, загляни пожалуйста ещё раз! Опции

[Troy]

Люди добрые, я здесь первый раз, но очень надеюсь на вашу помощь!В общем в универе завал: по причине болезни накопился долг по информатике в 4 лабы...Лабы, как вы наверно уже поняли по Borland Pascal.Если вам не трудно не могли бы вы мне помочь?Может для вас эти задачи и покажутся простыми, но так как я пропустил 2 недели занятий, мне написать код этих программ не по силам...

Вот условия задач:



1)Обработка одномерных массивов:

Переписать подряд в массив А положительные элементы, а в массив Z отрицательные элементы массива В.

Массив В(20)



2)Обработка двумерных массивов:

В массиве В(4,4) найти произведение кубов главной диагонали.



3)Вычисление определённого интеграла приближёнными методами:

Подинтегральная функция: lnx (x в квадрате)

Метод численного решения: прямоугольников

Число отрезков: 50

Интервал интегрирования [1;2,5]





Заранее всем откликнувшимся огромное спасибо!

Сообщение отредактировано: Troy - 21.12.2004 2:02

[Troy]

вот какой код получился у меня к 3 программе:

Program lab_6;
Uses crt;
Var
a,b,dx,s,x,y:real;
n,i:integer;
begin
writeln ('v a');
readln (a);
writeln ('v b');
readln(dx);
n:=Round((b-a)/dx);
x:=a;
s:=0;
for i:=1 to n do
begin
y:=ln(x*x)/x*x;
s:=s+y*dx;
x:=x+dx;
end;
writeln('Znachenie integrala:',s:9:3);
readln;
end.

По-моему неправильно...
Всё, писец,кажись сегодня я завалюсь на сдаче лаб...

Сообщение отредактировано: Troy - 21.12.2004 2:08