Категории:

Астрономия
Биология
География
Другие языки
Интернет
Информатика
История
Культура
Литература
Логика
Математика
Медицина
Механика
Охрана труда
Педагогика
Политика
Право
Психология
Религия
Риторика
Социология
Спорт
Строительство
Технология
Транспорт
Физика
Философия
Финансы
Химия
Экология
Экономика
Электроника

Практикалы жмыс №3

ПРАКТИКАЛЫ САБАТАРДЫ ЖОСПАРЫ

Практикалы жмыстар №1

Сабаты таырыбы Тратылар, айнымыллар, стандартты функциялар, рнектерді меншіктеу операторларыны жазылуы

Сабаты масаты: Оушылара программа рылымы, айнымалыларды, тратыларды, белгілерді сипаттау жне операторлар блімі, сонымен атар Паскаль тіліні арапайым операторлары туралы тсінік беру;

Арифметикалы операциялар символдар арылы жазылады. Паскаль тілінде мынадай операциялар бар:

* – кбейту, / – блу, % – модуль бойынша блу (алдыты анытау), + – осу, - – азайту.

Мліметтерді енгізу операторы READ (аылшынша оу). Операторды жалпы трі:

READ(a1, а2,...,ап); READLN(a1, a2,...,an); READLN;

Шыару операторы.Паскаль тілінде нтижені экрана шыару шін WRITE (жазу)операторы олданылады.

WRITE (a1, а2,...,ап); WRITELN(a1,a2,...an);

1-мысал.Екі санны осындысын табу программасын ру керек.

Program kosindi;

Var a,b,x: integer;

Begin

Write ('а,b-сандарыненгіз');

Readln(a,b);

X:=a+b;

Writeln('x= ‘,x);

End.

2-мысал.Екі санны бліндісін табу программасын ру керек.

Program bolindi;

Var a,b,x:real;

Begin

Write ('а,b-сандарын енгіз');

Readln(a,b);

Writeln('x= ‘,x);

End.

Тапсырмалар

1.Мына рнектерді Паскаль тілінде жазыдар да мндерін есептедер:

б) (2+3)-ті 6-а блгендегі алдыты табу;

в) 5^*2/10;

№2. Мына рнекті Паскаль тілінде жазыдар:

№3. Паскаль тілінде жазылан рнектерді математикалы жазылуын крсетідер:

№4. Мына рнектерді Паскаль тілінде жазыдар:

№5. Паскаль тілінде жазылан тмендегі рнектерді математикалы жазылуын крсетідер:

Практикалы жмыс № 2

Сабаты таырыбыАлгоритмні сызыты рылымыны программасын жазу. Тарматалан алгоритмдерді рылымын программалау

Сабаты масаты:Паскаль тіліні арапайым операторлары туралы тсінік бере

отырып оушыларды программа руа йрету

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

Операция	Приоритет	Операция трлері
@, NOT *, /, DIV, MOD, AND +, -, OR, XOR =, <>, <, >, <=, >=, IN	Бірінші (Жоары) Екінші шінші Тртінші (Тменгі)	Унарлы операция Кбейту типіні операциясы осу типіні операциясы атынас операциясы

