Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  modst
Language: PASCAL
Code:
Unit modst;

interface

const
 T=10;

type
Massiv = Array[1..T] of Real;

Function f(x,y:integer):real;

procedure Vvod(A:integer; var X:Massiv);
procedure Vyvod(A:intger; X:Massiv);
procedure kv(A:integer; x:massiv; var K:massiv);
procedure minmax(A:integer; x:massiv; var min, max:real);

implementation

Function f(x,y:integer):real;
begin
if x=y then f:=exp(3*ln(x))*sqr(y)+3
else f:=1/(x+y)
end;

procedure Vvod(A:integer; var X:Massiv);
var
I:integer;
begin
Randomize;
for i:=1 to A Do x[i]:=(Random*100)-50;
end;

procedure Vyvod(A:integer; X:Massiv);
var
I:integer;
begin 
for I:=1 To A Do Write(X[I]:9:2);
WriteLn;
end;

procedure kv(a:integer; x:massiv; var K:massiv);
var
I:integer;
begin
for i:=1 to a do k[i]:=sqr(x[i]);
end;

procedure minmax(a:integer; x:massiv; var min,max:real);
var
I:integer;
begin
max:=x[1];
for i:=1 to a do if max<x[i] then max:=x[i];
min:=x[1];
for i:= 1 to a do if min>x[i] then min:=x[i];
end;

begin

end.
Comments: