.


:




:

































 

 

 

 


қ. .




:

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 ғ қ ә ң қ қ ?

 





:


: 2017-02-24; !; : 2220 |


:

:

- , - .
==> ...

1507 - | 1426 -


© 2015-2024 lektsii.org - -

: 0.082 .