. , . , , :
, . x y . :
{***************************************************}
{: SHOT. }
{: }
{ . }
{: .. }
{ : 10 2006 . }
{***************************************************}
Program SHOT;
Var X, Y: real;
Begin
Writeln( x y);
Read(X, Y);
Wriyeln(X=, X, Y=, Y);
If (sqr(x)+sqr(y)<=1) or (x<=0) and (y<=0) and (y>=-x-2)
then writeln( )
else writeln( );
End. {SHOT}
, . , and. , or, .
, , , .
3.
, .
:
{***************************************************}
{: SEASON. }
{: . }
{: .. }
{ : 10 2006 . }
{***************************************************}
Program SEASON;
Var month: word;
Begin
Writeln( );
Read(month);
Wriyeln(X=, X);
Case month of
1, 2, 12: writeln( );
3.. 5: writeln( );
6.. 8: writeln( );
9.. 11: writeln( );
else writeln( )
end
End.
4.
, .
, . : :
{***************************************************}
{: CALCULATOR. }
{: .. }
{ : 10 2006 . }
{***************************************************}
Program CALCULATOR;
Var A, B, RES: real;
OP: char;
Begin
Writeln( :);
Read(A);
Writeln( : );
Read(B);
Writeln( : );
Read(OP);
Case OP of
+ : RES:= A + B;
: RES:= A B;
* : RES:= A * B;
|
|
/ : RES:= A / B;
else begin
writeln( );
exit
end;
writeln( RES= , RES:6:2)
End.
, - , , begin end.
1. . Pascal, 3- . . . .: -, 2003. 328 .
2. .. Pascal . .: -, 2005. 416 .
3. .., .., .. . Turbo Pascal Delphi. 3- . : , 2002. 144 .
4. .. Turbo Pascal 7.0 Delphi. .: BHV -, 1997. 240 .
5. .., .., .. : . .: , 2005. 438 .
6. .. . : . .: , 2003. 393 .
7. .. . : . .: , 2006. 317 .
8. .. Turbo Pascal . 7.0: . . .: , 1996. 464 .
9. Turbo Pascal 7.0 / .. .: , 2002. 216 .
10. 7.0 / .. . .: һ: , 2004. 270 .