' 9.3 ?+?+?' ?'???

? '- 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 z

PascalABC

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;
//
??? '?? ?+?
Uses graphABC;
var
    
X, Y, k: integer;
begin

randomize;
setWindowSize(
300,300);

setPenColor(clNavy); setBrushColor(clNavy);
rectangle (
0, 0, 300, 300);
k:=1;

While
k<=1000 Do
   begin
   X := round (random (300));
   Y := round (random (300));
   putpixel (X, Y,clYellow);
   k:=k+1

   end

end.

' ? ??'??'?? ('-"?")

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>1000

PascalABC

Program Ivanov;
//
??? '?? ?+?
Uses graphABC;
var
    
X, Y, k: integer;
begin

randomize;
setWindowSize(
300,300);

setPenColor(clNavy); setBrushColor(clNavy);
rectangle (
0, 0, 300, 300);
k:=1;

repeat
    X := round (random (300));
    Y := round (random (300));
    putpixel (x, y, clYellow);
    k:=k+1

until k>1000;

end.

' ? ??'??? (?? ?''??))

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

     next k


PascalABC

Program Ivanov;
//
??? '?? ?+?
Uses graphABC;
var
    
X, Y, k: integer;
begin

randomize;
setWindowSize(
300,300);

setPenColor(clNavy); setBrushColor(clNavy);
rectangle (
0, 0, 300, 300);
For
k:=1 to 1000 Do
     begin

     X := round (random (300));
     Y := round (random (300));
     putpixel (x, y,clYellow);

     end

end.

 

????' ????

pdf

- '?? ???'' ''

pdf

- '?? ? ?????

pdf

?? ??'??? ?'?'? ??' ????+ ??+'?'? ?'?
''???? ?.?. ?.'., 2011