Repeat Until операторы

Жаңа сабақ бойынша есеп

P=1*2*3*…*N. N! факториалды табу программасын жазу

Var r,n,k:integer;

Begin

Write('n='); Read(n);

k:=1; r:=1;

Repeat

r:=r*k;

k:=k+1;

Until kn;

Write(r); End.

Паскаль тілінің қордағы сөздері

Паскаль тілінің түйінді сөзі

Түйінді сөздің мағынасы

absolute

and

Паскаль тілінің түйінді сөзі

абсолюттік

array

логикалық ЖӘНЕ

label

Түйінді сөздің мағынасы

белгі

mod

begin

жиым (массив)

case

блок басы

not

бөліндінің қалдығы

логикалық ЕМЕС

or

нұсқа (вариант)

const

логикалық НЕМЕСЕ

of

тұрақты (константа)

div

одан

go to

procedure

бүтін бөлу

do

көшу

program

процедура

программа

орындау

repeat

else

end

қайталау

string

әйтпесе

блок соңы

file

then

қатар, жол

онда

to

файл

for

function

үлкейту

type

үшін

if

функция

until

тип

дейін, шейін

var

егер

айнымалы

while

әзірше

Сөздік

• WHILE (уаил) - әзірше
• DO (ду) – орындау (соңына үтір қойылмайды)
• REPEAT (репит) - қайталау
• UNTIL (антил) - дейін
• FOR – үшін
• TO – дейін
• div -бүтін бөлу
• Mod-бөліндінің қалдығы
• else –әйтпесе
• then -онда

Сөздік

АЛГОРИТМ

ПАСКАЛЬ

Қайталау

Әзірше

Дейін

Үшін

Орындау

Стандартты функциялар

Функция

Атқаратын қызметі

ABS(X)

Нәтиже типі

Х-тің абсолют мәні.

ARCTAN(X)

Арктангенс Х.

Аргумент типі

COS(X)

EXP(X)

Косинус Х.

Нақты

е х e –нің X дәрежесіне тең мәнді қайтарады.

Нақты

FRAC(X)

Нақты

Х-тің бөлшек бөлігі.

INT(X)

Х-тің бүтін бөлігі, бөлшек бөлікті нөлге айналдырады.

Нақты

Нақты

Стандартты функциялар

Функция

Атқаратын қызметі

PI

Нәтиже типі

π=3.1415926535897932385 саны.

ROUND(X)

SIN(X)

Нақты

Жақын бүтін санға дейін дөңгелектейді.

SQR(X)

Синус Х.

Бүтін

Нақты

Х-тің квадраты.

SQRT(X)

Аргумент типі

Түбір астындағы Х.

TRUNC(X)

Нақты

Санның бөлшек бөлігін түсіреді.

TAN(X)

Бүтін

Тангенс X.

Нақты

Математикалық тілден

Паскаль тіліне аудару

(5+2∙4)÷3

8-2+[21/4]; мұндағы [ ] бүтін бөлу дегенді білдіреді

(2+3)-ті 6-ға бөлгендегі бүтін қалдықты табыңдар.

(5+2*4)/3

8-2+21div 4

(2+3) mod 6

• Шешуі :

(sqr(sin(3*x))+tan(x-y))/3*x*y

Сергіту сәті

Ой қозғау «Мәтінді түзе!»

Топқа берілген мағынасы

қате мәтінді дұрыстау

Компьютермен жұмыс

Термин сөздерді ағылшын тілінде теру. Жұптық жұмыс.

Информатика саласының

ұлы тұлғалары

1. Дүние жүзі бойынша алғашқы 1846 жылы Бэббидж машинасына бағдарлама жазған бұл ғалым – әйел бірінші программист болып саналады. Бұл әйел атақты Байронның қызы.

Ада Лавлейс

2. 1642 жылы бұл француз математигі он тоғыз жасында дүние жүзінде бірінші рет қосу машинасы деген атпен белгілі, жетектермен дөңгелектерден тұратын механикалық есептеу машинасын құрастырды.

Блез Паскаль

3. Қазіргі таңда бұл адам атақты „Microsoft„ компаниясының президенті. 13 жасында алғаш программасын құрған.

Билл Гейтс

5. Швейцариялық бұл ғалым Паскаль программалау тілін 1968-1971 жылдары оқып-үйренуге қолайлы программалау тілі ретінде ұсынған болатын

Никлаус Вирт

4 . Есептеуіш техниканың қарқындап дамуы ХІХ ғасырдан баталады. 1833 жылы бұл ғалым бағдарлама арқылы басқарылатын „Аналитикалық машина„ жобасын жасады. Сондықтан да оны қазіргі компьютердің “атасы” деп те атайды.

Чарльз Бэббидж

6. Бұл ғалым алгоритм ұғымын енгізген әйгілі араб математигі.

Әбу Жафар Мұхаммед ибн Мұса әл-Хорезми

Қорытынды. Сабақты бекіту сұрақтары:

1 . Паскаль тілінде циклге жатпайтын операторды атаңдар

А) for

Ә) while

Б) repeat

В) begin

2. Паскаль тілінде алдын ала тексеру шартын белгілеңдер

А) for

Ә) while

Б) do … while В) loop

С) repeat … until

3 ) Шарты соңынан берілген цикл операторының қызметші сөздері?

(REPEAT   ( қайталау) және UNTIL ( дейін, шейін)

Сәйкестікті тап

Атқаратын қызметі

1.Алғы шартты циклдік оператор

Оператор атауы

2.Соңғы шартты циклдік оператор

REPEAT..... UNTIL

3.Қайталау саны алдын ала белгілі циклдік оператор

FOR ... TO … DO

WHILE … DO

Назарларыңызға рахмет!

Білімді де, білікті болыңыздар!