Кафедра меңгерушісі _________________________ Нұрбекова Ж.Қ

Кафедра меңгерушісі _________________________ Нұрбекова Ж.Қ.

Факультеттің әдістемелік кеңесінде құпталды,

ӘК төрайымы _________________________ А.Т.Кишубаева

2. Студенттердің алгоритмдік ойлау дағдыларын қалыптасытру.

3. Өз бетімен оқып-үйренуге, талдауға, бағдарлама бойынша нәтижені анықтауға үйрету.

4. Есепке алгоритмдер мен бағдарламалар құру, олардың тиімділерін таңдау және нәтижелерге талдау жасау әдістерін меңгерту.

1. Жұмыстың теориялық бөлігімен танысады.

2. Берілген есептің алгоритмімен танысады.

3. Бағдарлама тексін қарап, оның құрылымына талдау жасайды. Ондағы командалардың пайдаланылуын негіздейді.

4. Алгоритмнің орындалу тәртібін ауызша түсіндіреді.

5. Қандай да бір мәндермен, бағдарламаның орындалу протоколын толтырып, нәтижелерді компьютерсіз анықтайды. Пайдаланылатын мәндер бағдарламадағы барлық жағдайларды қамту қажет.

1.Паскальді жұмысқа қос.

2. Паскаль ортасында 5 терезе ашып, әрбіреуін сәйкесінше tereze1, tereze2, tereze3, tereze4, tereze5 деген атпен сақта.

3. Терезелерді ретпен орналастыр.

4. Терезелерді каскадпен орналастыр да, мына ақпаратты тер.

1-терезеге: {фамилияң мен атыңды}

const k=100;

3-терезеге: label m1,m2;

Begin clrscr; writeln(‘Salem!’); writeln(‘ Men Pascalmyn!’);

end.

4-терезеге: uses crt;

5. Терезелерді ретімен, одан соң кері ретпен қарап, жазылған ақпаратты тексер.

6. 2-терезеге өтіп, мына жазуды қосып, сақта.

type kun=1..31;

7. Барлық ашық терезелердің тізімін шығар. 4-терезеге өтіп, мына жазуды қосып, сақта.

var k:kun; a:byte;

8. 1 және 2-терезелер экранға қатар сиятындай етіп, өлшемдерін өзгерт.

2. Меню-EDIT

Undo (Alt+BkSp)- алдыңғы әрекетті жояды.

Redo – Undoдағы әрекетті қайтарады.

Cut (Shift+Del) –белгіленген фрагментті жойып, буферге алады.

Copy (Ctrl+Ins) - белгіленген фрагментті буферге көшіреді.

Paste (Shift+Ins) – буфердегі фрагментті курсордың орнына қояды.

Clear (Ctrl+Del) – фрагментті жояды.

Show Clipboard- буфердегі ақпаратты көрсетеді.

9. 1,2,3,4 терезелердегі ақпараттарды ретімен 5-терезеге біріктіріп, мына тексті құрастыр.

{фамилияң мен атың}

program p_orta;

const k=100;

label m1,m2;

begin

writeln(‘Salem!’); writeln(‘ Men Pascalmyn!’);

end.

uses crt;

RUN (Ctrl+F9)– бағдарламаны орындайды.

Compile – белсенді терезедегі файлды компиляциялайды.

Make – негізгі бағдарламаға кіретін модульдер қайтадан компиляцияланадыда, орындалушы файлға біріктіріледі.

Build –алдыңғы пунктке ұқсайды.

Distination memory –орындалушы файл қайда орналасады, дискіде ме, әлде жадыда ма?

Primary file –компиляциялау қай файлдан басталатынын көрсетеді.

Жұмысты жалғастыру үшiн, кез келген клавишаны басу керек.

label . . . белгілерді сипаттау.

const . . . тұрақтыларды сипаттау.

type . . . типтердi сипаттау.

var . . . айнымалыларды сипаттау.

begin

Бағдарламаны орындап, пайдаланушы терезесінен нәтижені қара.

а) жадыға сақтау үшiн: Меню / Compile / Destination / Memory

б) дискiге сақтау үшiн: Меню/Соmpile/Destination/Disk

Memory немесе Disk Enter арқылы таңдалады.

