Практикалық жұмыс №1 Тақырыбы: ет кабинетіндегі техника қауіпсіздігі Теорияға шолу Техника қауіпсіздігі және есептеуіш техника кабинетіндегі тәртіп сақтау ережелері



бет20/43
Дата16.01.2024
өлшемі4.98 Mb.
#489189
түріПрограмма
1   ...   16   17   18   19   20   21   22   23   ...   43
Информатикадан практикалық сабақтар және есептер жинағы

Program esep1_3;
Var {айнымалыларды сипаттау бөлімі}
x,y: Integer; {х және у – бүтін сандар}
z, F: real; {z және F – нақты сандар}
BEGIN {программа басы}
Write( 'x = ');{ x санын енгізу туралы ақпаратты экранға шығару }
ReadLn (x) ;{ x – ті енгіземіз}
Write ( 'y = ');{y санын енгізу туралы ақпаратты экранға шығару}
ReadLn (y);{ y – ті енгіземіз}
z:= Sqr(x)*x + Sqrt(y);{ z - ті формула бойынша есептеу}
F:=sqrt(2)*sin(x)/arctan(5*y) + cos(z)/exp(z);
{F функциясының мәнін есептейміз}
WriteLn('z =', z:5:3, ‘F=’, F:5:3);{нәтижені экранға шығарамыз}
END. {программа соңы}
Практикалық жұмыс №14
Тақырыбы: Символдық шамалармен сызықты программалар құру


Теорияға шолу
Символдық мәліметтерді өңдеу символдық типті анықтайтын CHAR түйінді сөзі арқылы жүзеге асырылады. Символдық айнымалыға компьютер жадынан бір байт орын беріледі.
Символық типтегі мәлімет үшін төмендегідей стандартты функциялар қолданылады.
Chr(x)- byte типіндегі х өрнегін символға түрлендіреді.
Ord(ch) – с символын оның byte типіндегі сәйкес кодына түрлендіреді.
Pred(ch) – ch –тың алдыңғы кодына сәйкес символды береді.
Succ(ch) – ch-тан кейінгі кодына сәйкес символды береді.
Upcase(ch) - кіші латын әріптерін бас әріптерге айналдырады, басқа символдарға әсер етпейді.
Символдық шамаларды енгізу READ операторы көмегімен жүзеге асырылады. Паскальда бос орын ‘_’ таңбасы символ орнына жүретіндіктен, символдық айнымалылардың мәндері бос орынсыз жазылады. Бір айнымалыға бір ғана символ меншіктеледі. Мысал:
………………..
Var a,b,c :char;
…………………
READ (a,b,c);
………………..
Егер пернетақтадан SND енгізсек, онда айнымалылар сәйкесінше,
a:=’S’, b:=’N’, c:=’D’ мәндерін қабылдайды. Егер мәндерді S N D түрінде берсек, онда a:=’S’, b:=’ ’, c:=’ N’ мәндерін қабылдайды, соңғы екі таңба ешқайда енгізілмейді. Тағы бір ерекшелік – ENTER пернесі басылса да бос орын символы болып есептеледі.
Символдық мәндерді енгізгенде EOLN стандартты функциясы қолданылады. Бұл функция мәні «жолдың соңы болды» немесе «мәндер беріліп болды» дегенді білдіретін ENTER пернесі басылғанда ғана ақиқат болады да, қалған жағдайлардың барлығында жалған болады. Бұл функция көбінесе циклдік операцияларда пайдаланылады.
Мысалы: енгізілген “ibm” әріптерін бас әріппен шығаратын программа құру.
Program esep;
Var a,b,c:char;
Begin
Read (a,b,c); {символдарды енгізу}
a:= Upcase(a); {бас әріпке түрлендіру}
b:= Upcase(b); {бас әріпке түрлендіру}
c:= Upcase(c); {бас әріпке түрлендіру}
Writeln(a,b,c);{нәтижені шығару}
End.


Достарыңызбен бөлісу:
1   ...   16   17   18   19   20   21   22   23   ...   43




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет