:=
x:=1; a:=5. 02; b:= 32*a+Sin(x); S:= ' ';
Begin "" end;
Write(" "); Writeln(" ");
Writeln(a); Writeln(b); Writeln(c); Write(' !');
Writeln(32 *a+Sin(x));
b:=32 *a+Sin(x); Writeln(b);
Writeln(a:5:2);
Writeln(i:8);
:=5. 02;
Writeln('=', a:6:2);
= _ _ 5. 02
n:= '116'; s:= ' N'; Writeln(s:7, n:6);
N _ _ _ 116
Writeln('=', a: -8:2);
=5. 02
Writeln('=', a);
a=5. 0200000000E+00 { Real, }
a=5. 02000000000000E+0000 { Double, }
, .
Program N_1; { }
var x, y, z: real; x0, y0: byte; { }
x1, y1, z1: integer; xb, yb, zb: boolean;
c1, c2, c3: char; s1, s2, s3: string;
Begin
x:= 5. 8;y:= 3. 4; x1:= 43;y1:= 28; { }
c1:= 'Z'; c2:= 'S'; x0:= 65;
xb:= True; yb:= False;
s1:= ' _ '; s2:= ' _ ';
Writeln(' :');Z:= x+y; { . . }
Write('x:=', x:3:1, ' _ _ y:=', y:3:1);
Writeln(' _ _ Z:= x+y;', ' _ _ z=', z:5:2);
Writeln; z1:= x1 div y1; { . . }
Write('x1:=', x1:3, ' _ _ y1:=', y1:3);
Writeln(' _ _ Z1:= x1 div y1;', ' _ _ z1=', z1:2);
Writeln; { }
readln; { Enter }
Writeln(' :');Zb:= xb and yb; { . . }
Write('xb:=', xb, ' _ _ yb:=', yb);
Writeln(' _ _ Zb:= xb and yb;', ' _ _ zb=', zb);
Writeln; { }
readln; { Enter }
Writeln(' :'); Zb:= c1 > c2; { . . }
{ ASCII }
Write('c1:=', c1, ' _ _ c2:=', c2);
Writeln(' _ _ Zb:= c1 > c2;', ' _ _ zb=', zb); Writeln;
{ ASCII }
{ , . . }
Zb:= S1>S2; { . . }
Write('s1:=', s1, ' _ _ s2:=', s2);
Writeln(' _ _ Zb:= s1 > s2;', ' _ _ zb=', zb);
Writeln; { }
readln; { Enter }
Writeln(' :');Z:= sin(x *Pi/180); { . . }
Write('x:=', x:4:2);
Writeln(' _ _ Z:= sin(x *Pi/180);', ' _ _ z=', z:10:7);
Writeln; { }
readln; { Enter }
Writeln(' :');
Write('x1:=', x1); Inc(x1); { . . }
Writeln(' _ _ Inc(x1);', ' _ _ x1=', x1);
|
|
|
Writeln; { }
readln; { Enter }
Writeln(' :'); c3:= Chr(x0); { . . }
Write('x0:=', x0);
Writeln(' _ _ c3:=Chr(x0);', ' _ _ c3=', c3);
Readln { Enter }
end.
Read(" ");
Readln(" ");
Write(' ='); Readln(a);
=.
Readln(a); Readln(b); Readln(c); Readln(a, b, c);
Readln(1, 2, 3, c4); { 1, 2, 3, c4, : "", "", "", "!" Enter }
Writeln(1, 2, 3, c4); : !
x n,
. . y=xn. : y=en*ln(x).
Program N_2; { }
Const S=' ';
Var n, x, y: real;
BEGIN
Writeln(' ');
Writeln(' x n');
Writeln(S, ' >0'); Readln(x);
Write(S, ' n='); Readln(n);
y:=exp(n*ln(x));
Writeln(' y=', y:10:6); writeln(' Enter');
readln; { Enter}
END.
Case "" Of
" "
Else "" End;
N 0 999:
Case N of
0..9: writeln('');
10..99: writeln('');
100..999: writeln('')
else writeln(' "N" ') end;
IF "" Then "1" Else "2";
, "a" a>=0,
IF a >= 0 Then b:= Sqrt(a) Else begin WriteLn ('a<0'); Readln; Halt end;
Halt .
: . , , : , - , .
PROGRAM octanovka;
CONST A1= ' '; A2= ''; { A1, A2, A3, A4 - }
A3= ''; A4= ''; { }
Y= ''; N= ' ';
var A, A0: String; { A0 - }
BEGIN
writeln(' :');
writeln(A1:15, A2:15, A3:15, A4:15);
Writeln; readln(A); Writeln; { A - }
IF (A<>A1) and (A<>A2) and (A<>A3) and (A<>A4)
then begin Writeln(' '); readln; Halt end;
A0:= A1; { }
IF A = A0 then begin writeln(Y, A:15); readln; Halt end
else writeln(A0:-15, N:12);
A0:= A2; { }
IF A = A0 then begin writeln(Y, A:15); readln; Halt end
else writeln(A0:-15, N:12);
A0:= A3; { }
IF A = A0 then begin writeln(Y, A:15); readln; Halt end
else writeln(A0:-15, N:12);
A0:= A4; { }
|
|
|
writeln(Y, A:15); readln;
END.
: MOD DIV. , "N" ("N" "X1X2X3"), : X1X2X3, :
X3:= N mod 10; N:= N div 10;
X2:= N mod 10; N:= N div 10; X1:= N;
, "A" "B", Frac(x); Int(x); :
x:= A/B;
If Frac(x) = 0 then writeln(' "A" "B"');
If Int(x) = x then writeln(' "A" "B"');
For i:= N1 To N2 Do "";
For i:= N1 DownTo N2 Do "";
:
12 + 32 + 52 +... + (2*N-1)2; SN = N*(4*N2-1)/3;
PROGRAM SUM_K; { }
var a, S, Sn, i, N: word;
Begin
write(' N='); readln(N);
S:= 0;
For i:= 1 to N do begin { }
a:= Sqr(2 * i-1); S:= S+a end;
Sn:= N * (4 * N * N-1) div 3;
Writeln(' S=', S:-10:2);
Writeln(' Sn=', Sn:-10:2);
Writeln(' Enter'); readln
End.
While "" DO "";
Repeat "" Until "";
"" - (Boolean).
.
N:= 0; a:= 1; SN:= 1; e:= 2. 7182828; S:= (e2 + 1)/e;
repeat N:= N+1; k:= 1/((2 * N-1) * 2 * N); a:= a * k;
SN:= SN+a;
Writeln(' Sn=', Sn:-11:6, '_ _ n=', n:2);
until abs(S-Sn) < eps; { eps - }
Writeln('_ _ _ S =', S:-11:6);
, , |X|<1 (" "):
Repeat Write(' ||<1;_ _x='); readln(x)
until abs(x)<1;
