3
. .
- , ( ). () . procedure, , , . , , . , .
, , , , , .
, , , .
:
Procedure <> ( , );
Const ; ù
ý
Var .; û
begin
<>
end;
: , .
Program names;
Uses crt;
Procedure name(x, y, c: byte,);
Begin
Gotoxy (x, y);
Textcolor(c); {textcolor (c+16);}
Write();
end;
Begin
Clrscr; { }
name (2,2, 14);
name (2, 22, 8);
name (75,2, 3);
name (75, 22, 5);
End.
: , .
Program max;
Uses crt;
Var a, b, c, d, m, p, q:real;
Procedure Bd(x,y:real, var z: real);
Begin
If x>y then z:=x
else z:=y;
end;
Begin
Clrscr; { }
Write( );
Readln(a,b,c,d);
Bd (a, b, p);
Bd (c, d, q);
Bd (p, q, m);
Writeln( , m:8:3);
End.
- . : ( ); .
:
Function < >( : ): ;
Var
...
Begin
...
End;
.
. .
. (x!-y!)*d!.
, ! n : ! = 1*2*3*......*
Function fac (n:integer): integer;
Var
p,i: integer;
Begin
|
|
|
p:=1;
for i:=2 to n do
p:=p*i;
fac:=p;
End;
: f:=(fac(x)-fac(y))*fac(d).
! , , - . , .
: : F(t) F(c), F(x)=Öx +2x2 +3x
Program m;
Uses crt;
Var t, c, r: real;
Function F (x: real): real;
Begin
F:= sqrt(x)+ 2*sqr(x) + 3*x;
End;
Begin
Clrscr;
Write( );
Readln (t, c);
r:= F(t) F(c);
write( =, r:8:3);
end.
: , .
Program max;
Uses crt;
Var a, b, c, d, m, p, q:real;
Function Bid (x, y: real): real;
Begin
If x>y then bid:=x
else bid:=y;
End;
Begin
Clrscr;
Write( );
Readln (a, b, c, d);
p:=bid(a, b);
q:= bid(c, d);
m:=bid(p, q);
write( , m:8:3);
end.
1
1. .
2. .
3. .
4. , .
5. .
6. , , , .
7. , .
8. .
9. , , (, 12421 - ).
10. , , , , 6 25, .. 36 625.
11. , . .
12. , , .
13. , : >, < =.
14. , , . ( ). : , -1.
2
1. Procent, , .
2. Dohod, . : , () ( ).
3. Giasn, True, ,
4. ( , 1 n).
5. a, b, c d. , , . ( print_square (x, y, z), x, y, z, .)
6. a, b c . , . (: , , 0.5 * sqrt (2* b^2 + 2*c^2 - a^2))
|
|
|
7. 10- . , ( ), , .
8. . , .
9. . . , .
10. , an, n- a, a n n > 0, .
11. ,
y = a1x4 + a2x3 + a3x2 + a4x + a5,
, a1, a2, a3, a4, a5 x , .
12. , a, b, c .
13. , . .
14. . .
Pascal :
1. har ;
2. string .
char . ¾ 0 255. , .
: =, <>, <, >, <=, >=, .
:
chr(x) ;
ord(ch) ch;
pred(ch) ;
succ(ch) ;
upcase(ch) . .
:
ord('')=65
chr(128)=''
pred('')=''
succ('')=''
upcase('n')='N'
- . ( ) 1 255. .
:
var s:string;
i:integer;
Begin
write(' ');readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
for i:=1 to length(s)-1 do
if (s[i])=' ') and (s[i+1]<>' ') then writeln
else write(s[i]);
readln;
end.
Delete(Var S:String; N, :Integer) S, N.
Insert(SubS: String; Var S:String; N:Integer) SubS S, N.
Str(X:Integer; Var S:String) S.
Val(S:String; Var , Code: Integer) S . Code ( Code = (), ).
Chr(X:Byte):Char .
Concat(S1[, S2,..., SN]):String () .
Copy(S:String; N, :Integer):String S, N .
Length(S: String):Byte S.
Ord(X:Char):LongInt .
Pos(SubS, S: String):Byte , S SubS ( , S SubS).
|
|
|
. , .
. , . .
Function Q Ch (st: String): Byte;
Var i, k: Byte;
Begin
k:=0; ( , , '', )
For i:=1 To Length(st) Do If st[i]='' Then Inc(k);
Q_Ch:=k;
End;
. , .
. k , , , k Div 2+1.
Procedure Del (Var st: String);
Var k: Byte;
Begin
k:=Length(
If k mod 2=1 then Delete (st, k Div 2+1, 1);
End;
. 'del' 'Insert'.
. , , ' del ' ' Insert '.
Procedure Ins (Var st: String);
Var k: Byte;
Begin
While Pos('del',st)<>0 Do
Begin
k: =Pos { ' de 1 ', st);
Delete (st, k, Length ('del '));
Insert (' Insert ', st,))
End;
End;
. , , , . , ( 30).
. .
Program Example;
Const n=30;
Myarray Str=Array[1..n] Of String;
Var : Myarray Str;
str: String[255];
k: Byte;
Procedure Init (Var b: Myarray Str);
Var i: Integer;
Begin
k:=1; { , k, )
For i:=1 Length(str)-1 Do
If str[i]<> then b[k]:=b[k]+str[i]
Else
{ , }
If i<>Length(str)-1 Then
Begin Inc(k); b[k]:='' End;
End;
Begin
Writeln(' ');
Readln{str);
Init ()
Writeln(' : ',k); { , '', }
For i:=1 k Do If A[i] [1]='' Then Write (A[i], ' ');
Readln;
End.
1 , . . .
1. , , , .
2. . , .
3. () . , . () .
4. , . .
5. . .
6. , .
7. .
8. , .
9. .
10. . , , . . , , : , .
|
|
|
11. . ASCII. , : 'CBA', 'ABC'.
12. , , . , .
13. . , .
14. , , 1000.
2
1. . , .
2. . , , . , 3, .. , .
3. , , . ( ).
4. Str l Str2 ( ).
5. . , , һ.
6. . , hello.
7. . .
8. . , .
9. . .
10. . , :
a) ;
b) .
11. . , :
a) ',
b) ;
c) (, ab, abc, abed,...);
d) .
12. .
13. .
14. , , .
