Programozás : Massziv? Mátrix? Fügvény? Légyszi. Csatolva

[link]

program HaromFeladat;

{Adott egy A masziv. Határozd meg hány elem nagyobb D-nél. D egy beadott

érték(állandó). A massziv 10 elembõl áll.}

var A : array[1..10] of Longint ;

procedure feladat1;

var D: Longint;

var i: Longint;

var n: Longint;

begin

A[1] := -1000;

A[2] := -100;

A[3] := -10;

A[4] := 0;

A[5] := 10;

A[6] := 100;

A[7] := 1000;

A[8] := 10000;

A[9] := 100000;

A[10] := 1000000;

Write('Adj meg egy szamot: ');

Readln(D);

n := 0;

for i := 1 to 10 do

begin

if (A[i] > D) then

Inc(n);

end ;

Writeln(n,' elem nagyobb mint ',D,'.');

end ;

{m*n méretû mátrix. Meg kell határozni az egyes sorok tagjainak az összegét.}

const m = 4;

const n = 3;

var matrix : array[1..m, 1..n] of Longint ;

procedure feladat2;

var i, j: Longint;

var s: Longint;

begin

matrix[1,1] := -1000; matrix[1,2] := -100; matrix[1,3] := -10;

matrix[2,1] := 0; matrix[2,2] := 10; matrix[2,3] := 100;

matrix[3,1] := 1000; matrix[3,2] := 10000; matrix[3,3] := 100000;

matrix[4,1] := 2000; matrix[4,2] := 20000; matrix[4,3] := 200000;

for i := 1 to m do

begin

s := 0 ;

for j := 1 to n do

begin

s := s + matrix[i,j] ;

end ;

Writeln('Az ',i,'. sor osszege: ',s);

end ;

end ;

{Meghatározni az y=x^2+2x^2 fügvény értékét, ha tudjuk, hogy x teljes szám és

-5 tõl 5 ig változik. Elõfeltétellel vagy paraméterrel.}

procedure feladat3;

function fuggveny(value: Shortint): Longint;

var x: Shortint;

begin

x := value;

if (x < -5) then x := -5

else if (x > 5) then x := 5;

fuggveny := sqr(x)+2*sqr(x);

end;

var i: Shortint;

var y: Longint;

begin

for i := -5 to 5 do

begin

y := fuggveny(i);

Writeln('f(',i,') = ',y);

end ;

end ;

begin

feladat1;

feladat2;

feladat3;

Writeln('Press <Enter> to continue...');

Readln;

end.