Memory мен Disk-нiң бiреуi таңдап алынған соң, Меню /Compile/ Make енгiзiледi немесе Ғ9 басылады. Орындалушы файл жасалады. Каталогтағы файлдар тiзiмiнде кеңейтiлуi .exe файлы пайда болады.

Тапсырма. Орындалушы (кеңейтiлуi .exe) файл жаса. Каталогты ашып, файлдың жасалғандығын тексер.
6. Жұмысты аяқта.

№2 зертханалық жұмыс. Алгоритмдердің базалық құрылымын жасау әдістері.

Математикалық өрнектi Паскаль тiлiнде жазу ережелерi:

1.Өрнек бiр жолға тiзбектей жазылады, сондықтан амалдардың орындалу тәртiбiнiң бұзылмауын ескеру керек.

2. Жоғары және төменгi индекстер ереже бойынша жазылады.

3. Функцияның аргументi жақша iшiне алынады.

4. Тригонометриялық функциялардың аргументi градуспен емес, радиан түрiнде (x*PI/180) жазылады.

5. Ашылған және жабылған жақшалар саны тең болады.

6. Математикалық өрнекте дөңгелек жақшалар ғана жазылады.

Математикада	Паскальда	Нәтиженiң типi
|x|	abs(x)	бүтiн, нақты
x2	sqr(x)	бүтiн, нақты
x	sqrt(x)	нақты
sinx	sin(x)	нақты
cosx	cos(x)	нақты
arctg(x)	arctan(x)	нақты
eх	exp(x)	нақты
lnx	ln(x)	нақты
lgx	ln(10)/ln(x)	нақты
п=3,141592..	Pi	нақты

1.Паскаль терезесін ашып, мына жолдарды теріңіз.

Program ornek;

uses crt;

var x,y,z,a:real;

begin

x:=

z:=

readln;

1 жаттығу

x=5; y=3 мәндерінде өрнегінің мәнін есептеу.

2.Бағдарламадағы мына жолдарды өзгертіңіз.

x:=5;

z:=(sqrt(sqr(x)+2*y)+sin(15*pi/180))/(2*x)

3.Бағдарламаны жұмысқа қосып, нәтижесін қараңыз.
Сұрақтарға жауап беріңіз.

1. (sqrt(sqr(x)+2*y)+sin(15*pi/180)) өрнегі неге жақшаға алынған?

2 жаттығу.

4. Z:= жолына мынаны теріңіз:

Z:=abs(abs(x-100)*3/(2*x+ln (y))+2*sin(y)/cos(y))+exp(x+y)/exp(y*ln(x));

5.Бағдарламаны жұмысқа қосып, нәтижесін қараңыз.

3. sin (y)/ cos (y) нені білдіреді?

Z:= жолына мынаны теріңіз:

5. е⁵ және у⁵ екеуінде де дәреже көрсеткіші 5, бірақ жазылуы әр түрлі. Неге?

7 ....sin (sqr(y)))) жолдарында неге 4 рет )))) жақша қойылған?

№3 зертханалық жұмыс. Алгоритмдік тілдердің негізгі конструкциялары.

Жазылу түрлерi:

Жазылу түрлерi:

program text;

uses crt;

begin

Writeln; Writeln(‘Ана тілі’); Writeln;

Writeln(‘Ана тілің арың бұл,’);

Writeln(‘Ұятың боп тұр бетте.);

Writeln(‘Өзге тілдің бәрін біл,’);

Writeln(‘Өз тіліңді құрметте’); Writeln;

Writeln(‘Қ.Мырзалиев‘); Writeln;

readln;

Бағдарламаны орындап, нәтижесін көріңіз. Экранда орналасуына назар аударыңыз

Writeln (‘Ана тілі’:20);

Writeln (‘К. Мырзалиев’:30);

Бағдарламаны орындап, нәтижесін көріңіз. Қандай айырмашылық бар? 20 және 30 цифрларын өзгертіңіз. Нәтижесіне түсініктеме беріңіз.

uses crt;

var x,y,a,b: byte;

begin

readln(x); {2}

y:=10; {3}

writeln(x); {4}

writeln(x+y); {5}

readln;

Орындап нәтижені қараңыз да, дәптерге жазып алыңыз

Writeln (‘х=’, х);

Writeln (‘у+х=’, х+у);

