Results 1 to 13 of 13
Thread: !
Hybrid View
-
13th December 2004 19:23 #1
!
.. !
X (m, n) Y (m, n), m ≤ 6 n ≤ 6 - , - P. Y M N :
Const
mm = 6; mn = 6;
:
Type
matrix = array[1..mm, 1..mn] of real;
Procedure ReadM2 ( var Y : matrix; var M, N : integer);
Procedure WriteM2 ( Y : matrix; M, N : integer);
.
.
, ,
!(\__/) :
(='.'=)- " " !
('')_('')
-
13th December 2004 19:55 #2
.
:
1: (, , )
2: 10 .: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()
-
13th December 2004 22:19 #3
@ XaMaB ... -.. ... . . ....
' ...
(\__/) :
(='.'=)- " " !
('')_('')
-
14th December 2004 12:02 #4
-
14th December 2004 12:07 #5Registered User
Join Date: Dec:2004
Location: hitechbg.com
Posts: 16
, . ????
http://www.hitechbg.com
-
14th December 2004 13:39 #6
Darkness,
, ...
, :
Code:< > for i 1 for j 1 N X[m,n]> P = + X[m,n] = +1 Avg = / 0
-
14th December 2004 15:11 #7
))
Code:program test; Const mm = 6; mn = 6; type matrix = array[1..mm, 1..mn] of real; var Y:matrix; P:Real; M:Integer; N:Integer; procedure ReadM2(var Y: matrix; M, N: integer); var I, J:Integer; begin Randomize; for I:=1 to mm do begin for J:=1 to mn do begin Y[I, J]:=Random*100; end;//for end;//for end; procedure WriteM2(Y: matrix; M, N: integer); var I, J:Integer; begin for I:=1 to M do begin for J:=1 to N do begin Write(Y[I, J])+'; '); end;//for Writeln; end;//for end; procedure ProcessM2(Y: matrix; M, N: integer); var I, J, Cnt:Integer; Sum:Real; begin Cnt:=0; Sum:=0; for I:=1 to M do begin for J:=1 to N do begin If(Y[I, J] > P)then begin Sum:=Sum+Y[I, J]; Cnt:=Cnt+1; end;//If end;//for end;//for If(Cnt>0)then begin Writeln('Avg. value: '+Sum/Cnt); end;//If end; begin readln(P); readln(M); readln(N); ReadM2(Y, M, N); ProcessM2(Y, M, N); WriteM2(Y, M, N); end.
-
14th December 2004 16:42 #8
... ... ... ( 2 )
@nettle ?
(\__/) :
(='.'=)- " " !
('')_('')
-
14th December 2004 17:55 #9
nettle
:-)
, ReadM2. ProcessM2, .. , > P, P , Readln(P) .
, turbopascal ? delphi, :
Code:program Project1; {$APPTYPE CONSOLE} uses SysUtils; Const mm = 6; mn = 6; type matrix = array[1..mm, 1..mn] of real; var Y:matrix; P:Real; M:Integer; N:Integer; procedure ReadM2(var Y: matrix; M, N: integer); var I, J:Integer; begin Randomize; for I:=1 to mm do begin for J:=1 to mn do begin Y[I, J]:=Random*100; end;//for end;//for end; procedure WriteM2(Y: matrix; M, N: integer); var I, J:Integer; begin for I:=1 to M do begin for J:=1 to N do begin Write(FormatFloat('0.00000;-0.00000', Y[I, J])+'; '); end;//for Writeln; end;//for end; procedure ProcessM2(Y: matrix; M, N: integer); var I, J, Cnt:Integer; Sum:Real; begin Cnt:=0; Sum:=0; for I:=1 to M do begin for J:=1 to N do begin If(Y[I, J] > P)then begin Sum:=Sum+Y[I, J]; Cnt:=Cnt+1; end;//If end;//for end;//for If(Cnt>0)then begin Writeln('Avg. value: '+FormatFloat('0.00000;-0.00000', Sum/Cnt)); end;//If end; begin readln(P); readln(M); readln(N); ReadM2(Y, M, N); ProcessM2(Y, M, N); WriteM2(Y, M, N); end.
turbopascal Real to string ( FormatFloat() ). , tuning .
/ :-) .../
-
14th December 2004 18:14 #10
turbopascal.
(\__/) :
(='.'=)- " " !
('')_('')
-
15th December 2004 09:30 #11
TP. - SysUtils uses FormatFloat TP. TP
-
15th December 2004 22:14 #12
-
16th December 2004 00:12 #13
: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()




Reply With Quote
R9 280,
7th May 2023, 21:28 in