.


:




:

































 

 

 

 


1




.1.

 

1.4

 

, .. . , . .

.

:

- ;

, , .

 

 

{ 1 - }

program matr;

uses Crt;

type

mas=array[0..15,0..15] of real;

var

mtr:mas;

i,j,iMax,iMin,n,m:integer;

ff:char;

max,min,prom,x:real;

begin TextBackGround(9);TextColor(14);ClrScr;GotoXY(10,5);

write(' ( ) ');read(n,m);

writeln;writeln(' ');writeln;

for i:=1 to n do begin

for j:=1 to m do begin

mtr[i,j]:=i*j*sin(0.5*i*j);

write(mtr[i,j]:6:2);

end;

writeln;

end;

max:=mtr[1,1];min:=mtr[1,1];{ }

iMax:=1;iMin:=1;

for i:=1 to n do begin

for j:=1 to m do begin

if max<mtr[i,j] then begin

max:=mtr[i,j];iMax:=i;

end;

if min>mtr[i,j] then begin

min:=mtr[i,j];iMin:=i;

end;

end;

end; { }

for j:=1 to m do begin

prom:=mtr[iMax,j];

mtr[iMax,j]:=mtr[iMin,j];

mtr[iMin,j]:=prom;

end;

writeln;writeln(' ');writeln;

for i:=1 to n do begin

for j:=1 to m do begin

write(mtr[i,j]:6:2);

end; writeln;

end;

gotoXY(50,6); write('iMax = ',iMax,' iMin = ',iMin); ff:= readKey; end.

 

{ 2 - , . }

 

program primer;

uses Crt;

 

function POWER(y,x:real):real; {vozvedenie y v stepen x}

begin {POWER}

if y>0 then

POWER:=exp(x*ln(y))

else

if y<0 then

POWER:=exp(x*ln(abs(y)))

else

if x=0 then

POWER:=1

else

POWER:=0;

end;{POWER}

 

const maxind=15;

type Matriza2=array[1..maxind,1..maxind] of real;

 

procedure ZAMENA(n:integer; {peredaetca kak znahenie}

var B:Matriza2); {to zto zdes, budet menatca i v glavnoi}

var i,j:integer;

begin

for i:=1 to n do B[i,1]:=0;

for j:=1 to n do B[1,j]:=0;

end;

{********** glavnay programma ********************}

var

i,j,n:integer;

x,y,z:real;

A:Matriza2;

f1:text;

s:string[11];

begin textBackground(9);textColor(15);clrScr;gotoXY(10,10);

write('Vvedite y, x: ');readln(y,x);

z:=POWER(y,x);writeln;writeln(' rezultat = ',z:8:2);writeln;

 

write('Vvedite n ');read(n);writeln;

for i:=1 to n do

begin

for j:=1 to n do

begin

A[i,j]:=1;

write(A[i,j]:3:0);

end;

writeln;

end;

readkey;writeln;writeln;

ZAMENA(n,A);

for i:=1 to n do

begin

for j:=1 to n do

begin

write(A[i,j]:3:0);

end;

writeln;

end;

readkey;

{*** rabota s failami ***}

write('Vvedite name file:');

readln(s);{ bez nego ne rabotaet}

readln(s);

writeln;

assign(f1,s); {svazivanie file s peremennoy f1}

{$I-} {otkl kontrol za operaziymi vvod/vivoda.Esli ne sdelat,

to otsutstvie file dast osibku i ostanov progi}

rewrite(f1); {otkrili file dla zapisi}

{$I+}

if IORESULT<>0 then begin writeln('file error');readkey;exit;end;

for i:=1 to n do

for j:=1 to n do

write(f1,A[i,j]:3:0); {zapis v file}

close(f1); {zakrili file}

 

assign(f1,s);

{$I-}

reset(f1); {otkrili dla ztenia}

{$I+}

if IORESULT<>0 then begin writeln('Takogo file net');readkey;exit;end;

writeln('---- rezultat iz file ---- ');writeln;

while not EOF(f1) do

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

read(f1,x); {ztenie iz file}

write(x:5:1);

end;

writeln;

end;

end;

close(f1);

readkey;

end.

 





:


: 2017-02-11; !; : 246 |


:

:

, , .
==> ...

813 - | 773 -


© 2015-2024 lektsii.org - -

: 0.013 .