Меншіктеу операторы

жүктеу/скачать 147 Kb.

бет	13/15
Дата	31.12.2021
өлшемі	147 Kb.
	#22146

1 ... 7 8 9 10 11 12 13 14 15

Байланысты:
Курсовой досымбаева.а.а

1-мысал. y={x+2, x<0;

{2x, x>0.

Program ShoN (INPUT, OUTPUT)

VAR x, y: REAL;

BEGIN

WRITE (‘x енгіз’);

READLN (x);

IF x<0

THEN y:=X+2

ELSE y:=2*x*x*x;

WRITELN (‘y=’, y:6:3);

WRITE (‘есептеу бітті’);

END.

1. Екі айнымалының мәндерін кемуіне қарай реттеу.
Program Prost_1;

var a,b,x: real;

begin

Write('a= '); Readln(a); {пернетақтадан a-ға мән енгізу}

Write('b= '); Readln(b); {пернетақтадан b-ға мән енгізу}

if b>a then {b>a болса, онда}

begin

x:=a; a:=b; b:=x; {a,b мәндерін ауыстыру}

end;

Writeln('a = ',a, ' b = ',b); {a,b мәндерін экранға шығару}

end;
Программада, a және b айнымалылары енгізілген нақты мәндерді сақтау үшін, ал x көмекші айнымалысы, b>a болған жағдайда, олардың мәндерін ауыстыру үшін, пайдаланылды.
2. Үш айнымалының мәндерін кемуіне қарай реттеу.
Program Prost_2;

var a,b,c,x: real;

begin

Write('a='); Readln(a); {пернетақтадан a-ға мән енгізу}

Write('b='); Readln(b); {пернетақтадан b-ға мән енгізу}

Write('c ='); Readln(c); {пернетақтадан c-ға мән енгізу}

if b>a then {b>a болса, онда}

begin

x:=a; a:=b; b:=x; { a,b мәндерін ауыстыру}

end;

if c>b then { c>b болса, онда}

begin

x:=b; b:=c; c:=x; {b,c мәндерін ауыстыру}

end;

if b>a then {b>a болса, онда}

begin

x:=a; a:=b; b:=x; {a,b мәндерін ауыстыру}

end;

Writeln('a=',a,' b=',b,' c=',c); {a,b,c мәндерін шығару}

end;

Бұл программада, a , b және c айнымалыларының мәндерін реттеу үшін, 1 программаның алгортмі 3 рет пайдаланылды.
3. Пернетақтадан қалауымызша енгізілген сандардың ең үлкенін табу.
Program Prost_3;

var x,max: real;

i: integer;

begin

Writeln('Аяқтау үшін 0 санын енгізіп, Enter түймесін бас');

i:=0;

while true do {алғышартты цикл басы}

begin

Readln(x); {пернетақтадан x-ке мән енгізу}

if x=0 then Break; {x=0 болғанда циклдан шығу}

i:=i+1;

if (i=1) or (x>max) then max:=x; {үлкенін max-ке меншіктеу}

end;

if i>0 then Writeln('Енгізілген ', i, ' оң санның ең үлкені ', max);

Readln;

end;

Қорытынды

Мен, осы Курстық жұмысымды қорытындылай келе ”Турбо Паскаль ортасында операторлармен жұмыс жүргізу” атты тақырыбым бойынша операторлар туралы көп мағлұмат алдым. Паскаль тілінде операторлар, ал алгоритмдік тілде командалар деп атайды. Операторларды қарапайым және күрделі деп екі топқа бөлінеді. Веgin және end түйінді сөздері операторлық жақшалар деп атайды.

жүктеу/скачать 147 Kb.

Достарыңызбен бөлісу:

1 ... 7 8 9 10 11 12 13 14 15