:
1. .
2. a, b c, .
3.
.
4. , .
5. : . , , , . .
6. , , .
7. . .
5
: : ; , . .
: () ; , .
- : 15.( ) 1.(); academy; AcerX 1263; ; ; ABCPascal.
: 4.
:
1. ;
2. ;
3. , .
() .
- .
, , . :
1) ()
2) ()
3) ()
FOR
- : 2 1 10 . ? . , , . , , , (), . 2 :2 i = , i 1 10, - 2 20.
, . , .
|
|
For K:=N1 toN2do
1
For K:=N1 toN2 do
Begin
1;
.
2;
End;
ForK:=N2 downto N1do
Begin
End;
:
1) .
2) , , ..K= .
3) , ( ) .
4) , .
5) , .. =M2
WHILE
WHILE , , .
While<>do
Begin
end
while () do ()
. . , . .
, , , , . WHILE .
REPEAT
WHILE , . .
Repeat
Until<>;
Repeat () Until ( )
. .
REPEAT .
:
1. .
2. .
CASE
Case<>of
<1>:<1>;
<2>:<2>;
.
<n>:<n>;
[else<>]
End;
, . . , , Else, , , End.
2.1. 12 , .
Program primer2_1;
Var a:integer; {}
i:integer; {}
s:integer; {}
begin
s:=0;
for i:=1 to 12 do
begin
writeln( );
readln(a);
s:=s+a; end;
writeln(=,s);
end.
2.2. 10, .
|
|
Program primer2_2;
VAR a: integer; {}
i: integer; {}
K:integer; {}
BEGIN
K:=0;
FOR i:=1 TO 10 DO
BEGIN
write( a: );
readln(a);
IF a<0 THEN K:=K+a
END;
IFK=0 THENwriteln();
ELSEwriteln(,K:4);
END.
2.3.
Program primer2_3;
var a: integer; {}
i: integer; {}
S1: integer; {}
S2: integer; { }
begin
S1:=0; S2:=0;
fori:=1 to 10 do
begin write( );
readln(a);
if a mod 2=0 then S1:=S1+a;
if a mod 2=1 then S2:=S2+a;
end;
if S1=0 then writeln()
else writeln( =, S1);
if S2=0 then writeln()
elsewriteln( =, S2);
end.
2.4. n!. n!=1*2*3*...*n. 0!=1
Program primer2_4;
var f: integer;
i: integer;
n:integer;
begin
writeln( n!);
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
Writeln(n!=,f);
end.
2.5. : 1!+2!+3!++n!
Program primer2_5;
var f: integer; {}
i: integer; {}
n:integer; {}
s:integer; {}
begin
writeln(n!);
readln(n);
f:=1; s:=0;
for i:=1 to n do
begin
f:=f*i;
s:=s+f;
end;
Writeln(=,s);
end.
2.6.
Program primer2_6;
var a: integer; {}
n:integer; {}
i: integer; {}
p: integer; {}
begin
write(=); readln(a);
write( n=); readln(n);
p:=1;
for i:=1 to n do
p:=p*a;
writeln(a, ,n, ,p);
end.
WHILE
2.7. 10 30.
Program primer2_7;
vark:integer; {}
s:integer; {}
begin
s:=0; k:=10;
while k<=30 do
begin
s:=s+k;
k:=k+2
end;
writeln( 10 30=,s);end.
2.8. , x, -4 2 0.5
Program primer2_8;
var x:real;
y:real;
begin
x:=-4;
while x<=2 do
begin
writeln(' x=',x);
y:=4*x*x-2*x+3;
x:=x+0.5;
writeln(' y=',y:4:2);
end;
end.
REPEAT
2.9. , 81.
Program primer2_9;
var k:integer; {}
s:integer; {}
begin
k:=1; s:=0;
repeat
s:=s+k*k;
k:=k+1;
until sqr(k)>81;
writeln( =,s)
end.
2.10. () . - ,
Program primer2_10;
var a,b:longint;
begin
writeln();
readln(a,b);
repeat
if a>b then a:=a mod b
else b:=b mod a
until (a=0) or (b=0);
writeln(=, a+b);
end.
CASE
2.11. , , - - ..
Program primer2_11;
varch:char;
begin
Writeln();
Readln(ch);
Case ch of
a,e,i,o,u: writeln();
a...z:writeln( );
else writeln( );
end;
end.
2.12.
: -1, -2, -3, -4.
m (1≤m≤4)
.
|
|
Program primer2_12;
var m:integer;
begin
write(); readln(m);
case m of
1: writeln();
2: writeln();
3: writeln();
4: writeln();
else writeln( );
end;
end.