x := n1/n2;{бөліндіні есептейміз, оны х айнымалысына меншіктеу}
WriteLn('n1/n2 =',х);{нәтижені экранға шығарамыз}
END.{программа соңы}
Бағдарламаны іске қосамыз (F9 пернесін басамыз). Егер бағдарлама дұрыс, синтаксистік қатесіз болса, экранда
n1 =
деген ақпарат көрініп тұрады. n1-ге кез келген бүтін санды енгіземіз. Мысалға:
n1 = 55
Enter пернесін басамыз, сонда келесі мәнді (n2 =) енгізу қажеттігі туралы мәлімет шығады, ол экранда келесідей тұрады:
n1 = 55
n2 =
n2 айнымалысына мән береміз, мысалы: 5 мәні
n1 = 55
n2 =5
Enter пернесін басамыз, сонда программа есептеулер жүргізіп (n1/n2), нәтижені экранға шығарады:
n1 = 55
n2 =5
n1/n2 = 11
Есеп 2. (2-деңгей-орташа).A = (x+y/(5+x))/|y-sinx+x|+5arctgx функциясын есептейтін программа құру.
Program esep1_2;
Var{айнымалыларды сипаттау бөлімі}
x,y: Real;{х және у – нақты сандар}
A: real;{А функциясы – нақты сан}
BEGIN{программа басы}
Write( 'x = ');{ x санын енгізу туралы ақпаратты экранға шығару }
ReadLn (x) ;{ x – ті енгіземіз}
Write ( 'y = ');{y санын енгізу туралы ақпаратты экранға шығару}
ReadLn (y);{ y – ті енгіземіз}
A:= (x+y/(5+x))/abs(y-sin(x)+x)+5* arctan(x);
{А функциясының мәнін есептейміз}
WriteLn('A =', A:5:3);{нәтижені экранға шығарамыз}
END.{программа соңы}
Есеп 3. (3-деңгей - жоғарғы). F= функциясының мәнін табу
программасын құру. Мұндағы, x, y – бүтін сандар, z = x3 + .
Достарыңызбен бөлісу: |