:
1.
2.
3. Құқ
1. . ө қ әң , ә ә қ , өң қң .
Type
Tuster= (ak,kyzyl,jasyl);
ң ө . ғ ә , ү .
Type typeMonth= (jan, feb, mar, apr, may, jun, jul, aug, sep, okt, nov, dec);
Var
Month: typemonth;
Begin
If month= aug then
lbOutput.caption:= !;
end.
ң ә ң өң ғ ә қ ғ. ө -0 -1 ә ...
ң ң ғғ ә -65536, қ word ү ң ә ә ә 0,1 ә .. ү ұқ қ ү. ү .
- ң - - қ ғ , : var Col(black, white,green);
2. әң ң ә ң ә .
әң ң , ң қ әң ә ғ ң ң қ , ғ - ң қ ә .
әң ә ө ғ ә . , 1 2 ә ү , қғ, ғ, ө ә ө . , ̻ ә ѻ ә ө , ұ ғ ғ ( ѻ). Қғ, ғ, ө, ө . ұқ, ө ө ә ғ . ң ө . қ ң ө қ ә ң ө қ.
қ (қ) ң ә (ғғ) . :
|
|
ү - INTEGER;
қ - REAL;
қ - BOOLEAN;
ҳ - (STRING);
ә () ә .
3. Құқ - ARRAҮ, - RECORD, - SET ә - FILE ү ө.
ұ ө ң ө қ қ. ұқ ң ң қ қ - қ ғ , ң ө ө.
ү type ү ө қ, ө
:
< > =< ә>;
қ ү ә 1 ә λ ә ғ қ. ұғ 1 ң - қ ұң , ғ ққ , λ ң - ұң ғ ө. ұ ә ғ ә true (1) ә false () .
әң қ ү ққ. ң real ү ө , ө ү қ ө ө ғ .
. ө қ :
ү - SHORTINT, INTEGER, LONGINT, , WORD;
қ - REAL, SINGLE, DOULE, EXTENDED, ;
қ - BOOLEAN;
қ - CAR;
қ () ;
;
қ ұқ:
1. қ ?
2. Құқ қ ?
3. Integer, real ң ә қ?
:
1. ү.
2. .
1. қ өң қ ң . қ қ қ .
қ өң әң қ :
<ң ә>...<ң ү ә>
<ң ә>- қ ң ң ә;
<ң ү ә>- ң ң ү ә.
,
Type
digit = 0.. 9;
dig2 =48..59;
қ Type ө , ө . :
Var
Date:1..31;
Month:1..12;
Ichr: A...Z;
қ қ ө ұ:
... қ, қ ң қғ ;
қң қ ң қ .
|
|
қ қ ң қ қ ә, қ ғ . , қғ ,
Type
Days =(mo,tu,we,th,fr,sa,su);
Weekend = sasu;
Var
w:weekend;
begin
.
w:=sa;
.
end.
Ord (w) 5 ә , Pred(w) қ ө .
Object Pascal ң қ ң ұ ү :
High(x) x қ ң ң ү ә ; Low(x) қ ң ң ә .
ә ғ ұқ, , , , . ү қ. ү ә әң ұ . ң ұғ ө ү ң қ қ, ө, ә қ қ ө қ . , x, X1, cymma, DT3.
ә ө. ұ ө ғ. қғ ғ қ :
1. ә . ғ ә .
2. ң ғқ ә, ұ ү.
3. Қ қ қ.
4. ғ 127 қ.
5. ә ә қ ғ ұқ , ң ә ү ғ, ү қ .
ұқ ң ә ө қ . ұқғ ң қ ә ң ө ү ә . қ, қ, қ ә ә қ.
ұқғ . қ ұқ ң ө const ү ө ө ө . ң :
Const Min=1000; Max=1000000;
2. ң ә ү ә қ . , ә қ ә ү ә . ң ң ә ү ә қ ғ ө. ң :
Var <>: <>;
:
Var a,b:integer;
Sum, baga: real;
қ ә ү. Қ ө . , delta, x, y, resultm, nuber_1. ғ .
әң ң ә ң ә .
әң ң , ң қ әң ә ғ ң қ , ғ ң қ ә .
|
|
ү ү . ү ү , ң :
әң ө
BYTE
0 255
SHORTINT
-127 +128
INTEGER
-32768 +32767
WORD
0 65535
LONGINT
-2147483648 +2147483647
қ ү ө ө ү ә ұқ ү . Ү ғ , қ ү ү қ. , 12.5, 49.89.
қ REAL ө қ ң : -1.7 *1038 1.7 *1038.
қ (BOOLEAN) ә ғ қ: TRUE ққ, FALSE ғ. .
қ (CHAR) ә ң ғ қ . әң ө ү . , a, 5, K.
ҳ (STRING) ғ қ. , MAMA, fbvv, 654654.
қ ұқ:
1. ү .
2. қ қ ?
3. қ .
1.8.қ. .
:
1. ұғ.
2. .
3. .
1. ұғ. ө ң әү ә ү қ қ . ұ , қ ү, ғ қ қ , құ ү ө қ , ә қ ә ө ұқ ә қғ ңғ . қ қ ә ққ ә қғ ң ү қ қ ұ.
. 1- 8- ү ң ғ. (a- b-ғ ).
: 8 .
Қ - ғ for қ. ұ , қ () қ ң қ қ өң ғқ ә ңғ ә қ ө қ қ. For ө қ ә ұғ ұ.
қң ә 1- ң , қ қ ө ғ .
1) for X:=X to Xң do қ X = 1- ң
begin
end;
2) for X:=X downto Xң do қ X = -1- ң
begin
|
|
end;
ұғ X, Xң ң қ ә ңғ ә
қ ө;
for... do - қ қ ү ө;
for ү, to - , do , downto қ ғ .
қ қ .
2. ә ң қ .
қ -
қ - ( )
for, while, repeat ө ү .
1. FOR ;
2.WHILE ң ;
3.REPEAT ң ң қ .
қ ғ ғ FOR қ. ұ , ө қ қ ң қ қ қ қ .
3. FOR ө ң қ ә ұғ ұ , .
ғә ң ү :
for < >:=<S1>to <S2>do <>;
for < >:=<S1>downto <S2>do <>;
ұғ S1 ә S2- ң ғқ ә ңғ ә қ ө; for...do- қ қ ү ө;
<>- ұғ. FOR-ү, To-, Do- ғ ү ө. ң ө қ To Downto (Down-ө, To-, Downto- қ) ү ө . қ +1- ң , To, қ -1- ң , Downto ө қ.
FOR ң ұ ң ғқ ә ңғ ә қ қ ө қ.
1-. 1- 100- ң қ қ.
program cymma;
var i,S:integer;
begin
S:=0;
for i:= 1 to 100 do S:=S+i;
writeln('қ=',S:6);
END.
ғ ң , ң ү ғ қ ұғ . ң ң құ қ , қ . қ ң құ , . қ ә ұ ә ұғ ұқ. қ қғ ө: ң қ қ ң .
қ ұқ:
1. ?
2. қ ө?
3. Қ қ?
4. Қ қ?
1.10. қ. қ .
:
1. қ ү.
2. While Do .
3. Repeat.. until .
1. қ ү. for, while, repeat ө ү .
1. FOR ;
2.WHILE ң ;
3.REPEAT ң ң қ .
қ ғ ғ FOR қ. ұ , ө қ қ ң қ қ қ қ .
Қ () ү ұғ қ. Қ ң құ. ұң ү ү : While (ә), Repeat (), For ( ). While Repeat қ , қ ғ ғ қ. қ , ғ ө.
|
|
2. While Do .
While қ ө қ ә ұ.
: While <> do <ң >;
ә қ . ққ ғ ғ, , ә ғ ө. ғ , ғ , ң ғ.
While-Do ң ұ ү ө.
: , (>1) . 12а1,а2,а3'>... ң ү .
ұ ң 12а1,а2,а3'>... ә қ, -ң ә - ң қ ғ ө , ғ ә , ғ ә қ. ұ құ ғқ қ қ begin, end қ.
3 .Repeat Unit . Repeat қ While ұқ, ғ - қ ң , қ . ө ұғ ғ ғ қ, ққ ғ ғ.
ұғ >10 , қ . ғ Repeat Until ң ұ ө. Goto ң қ ғғ .
FOR-DO, FOR-DOWNTO
FOR-DO қ ғ ғ қ. ұ ү .
:
For< >:=<ғқ ә>to<ңғ ә>do<ң >;
For< >:=<ңғ ә >downto<ғқ ә>do<ң >;
ұғ қ . ғқ ә ңғ ә ә қ қ ө. қ ң , ғқ ә ңғ әң . қ қ - ү. құ .
ғ, өң ә , FOR-DO (FOR-DOWNTO) ғқ ә . қ ң ә 1- ң қ ө DO қ ө қ ң ә ә ү . қ ң ғқ ә ңғ ә қ , . ң ұ қ ө.
: ң ө n! ә ү ө:
procedure TForm1.Button1Click(Sender: TObject);
var
Num, i: Integer;
Res: Integer;
begin
Num:= StrToInt(Edit1.Text);
Res:= 1;
for i:= 2 to Num do Res:= Res * i;
Label1.Caption:= IntToStr(Num) + '! = ' + IntToStr(Res);
end;
end.
қ ұқ:
1. Қ ?
2. Қ қ ә қ ?
3. WHILE ң қ?
4. WHILE ә REPEAT ң - ө ?
5. ұ ү қ ғ FOR ғ қ ә ң қ қ ?