Орындап нәтижені қараңыз. Қандай өзгеріс бар? Қорытынды жасаңыз.

а:= х*у; {3а}

{4}, {5}жолдарды өзгертіңіз: writeln (x,’*’, y, ‘=’ , a); {4}

Writeln (‘x=’, x:10, ‘y=’;10, ‘a=’,:10, a:10); {5}

Орындап нәтижені қараңыз. Қандай өзгеріс бар? Қорытынды жасаңыз. {5}жолдағы : белгісі қандай қызмет атқарады?
3 жаттығу. Жаңа терезеде жазыңыз:

uses crt;

var x,y,a,b:real; s:string;

begin

x:=100; y:=3; {2}

а:=х/у;

writeln (‘a=’;a); {3}

writeln (‘a=’:10:5); {4}

writeln(‘a=’:10:2);

writeln(‘a=’:10:0);

writeln(‘a=’:0:5); {5}

writeln(‘a=’:0:2); {6}

writeln(‘a=’:0:0);

readln;

Бағдарламаны орындап, нәтижесін қараңыз. Экранға шығудың қандай айырмашылықтары бар? Санның бөлшек бөлігіндегі цифрлар санының өзгеруі неге байланысты?

uses crt;

var x,y,a,b:real; s:string;

begin

readln(x,y); а:=х/у; {2}

writeln (‘x=’;x); {3}

writeln (‘y=’,y);

writeln (‘a=’,a); {4}

readln; end.

Бағдарламаны орындаңыз. Экранға курсор шығады. Бос орынмен ажыратып екі сан енгізіңіз. Экранға шыққан х пен у-тің мәндері енгізілген сандарға ие болды ма?

Бағдарламаны бірнеше рет орындап, нәтижесін жазып алыңыз.

uses crt;

var s, a, b:string; x,y,z:byte;

begin

Writeln(‘Сәлем!’);

Write(‘Атың кім?’); Readln(s); Writeln;

Write(‘Екі сан енгіз ’); readln(x,y);

Write(‘Бір сан енгіз ’); readln(z); Writeln;

Writeln(‘Үш санның қосындысы = ’, x+y+z); Writeln;

Writeln(‘Сау бол! ’,s); Writeln;

readln; end.

Есептi шығару алгоритмiн блок-схемамен көрнекi түрде көрсетуге болады.

program esep_1;

var x, y, z: real; х,у-берiлген айнымалылар, z-нәтиже

begin

readln (x, y); бос орынмен 2 сан енгiземiз

if x>y then z:=x егер x >y болса, онда нәтиже х болады

еlse z:=у; әйтпесе нәтиже y болады 

writeln (z); readln;

end.

Бағдарламаның орындалу барысында 5 және 7 сандарын енгiземiз. Айнымалы х-ке 5, у-ке 7 меншiктеледi (х:=5,y:=7). 5>7 шарты орындалмайды, нәтижесi жалған, сондықтан else –ден кейiнгi оператор орындалады, ол оператор нәтижеге у-тi меншіктейді. Одан соң z-тің мәнi экранға шығарылады. Экранға 7 жазылады.
Мысал: Енгiзiлген санның [-5;5] аралығында жататындығын анықтау.

Енгiзетiн санды х деп белгiлеймiз, типi – real. Егер х саны үшiн х>-5 және х<5 шарттары бiр уақытта орындалатын болса, онда х саны [-5;5] аралығына тиiстi болады

program aralyk;

var x: integer;

begin

if (x>-5) and (x<5)

then writeln (‘аралықта жатады’)

еlse writeln (‘аралықта жатпайды’);

readln;

end.

program esep_3;

var

a , b , c : integer ;

writeln (‘a, b ,с сандарын енгiз’); readln (a , b , c );

if (a<=b) and (b<=c) then

begin

end

if (a>b) and (b>c) then

begin c:=a; b:=a; end

else begin a:=-a; b:=-b; c:=-c; end ;

writeln (a:5,b:5,c:5); readln;

end.

begin

if (a>b) and (b>c) then

begin a:=c; b:=c; end;

else begin a:=-a; b:=-b; c:=-c; end ;

end.

бағдарламаның орындалуы қалай өзгередi? Есептiң берiлгенi қалай болады. Блок-схемасын сыз.

:<оператор n;>

[else <оператор>]

end;

