'
? '- 9: ?+?+?' ?'???
9.3 ???''? ? ????????. ?'??'?? ???'??. +? ? ?, ????''??'? '??'?.
'???'? '??'?
-?: '?''? '?? ??????' '?%? ?? '? ???? ???: =2?R, S= ?R2.
????'??'?? '??'??
|
Basic-256 input ??'' ??? r = ??, r c=2*pi*r s=pi*r^2 print ??''? ??????' = ??; print c print ???'?%? ?? = ??; print s PascalABC Program Ivanov5; //''? ??????', '?%? ?? const Pi = 3.14159; var R: byte; S, C: Real; begin write (''' ??? '); readln (R); C:=2*Pi*R; S:=Pi*R*R; writeln ('''? ??????' = ', C:6:2); writeln ('?'?%? ?? = ', S:9:3) end.
|
?'??'? ''??
-?: ? ??'? %?'??'? Y '?''? Z:
????'??'?? '??'??
|
Basic-256 input "'' ?? x = ", x input "'' ?? y = ", y if x > y then z = x - y else z = y + x + 1 end if print "z = "; print zPascalABC Program Ivanov6; //'''? var X, Y, Z: , Z: , Z: Real; begin write (''' ??? X Y '); readln (X, Y); If X> Y Then Z := X - Y else Z := Y + X + 1; writeln ('Z = ', Z:6:2); end. |
'?? '??'?
-?: ????'? '?? ?+? (1000 '''' '? ?? ?'???'? ????'?).
' ? ???'?? ('-"?") Basic-256 clg rem ??? '?? ?+? color darkblue rect 0,0,300,300 color yellow k=1 While k<=1000 x=Rand*300 y=Rand*300 plot x,y k=k+1 End while PascalABC
Program
Ivanov; |
' ? ??'??'?? ('-"?") Basic-256 clg rem ??? '?? ?+? color darkblue rect 0,0,300,300 color yellow k=1 Do x=Rand*300 y=Rand*300 plot x,y k=k+1 Until k>1000PascalABC
Program Ivanov; |
' ? ??'??? (?? ?''??))
Basic
clg
rem ??? '?? ?+?
color
darkblue
rect
0,0,300,300
color
yellow
for k=1
to 1000
rem , ??'? 1 ???? ? ?'?
x=Rand*300
y=Rand*300
plot x,y
Program
Ivanov; |
????' ???? | - '?? ???'' '' | - '?? ? ????? |
?? ??'??? ?'?'? ??' ????+ ??+'?'?
?'?
''???? ?.?.
?.'., 2011