Вычисление интеграла на интервале [a, B]! Опции

[BDS]

Почти такая же фигня - еще две проги:
1. Составить программу на языке Turbo Pascal 7.0 вычисления значения интеграла на интервале [a, b] для функции, заданной графически. Значение интеграла вычислить приближённо по итерационной формуле левых прямоугольников. Границы интервала вычислений a и b, радиус R, d, c, точность вычисления интеграла E - всё это вводится с экрана!
2. Вычислить среднее арифметическое значение отрицательных элементов матрицы А(К,К), К <= 70, расположенных под главной диагональю.

[hr]Сами проги у меня есть (если кому надо, могу кинуть). Но проблема в том, что их тоже надо с Ассемблерными вставками сделать! Если кто может помочь, пишите!

[BDS]

Вот вторая прога:

Код

program KKR3;

uses crt;
const n=5;
var
i,j,p,m:integer;
minus:real;

A: array [1..n,1..n] of integer;

begin
ClrScr;
writeln('Программа вычисляет среднее арифметическое значение');
writeln('отрицательных элементов матрицы A(K,K), K<=70,');
writeln('расположенных под главной диагональю.');
 randomize;
 for i:=1 to n do
 begin
   writeln;
   for j:=1 to n do
     begin
       A[i,j]:=random(120)-50;
       write(A[i,j]:4);
     end;
 end;
 writeln;

 minus:=0;
 m:=0;
 for i:=2 to n do
 for j:=1 to i-1 do
 begin
   if A[i,j]<0 then
   begin
     minus:=minus+A[i,j];
     Inc(m)
   end;
 end;
 if m<>0 then
  begin
   writeln;
   writeln('Среднее арифметическое значение отрицательных элементов матриицы,');
   writeln('расположенных под главной диагональю равно: ',minus/m:0:2);
  end
 else
  begin
   writeln('Количество отрицательных членов равно 0');
  end;
readkey;
end.

Конец

Сообщение отредактировано: volvo - 17.12.2004 13:22