Case операторының орындалу тәртiбi:

Алдымен <таңдау айнымалысының> мәнi анықталады. Анықталған мән қай тiзiмге жатса, сол тiзiмге сәйкес келетiн оператор орындалады да, басқа операторлар орындалмай, case операторы жұмысын аяқтайды.

Егер <таңдау айнымалысының> мәнi тiзiмнiң ешбiреуiне жатпаса, онда else-де көрсетiлген <оператор> орындалады. Еlse болмаса, case операторы жұмысын аяқтайды.

Case операторын пайдалану ережелерi:

1. Таңдау айнымалысы мен тiзiмдегi мәндер бiр типтi болу керек.

2. 
   Еlse тармағының болуы мiндеттi емес, кей жағдайда жазбауға да болады, егер else тармағы жазылса, алдыңғы оператордан соң (;) қойылады.
   

3. Мәндер тiзiмiнде үтiрмен ажыратылған жеке мәндердi немесе бастапқы және соңғы мәндерi “..” ажыратылған диапазонды көрсетуге болады.

4. <Операторда> “;”-мен ажыратылған бiрнеше операторды жазуға болады.

5. Таңдау айнымалысы литерлiк, бульдiк және пайдаланушының типтерiнде болады.

Ескерту: String, real типтегi айнымалылар таңдау айнымалысы бола алмайды!
Мысал: Арифметикалық төрт амалды (+,-,*, / ) орындайтын калькуляторды бейнелейтiн бағдарлама.

program calk;

var

x, y, r: real; amal, a : char;

begin

repeat

write (‘x = ‘ ) ; readln (x) ;

write (‘y = ‘ ) ; readln (y) ;

writeln (‘операция +,–,*,/’ ) ;

readln (amal ) ;

case amal of

‘+’ : rezult : = x + y ;

‘– ‘ : rezult : = x-y ;

‘*’ : rezult : = x*y ;

‘ / ‘: rezult : = x/y ;

else writeln (‘қате белгi’) ;

end;

writeln (x, amal,y,’=’, r );

write (‘жалғастырасың ба Y/N ‘ ) ;

readln (a ) ;

until (a =’ N’) or (a =’n’) ;

end.
Пайдаланылатын айнымалылар: х , y - берiлген сандар; r - нәтиже; amal айнымалысы 1 символдық типтi, бұл айнымалыда арифметикалық операцияның белгiсi сақталады. a айнымалысында бағдарламаның аяқталу белгiсi сақталады, типi-символдық; N немесе n клавишасы басылғанда бағдарлама жұмысын аяқтайды.

Бағдарламаның орындалу барысында х,у мәндерi клавиатурадан енгiзiледi. Одан соң мына жолдармен

writeln (‘операция +,–,*,/’ ) ;

readln (amal ) ;

операцияның белгiсi amal айнымалысына енгiзiледi. Case операторы amal айнымалысының мәнi бойынша, арифметикалық операцияны орындайды. Мысалы, егер amal айнымалының мәнi “ * “ болса, онда r :=x*y операторы орындалады. Егер amal мәнi ешбiр белгi болмаса, else-ден кейiнгi жол орындалады да, экранға “қате белгi” деген хабарлама шығады. (Repeat, until операторлары туралы алдағы тақырыптарда түсiнiк берiледi).

Пайдаланушының типтерi. Айнымалының қабылдайтын мәндерi алдын ала белгiлi жағдайда, пайдаланушы стандарттық емес өз типтерiн жасауына болады.

Паскаль тiлiнде пайдаланушы жасаған типтi сипаттау үшiн type резервтелген сөзi қолданылады.

Жазылу форматы:

type

<типтiң аты> = <тип мәнi>;

Пайдаланушы жасайтын типтер екi түрлi болады. Олар: санақтық (перечисляемый) және аралықтық (интервальный) типтер.

Бұл типтегi берiлгендер жадының бiр байтын алады, сондықтан пайдаланушының типтерi 256-дан көп элементтен тұра алмайды. Бұл типтердi қолдану енгiзiлетiн мәндердi бақылайды, бағдарламаның көрнекiлiгiн жақсартады, жадыны үнемдейдi және қатенi iздеудi жеңiлдетедi.

жүктеу/скачать 1,18 Mb.

Достарыңызбен бөлісу: