Әдістемелік ңұсқаулар
Паскаль тілінде тармақталу алгоритмдерін программалауда шартсыз көшу goto, шартты көшу if, таңдау case операторлары қолданылады.
1. Шартты көшу операторы
If < шарт > Then
Begin
< 1-оператор>;
< 2-оператор>;
.....
< n- оператор>
End
Else
Begin
< 1-оператор>;
< 2-оператор>;
….
< n-оператор>;
End;
2. Таңдау операторы:
Case S of
C1: 1-оператор;
C2: 2-оператор;
….
Cn: n -оператор;
Else
оператор;
End;
3. Шартсыз көшу операторы:
GOTO N.
Мұндағы N – белгі. Бұл оператор программаның орындалуын белгі тұрған жерге береді.
Есептің программасын құруда қай операторларды пайдалану маңызды екендігін анықтайды.
Мысал №1:
Үш қарбыздың үлкенін анықтау. Бұл мысалда қарбыздарды a, b, c үш айнымалымен белгілейміз. Алғаш олардың екеуін, яғни, a және b қауынды салыстырып, үлкенін үшінші с қауынмен салыстырамыз. Сөйтіп, үлкен қауынды анықтауға болады. Қауындардың өлшемін пернетақтадан енгіземіз.
Program esep2;
Var a, b, c, max: integer;
Begin
Writeln (‘үш қауынның өлшемін енгіз’);
Readlin (a, b, c);
If a>b then max: =a else max: =b;
If c> max then max: =c:
Writeln (‘үш қауынның үлкені=’, min);
Redln;
End.
Мысал №2:
Функция мәнін есептейтін программа жазыңдар.
Y= , x,9
, x<0,9
Program Prog_1;
Var x, y: real;
Begin
Write (‘x – тің мәнін енгізіңдер = ’);
Readln (x);
If x>= 0.9 then y: = sin (cos(x)) + sqrt(x*x+4)
else y: = cos (sin(x)) + sqrt (abs(x)) + 2;
Writeln (‘y = ‘, y’);
End.
Мысал №3:
Функция мәнін есептейтін программа жазыңдар.
lg x<-1
Y = -1x<3,2
x,2
Proram Prog_2;
Var x, y: real;
Begin
Write (‘x – тің мәнін енгізіңдер =’); Readln (x);
If x<-1 then y: = lg (abs(x - 1)) + 1.2
else if (x>= -1) and (x<3.2) then y:= 5/exp(x + 1)
else y:= sqrt (abs(3*x));
Writeln (‘y = ‘, y);
End.
Мысал №4:
Жалпы түрде берілген квадрат теңдеудің түбірлерін табыңдар:
ax² + bx + c = 0, a ≠ 0, a, b, c € R
Келесі белгілеулерді енгізейік: А, В, С – теңдеудің коэффициенттері;
D – дискриминант; X1, X2 – түбірлері.
Program Prog_4;
Var A, B, C, X1, X2, D: real;
Begin
Writeln (‘A, B, C – мәндерін енгізіңдер’); Read (A, B, C);
Writeln (‘A=’, A,’B=’, B,’C=’, C);
D: = sqr (B) – 4*A*C;
if D<0 then writeln (‘Теңдеудің түбірлері жоқ’)
else Begin x1:= (-B + sqrt (D)) / (2*A);
x2:= (-B – sqrt (D)) / (2*A); End;
Writeln (‘x1 = ‘, x1, ‘x2 = ‘, x2);
End.
Достарыңызбен бөлісу: |
