Results 1 to 6 of 6
Hybrid View
-
22nd August 2009 16:40 #1
( , ). :
1. " "var" - : "procedure action (var a:Masiv, y:integer)
, , "var", , ?
2. type ? -999.99 999.999 type "1..30,1..30" ? "1..30,1..30" ?
3. "write x[i,j]:4" ( " ") ":4" ":4:2"? ,
4. Byte ?
5. for "i:=1 to y do
j:=1 to y do
"
begin "i:=1 to y do" "j:=1 to y do" ?
6. begin "j:=1 to y do" "if" begin ?
7.
begin
res[i,j] :=Q
count := count + 1;
end
else
res[i, j] :=a[i,j];
replace :=count;
end;
"end" ?
-
22nd August 2009 17:30 #2Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
1. "var" , . , "", "". var, , . , . var, , , . - , .
2. "1..30" . , , 1 30. 30*30=900 . .
4. Byte ,
, , 0 255, Byte . , .
5 6. Begin end . , ,
, . 7, - , - , .
-
22nd August 2009 18:04 #3
5, 6, 7. if :
for :Code:if <> then <> if <> then <> else <>
<> , / , . for, repeat/until, if/then, if/then/else . , .. , begin end:Code:for <. > := < -> to|downto < -> do <>
.Code:begin <>; <>; <> end
, .. <> . 5 6.
- 5: begin , ( i), ( j), . begin , .
.. end , :
- , ;
- end ( ).
end , :
- , <>- else if/then/else. , :
7.Code:if <> then begin .... end; <-- if else ...; <-- , , else
Internet. .Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
22nd August 2009 18:48 #4
-
23rd August 2009 16:58 #5
.

---------- 16:58 ---------- 21:11 ----------
, , a little help please
-
23rd August 2009 18:47 #6
Last edited by AimeR; 23rd August 2009 at 23:17.
ASUS X570-P|R7 5800X3D@NH-U14S|2X16G DDR4 3200 Corsair VENGEANCE LPX|Samsung 980 PRO 1TB|Radeon RX 7900 XTX 24G|AOC CQ32G1|Corsair RM750x|CM 693




Reply With Quote


Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in