Vladimir_S |
27.11.2013 10:01 |
Цитата:
Сообщение от Евгениус1
(Сообщение 973883)
с программой беда, на экран не выходит в таком виде, в котором нужно, то есть в FUNCTIONtehno015
|
Прежде всего, не надо плодить вокруг одних и тех же задачек кучу тем. Темы объединены. А что до самой задачи, то, например, так:
Код:
Const
X:Array[1..3,1..3] of Real=((0.2,3,4),(0.1,0.2,3.4),(7,8,9));
Y:Array[1..4,1..4] of Real=((1,3,4,7),(8,9,-4,0),(2,3,7,8),(1,3,4,-3));
RX=0.5;
RY=2.5;
Type
Arr=Array[1..4,1..4] of Real;
Var
i,j,NumX,NumY:Byte;
X1:Arr;
A:Boolean;
Function Num(Z:Arr;N:byte;R:Real):Byte;
var
p,q,M:Byte;
begin
M:=0;
for p:=1 to N do
for q:=1 to N do
if Z[p,q]<R then Inc(M);
Num:=M;
end;
Begin
for i:=1 to 3 do
for j:=1 to 3 do
X1[i,j]:=X[i,j];
NumX:=Num(X1,3,RX);
NumY:=Num(Y,4,RY);
A:=(NumX>=NumY);
Writeln(A);
Readln
End.
|