№1.Екі санны осындысыны квадраттарын жне кбейтіндісін табу программасын
кру керек. х = (а + b)²,у = a*b
Program esepl;
Var a, b,x,y: integer:
Begin Write (‘а,b-сандарын енгіз');
Readln(a,b);
X:=sqr(a+b);

Y:=a*b;

Writeln(‘x=’,x);

Writeln(‘y=’,y);

End.

№2. ,мндаы x=5, y=2,8 функциясыны мнін есептейтін программа ру керек.

Program esep2;

Var k:real;

Const x=5,y=2.8;

Begin

K:=sqr(x)+sqr(y)*sqrt(x+y);

Writeln('k=’,k);

End.

Тапсырмалар

1. Бірінші оушы бір саатта М себет, 2-оушы К себет, 3 оушы L себет алvа жинаса,

олар t са5атта анша алма жинайды? (

2. Бір зат алдымен 10%-ке ымбаттап, одан со 10%-ке арзандатылса, затты баасы

анша %-ке згерген.

3. х жне у-ті мндерін енгізіп, тмендегі рнектерді мндерін есептейтін программа

рыдар.

Практикалы жмыс №3

Сабаты таырыбы Тарматалан алгоритмдерді рылмын программалау

Сабаты масаты:Паскаль тіліні Тарматалан алгоритмдерді рылмын программалаутуралы тсінік бере отырып программа руа йрету

IF...THEN...ELSEшартты операторды рылымы келесiдей болады:

If шарт Then оператор_1 Else оператор_2;

Бл оператор кейбiр логикалы шарта байланысты операторды орындалу тртiбiн згертедi. Шарт деп тратымен, айнымалымен немесе логикалы рнекпен аныталан True (аиат) немесе False (жалан) деген логикалы мндер тсiнiледi.

Егер шарт True мнiмен аныталса, онда Then сзiнен кейiнгi оператор (жй немесе крделi) орындалады. Егер шарт False мнiмен аныталса, яни шарт орындалмаса, онда Else сзiнен кейiнгi оператор (жй немесе крделi) орындалады.

№1. Екі санны лкенін табатын программа р.

Program max;

Var a, b, max:integer;

Begin

Readln(a,b);

If a>b then max:=a else max:=b;

Writeln (‘max=’,max);

End.

№2. ш санны лкенін табатын программа р.

Program max;

Var a, b, c, x, max:integer;

Begin

Readln(a,b,c);

If a>b then x:=a else x:=b;

If x>c then max:=x else max:=c;

Writeln (‘max=’,max);

End.

№3. Екі санны кішісін табатын программа р.

Program min;

Var a, b, min:integer;

Begin

Readln(a,b);

If a<b then min:=a else min:=b;

Writeln (‘min=’,min);

End.

Тапсырмалар

1. ш санны кішісін ратын программа р.

2. ш кесіндіні a,b,c зындытары берілген. Егер бл ш кесіндіден шбрыш ру ммкін болса, онда оны периметрін жне ауданын табыдар.

3. Адам жасына арап, оларды лі мектепке бармаан, мектеп оушысы, жмысшы, зейнеткер деген трт топты біріне жатызатын программа рыдар. Адам жасы пернетатадан енгізіледі.

4. Екі сан берілген. Егер бірінші санны абсолют шамасы екінші санны абсолют шамасынан арты болса, онда біріншісін бес есе азайту керек, йтпесе екі санды да згеріссіз экрана шыару керек.

5. Пернетатадан трамвай билетіні нмірі (1 орынды 6 сан) енгізіледі. Билетті «баытты» нмір болатынын анытадар. Баытты билетті алашы 3 цифрыны осындысы соы 3 цифрыны осындысына те.

6 Екі санны лкенін табатын программа р.

7. ш санны лкенін табатын программа р.

8. Екі санны кішісін табатын программа р.

9. ш санны кішісін ратын программа р.

10. ш кесіндіні a,b,c зындытары берілген. Егер бл ш кесіндіден шбрыш ру ммкін болса, онда оны периметрін жне ауданын табыдар.

11. Адам жасына арап, оларды лі мектепке бармаан, мектеп оушысы, жмысшы, зейнеткер деген трт топты біріне жатызатын программа рыдар. Адам жасы пернетатадан енгізіледі.

12. Екі сан берілген. Егер бірінші санны абсолют шамасы екінші санны абсолют шамасынан арты болса, онда біріншісін бес есе азайту керек, йтпесе екі санды да згеріссіз экрана шыару керек.

13. Пернетатадан трамвай билетіні нмірі (1 орынды 6 сан) енгізіледі. Билетті «баытты» нмір болатынын анытадар. Баытты билетті алашы 3 цифрыны осындысы соы 3 цифрыны осындысына те.