9.3 т?т+у?тњт+т?у'т?тњ тЈт?у'т?у?т?тњуЉтЈтЈ

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

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