Мысал

Радиусы r=5,5см болатын берілген шеңбердің ұзындығын табу керек. Шеңбер ұзындығын есептеу үшін l=2πr формуласын пайдаланамыз.

 

Program bastau;      {Программа тақырыбы}

const pi:=3.14159;    {π тұрақтысының мәнін беру}

var r,l : real;             { r,l  мәндерінің нақты(аралас) сан 

                                      екенін  сипаттау}

 

begin                          {операторлар басы}

r:= 5,5;                       { r мәнін беру}

l:=2*pi*r;                  {шеңбер ұзындығын есептеу}

write       (‘радиусы 5,5 см болатын шеңбер ұзындығы = ’, l);

                {нәтижені экранға шығару}

end.         {Программа соңы}

 

 

 Мұнда  программа мәтіні қарайтылған қаріппен терілген, ал оң жақ шетте және оның төменгі жолында пішінді жақша ішінде түсініктеме мәтіні берілген, түсініктеме программа мәтініне ешқандай әсер етпейді, оны түсінуді жеңілдетеді.

            Артқа