Найти корни уравнения - Turbo Pascal (33914)

Формулировка задачи:

Отыскание корня уравнения F(x)=0 с точностью до 0,0001 , методом простой интеграции. Результат решения: Корень уравнения X

Код к задаче: «Найти корни уравнения - Turbo Pascal (33914)»

textual
uses crt;
const n=4;m=5;
type mas = array [1..n,1..m] of integer;
var a:mas;
 
procedure sozd_mas (var d:mas);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
d[i,j]:=random(100);
end;
 
procedure vivod_mas (d:mas);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(d[i,j]:5);
writeln;
end;
end;
 
procedure maxel (d: mas);
var i,j,max,maxi,maxj:integer;
begin
max:=-(maxint+1);
for i:=1 to n do
for j:=1 to m do
if (d[i,j]>max) then
begin
        max:=d[i,j];
        maxi:=i;
        maxj:=j;
end;
writeln('Max el raspolozhen v ',maxi,' stroke i v ',maxj,' stolbce i raven ',max);
end;
 
procedure minel( d:mas);
var i,j,min,mini,minj:integer;
begin
min:=maxint;
for i:=1 to n do
for j:=1 to m do
if (d[i,j]<min) then
begin
        min:=a[i,j];
        mini:=i;
        minj:=j;
end;
writeln('Min el raspolozhen v ',mini,' stroke i v ',minj,' stolbce i raven ',min);
end;
 
BEGIN
clrscr;
randomize;
sozd_mas(a);
vivod_mas(a);
maxel(a);
minel(a);
readkey;
end.

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