, . , ( ), ( ), : . , . , , . .
( ) . - . , ( ), .
( ):
Read(< >);
Readln(< >);
. , , .
: , , , . , , Enter. .
: .
Read Readln ( Read line) : Read , Readln - .
:
Write(< >);
Writeln(< >);
Write Writeln . , , . . , , .
: Writeln ( Write line) , Write, Write Writeln . Writeln .
|
|
:
Program Inteface;
Var
R,S: Real;
Begin
Write(' '); { }
Readln(R); { R }
S:=4*ARCTAN(1)*SQR(R); { (pR2)}
Writeln(' ',R,' ',S)
End.
, , . , , , , . . : , . , Writeln(S), , .
> . - , , () . Read Write, INPUT OUTPUT.
, . ENTER.
:
Read(A1,A2,...AK);
ReadLn(A1,A2,...AK);
ReadLn;
1, 2,..., . , , 1, 2,..., . .
, . , , , . .
, . , , . :
var rV, rS: Real;
iW, iJ: Integer;
chC, chD: Char;
................
Read(rV, rS, iW, iJ);
Read(chC, chD);
Enter.
:
Write(A1,A2,...AK);
WriteLn(A1,A2,...AK);
WriteLn;
1, 2,..., . 1, 2,..., . .
|
|
, , , , . - .
, .
: , - , - , - TRUE FALSE.
. :, - , - . , , . , . ::, - , - , - . - . . :
............
var rA, rB: Real; iP,iQ:Integer;
bR, bS: Boolean; chT, chV, chU, chW: Char;
............
WriteLn(rA, rB:10:2);
WriteLn(iP, iQ:8);
WriteLn(bR, bS:8);
WriteLn(chT, chV, chU, chW);
. .
, , . , . , .
. , Label, :
Label 1, 2, 8;
. .
:
6: Writeln(14/2);
, . . , , , . :
Goto <>;
, .
"" . , . , .
.
( ) - , . - .
{}
, : , , . , .
, , .
|
|
, , , . .
, , , .
, , . .
( ), , GOTO.
, :
-;
-;
- ;
- ;
- ;
-.
, .
().
, "1", , - "2". , , , , . . , . , . , , . , , , . , y=1/x. , , . , , . :
1. x.
2. x=0, , , - y 1/x.
. :
<.> { }
< 1> { 1 }
< 2> { - 2 }
? , -.
:
If <>
Then < 1>
Else < 2>;
, Then- Else- . , , , ? . .
:
If <>
Then Begin < 1> end
Else Begin < 2> end;
" " Else, , , .
. , (Boolean) . , , .
|
|
: >(), <(), =(), <>( ), >=( ), <=( ).
: A=5 { 5}
(C+D3)>=(D1*(45-2)) { }
S<>'ABC' { S 'ABC'}
: " ".
, , .
Program Example;
Var A,B,C: Real; {A,B - , C - }
Begin
Writeln(' ');
Readln(A,B); { }
If A>B Then C:=A Else C:=B; { A>B, - A, - B}
Writeln(C); { }
End.
: " ". , , -. , . : , - ( , - , J).
, "" , , . . , .
Program Sq1;
Var A, B, C, D, X1, X2: Real;
Begin
Writeln (' ');
Readln (A,B,C);
D:=B*B-4*A*C;
If D<0 Then Writeln (' ! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
End
End.
, , , . . - . , , Then- , Else- . ( ) . , , , .
: " A*x^2 + B*x + C = 0". , , . . , :
Program Sq2;
Var A, B, C, D, X, X1, X2: Real;
Begin
Writeln (' (A, B, C) ');
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - ')
Else Writeln(' ! ')
Else Begin X:=-C/B; Writeln('X=',X:8:3) End
Else
Begin
D:=B*B-4*A*C;
If D<0 Then Writeln (' ! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
End
End
End.
. .
. , .
, . , . , (). , , . , . , , . , . : " ? , ?". ? - , , , , . , , . : "", "", " ".
|
|
""
, " ", , . , .
, . , , . "". ( Ctrl+C), , , .., , , - .
Pascal "" :
While <> Do <>;
, ? - : " , ". , , . , . :
While <> Do
Begin
< #1>;
< #2>;
< #3>;
...
End;
""
, , . "" " ", "" - " ".
, ( ) , , , . ( ).
, , , . "" "" , , , .
Pascal:
Repeat
< #1>;
< #2>;
< #3>;
...
Until <>;
: " #1, #2.: ".
, , Repeat Until .