Тақырыбы: Turbo Pascal. Арифметикалық операциялар. Редакторда жұмыс істеу. Деректерді енгізу мен шығару

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 а