![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Тақырыбы: Turbo Pascal. Арифметикалық операциялар. Редакторда жұмыс істеу. Деректерді енгізу мен шығару⇐ ПредыдущаяСтр 19 из 19
Turbo Pascal тілінде бағ дарламаның қ ұ рамы келесі кестеде кө рсетілген: program Бағ дарламаның _аты; uses Қ олданылатын_модульдердің _тізімі;
Label Белгілердің (метка)_жазылуы; Const Тұ рақ тылардың _жазылуы; Type Тү рлердің _жазылуы; Var Айнымалылардың _жазылуы;
begin Операторлар; end.
1 тапсырма: y=5x+8 шартсыз функциясының мә нін есептеу. Turbo Pascal ортасында бағ дарламаны енгізің із. Ол ү шін Іске қ осу батырмасын шертіп, Орындау (Выполнить) мә зірін таң даң ыз. Пайда болғ ан терезеде Кө ру (Обзор) батырмасын шертіп, С дискісінде TР7 бумасын тауып, оның ішінде Turbo жә не Ашу (Открыть), Ok басың ыз. Turbo Pascal редакторының терезесі пайда болады. 1. Бағ дарламаның листингін енгізің із: Program функция1; Uses crt; Var x, y: real; begin writeln('x мә нін енгіз'); readln(х); У: =5*х+8; writeln('У=', у: 5: 2); end. 2. Бағ дарламаны енгізгеннен кейін бағ дарламаны іске қ осың ыз, Ctrl+F9 пернелер жиынын орындаң ыз. 3. Нә тижені кө ру ү шін Alt+ F5 пернелер жиынын басың ыз. 4. File - Save as команда кө мегімен бағ дарламаны сақ тауғ а болады. Ө з бумаларың ыздың ішіне ө з бағ дарламаны сақ таң ыз 111.pаs. Жұ мыстың нә тижесін оқ ытушығ а кө рсетің із. Turbo Pascal шығ у ү шін File – Exit немесе Alt + X арқ ылы орындаң ыз. 2 тапсырма:
Program функция2; Uses crt; Var x, y: real; begin writeln('x мә нін енгіз'); readln(х); If x< 0 then y: =sqr(x) else У: =5*х-12; writeln('У=', у: 5: 2); end.
3 тапсырма: циклдық операторлармен жұ мыс істеу. 1 мен 10 сандарының қ осындысын есептеу.
Program функция3; Uses crt; Var i, S: integer; Begin S: =0; For i: =1 to 10 do S: =S+I; writeln('S=', S); end.
Ө здік тапсырмалар: · Ү шбұ рыштың периметрін табу · Тік тө ртбұ рыштың ауданын табу ·
·
·
· 1 мен 10 сандарының кө бейтіндісін шығ аратын бағ дарламасын қ ұ ру
А. Ш. КҮ ЛМҰ РАТОВА, Л. Қ. СМАИЛОВА
С. Сейфуллин атындағ ы Қ азақ агротехникалық университетінің баспаханасы, 2015 ж. * 010011, Астана қ., Жең іс даң ғ ылы, 62 а
|