Меншіктеу операторы
жүктеу/скачать 147 Kb.
|
| 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.
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;
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. Достарыңызбен бөлісу:
|