«Алгоритмдер теориясы» ПӘннің ОҚУ-Әдістемелік кешені

жүктеу 0,72 Mb.

бет	5/6
Дата	15.01.2020
өлшемі	0,72 Mb.
	#26620

1 2 3 4 5 6

sin

-sin

Лабораториялық жұмыс №3.

Тақырып: Мәліметтерді еңгізу, шығару. Логикалық типті мәліметтер.

Әртүрлі типті мәліметтерді еңгізу, шығару программасына мысал:

program vvod;

const log=true;

var k,l,m:integer; x,y:real; s1,s2,s3:char;

begin writeln('Lead integer nomber k,l,m:');

read(k,l,m);

writeln(' ':30, 'Integer number');

writeln(' ':15, 'Standart format', ' ':12, 'Given width column');

writeln(' ', k,l,m,' ' :5, 'k=', k:3 ,'l=',l:2, 'm=',m:5);

writeln; writeln('Lead real number x,y:');

readln(x,y);

writeln(' ':25, 'Reals number');

writeln(' ':5, 'Standart format',' ':18, 'Given width of column');

writeln(' ':5, x, y, ' ':10, 'x=', x:8:2, 'y=',y:6:3);

writeln; writeln('Lead of char s1,s2,s3:');

readln(s1,s2,s3);

ТАПСЫРМА ВАРИАНТТАРЫ

Сәйкес атауларды еңгізіп берілген типті мәліметтердің еңгізу,

шығаруын ұйымдастырыңыз:

№	Целые числа			Вещественные числа
	формат			формат
	количество	стандартный	Ширина поля	количество	стандартный	Ширина поля	Кол-во знаков после точки	Кол-во символов	Вывести значение булевой переменной
1	2	+	5	4	+	6	2	4	true
2	3	+	6	2	+	7	3	5	false
3	3	+	6	2	+	6	3	3	true
4	2	+	5	4	+	6	2	6	true
5	4	+	4	3	+	7	4	4	false
6	2	+	3	3	+	5	1	3	true
7	3	+	2	4	+	8	3	2	true
8	3	+	5	4	+	6	2	5	false
9	4	+	7	3	+	5	1	6	false
10	2	+	6	5	+	8	4	7	true
11	2	+	6	5	+	6	2	6	true
12	3	+	4	6	+	6	2	5	false
13	3	+	3	6	+	5	2	4	false
14	3	+	2	4	+	5	2	3	true
15	4	+	5	5	+	7	3	4	true
16	2	+	7	2	+	7	4	2	false
17	2	+	8	4	+	4	1	4	true
18	3	+	6	4	+	6	2	4	false

Лабораториялық жұмыс №4.

Тақырып: IF THEN ELSE, CASE командалары.

Тапсырма : Бірінші лабораториялық жұмысының алгоритмдерін Паскаль тілінде жазыңыз.

Лабораториялық жұмыс №5.

Тақырып: Циклді алгоритмдерін программалау.

Тапсырма : Бірінші лабораториялық жұмысының циклді алгоритмдерін Паскаль тілінде жазыңыз.
Лабораториялық жұмыс №6.

Тақырып: Сандар қатарларын берілген параметрлер бойынша түрлендіру.

Программа мысалы:

program sum;

const e=0.1e-3;

war n: integer; an,sum:real;

begin

sum:=0; n:=1; an:=1/3;

while an>e do

begin

sum:=sum+an; n:=n+1;

an:*(n+1)/2/(2*n+1)

end;

writeln(‘сумма=’sum, ’ последний член разряда= ‘,an);

end

Тапсырмалар:

Берілген е=10^-3 дәлдікпен, жалпы мүшесі өзінің формуласымен берілген қатардың қосындысые табыңыз:

а_n=1/2ⁿ+1/3ⁿ
а_n=10ⁿ/n!
а_n=(n!)/nⁿ
а_n=1/((3n-2)(3n+1))
а_n=(2n-1)/2ⁿ

Лабораториялық жұмыс №7.

Тақырып: Сызықты массивтерді өндеудің стандартты алгоритмдері:

Алгоритм 1

басы

еңгізу N

If (N<=0 or N>NG) then

шығару('N<=0 или N>NG недопустимое значение, программа соңы.')

шығу

I:=1

While (I<=N) do

шығару('введите элемент массива A[',I,']')

еңгізу A[I]

I:=I+1

I:=1

S:=0

While (I<=N) do

S:=S+A[I]

I:=I+1

If (S>32768 or S<-32768) then

шығару('Переполнение программа соңы)

выход

шығару(S,'- Сумма элементов массива A')

конец

Алгоритм 2
басы
еңгізу N
If (N<=0 or N>NG) then
		шығару('N<=0 или N>NG недопустимое значение, программа соңы.')
		шығу
I:=1
While (I<=N) do
	шығару('введите элемент массива A[',I,']')
	еңгізу A[I]
	I:=I+1
I:=1
P:=1
While (I<=N) do
	P:=P*A[I]
	I:=I+2
	If (P>2147483648 or P<-2147483648) then
			шығару('Переполнение, программа соңы)
			шығу
шығару(P,'- произведение элементов массива A стояших на нечетных позициях')
соңы

Т а п с ы р м а л а р :

Бірінші есеп қойылымы:
N элементтерден тұратын А массиві берілген. Массив элементтерінің суммасын табыңыз..
База данных.
№	имя	семантика	Мәндер диапазон значений
1	N	Массив элементтерінің саны.	shortint от -127 до 127
2	A	Бастапқы массив.	shortint от -127 до 127
3	I	1) массив индексі. 2) Цикл параметрі еңгізуа A. 3) Қосу циклінің параметрі	shortint от -127 до 127
4	S	Массив элементтерінің суммасы	integer от -32768 до 32768
5	NG	Значение максимального числа элементов массива A.	shortint const NG=127

Екінші есеп қойылымы:
N элементтерден тұратын А массиві берілген. Тақ орында орналасқан элементерінің Р көбейтіндісін табыңыз.
База данных.
№	имя	семантика	Мәндер диапазоны
1	N	А массивтің элементтерінің саны.	shortint от -127 до 127
2	A	Бастапқы массив.	shortint от -127 до 127
3	I	1) Индекс массива A. 2) Параметр цикла еңгізуа A. 3) Параметр цикла произведения элементов массива A стоящих на нечетных позициях.	shortint от -127 до 127
4	NG	Значение максимального числа элементов массива A.	shortint const NG=127
5	P	Значение произведения элементов массива A, стоящих на нечетных позициях.	longint от -2147483648 до 2147483647

Үшінші есеп қойылымы:
N элементтерден тұратын А массиві берілген. Тақ орында орналасқан элементерінің S суммасын табыңыз.

База данных.
№	имя	семантика	Мәліметтер диапазон
1	N	Число элементов массива A.	shortint от -127 до 127
2	A	Исходный массив.	shortint от -127 до 127
3	I	1) Индекс массива A. 2) Параметр цикла еңгізуа A. 3) Параметр цикла ссумирования элементов массива A, стоящих на четных позициях.	shortint от -127 до 127
4	NG	Значение максимального числа элементов массива A.	shortint const NG=127
5	S	Значение суммы элементов массива A, стоящих на четных позициях.	shortint от -127 до 127

Төртінші есеп қойылымы:
N элементтерден тұратын А массиві берілген. Найти в нем значение максимального элемента MAX и
координату K этого элемента, предпологая, что этот элемент единственный в массиве.
База данных.
№	имя	семантика	диапазон значений
1	N	Число элементов массива A.	shortint от -127 до 127
2	A	Исходный массив.	shortint от -127 до 127
3	I	1) Индекс массива A. 2) Параметр цикла еңгізуа A. 3) Параметр цикла нахождения максимального элемента массива A.	shortint от -127 до 127
4	NG	Значение максимального числа элементов массива A.	shortint const NG=127
5	K	координата максимального элемента массива A.	shortint от -127 до 127
6	MAX	Значение максимального элемента массива A.	shortint от -127 до 127

Лабораториялық жұмыс №8.

Тақырып: Массив элементтерін реттеу алгоритмдері
Тапсырмалар:

Массив элементтерін алмастыру әдісімен өсу бойынша реттеңіз
Массив элементтерін максимум таңдау әдісімен кему бойынша реттеңіз

Лабораториялық жұмыс №9.

Тақырып: Матрицаларды программалау. Матрицаларды өндеудің стандартты алгоритмдері

Тапсырма : Мынадай элементтердә табу программаларын құрыңыз;:

1) Массив элементтерінің қосындысы.

2) Массивтің теріс элементтерінің қосындысы

3) Массив максимальды элементін табу.

4) Бірінші жол элементтерінің қосындысы.

5) n-ші жол элементтерінің қосындысы.

6) Екінші жол және үшінші баған элементтерінің қосындысы.

7) Пифагор кестесін матрица түрде шығарыңыз.

8) Басты диогональ элементтерін бірмен алмастырыңыз.

Лабораториялық жұмыс №10

Тақырып: Жолдық айнымалылар. Жолдарды түрлендірудің стандартты алгоритмдері

Берілген сөзде неше «а» әріпі бар.
«а» әріпінен басталатын неше сөз бар.
Берілген жолда неше палиндром бар.

Лабораториялық жұмыс №11.

Тақырып: Жиындар. Есеп шығару барысында қолдану

Мынадай программа жазыңыз:

Берілген сөздегі дауысты дыбыстар санын табатын.
Сөйлемдегі бірдей сөздер санын табыңыз.

Лабораториялық жұмыс №12.

Тақырып: Записи. Еңгізу, шығару. Жазуларды өндеудің стандарты алгоритмдері .

Сабақ мақсаты: жазу типін қолданып программа құру.

Методикалық нұсқаулар.
Жазу сипаттамасы.

RECORD

өріс аты 1: тип поля 1;

..... ...... .....

өріс аты n : тип поля n ;

END;

Мысал:

type

person = {информация о человеке}

record

fio, addr: string; {фамилия и адрес}

pol: ()m,w); {пол}

year: integer; {год рождения}

end ;

var

Vasya: person;

Жазу жолдары: Vasya.year – год рождения человека, информация о котором хранится в записи с именем Vasya.

Өрістерге мәндер меншіктеу:

Vasya.fio:=’Васин Василий Васильевич’;

Vasya.addr:=’Москва’;

Vasya.pol:=m;

Vasya.year:=’1970’;

Қосу операторын қолдану:

With Vasya do

begin

writeln(‘Гражданин’,fio);

writeln(year,’ года рождения ‘);

writeln(“Адрес - “, addr);

end;
Программа мысалы:

program exam;

type

person ={информация о человеке}

record

fio, addr:string;

year:integer;
end;

var

Vasya:person;

begin

Writeln('Введите данные');

with Vasya do

begin

write('Фамилия ');

readln(fio);

write('Адрес: ');

readln(addr);

write('Год рождения: ');

readln(year);

end;

end.
Тапсырмалар:

Талаптар: программа мәтіні, программаның жұмыс жасау протоколы.

1.Напишите программу, содержащую сведения о студентах группы: фамилия, адрес, возраст.

2. Напишите программу, содержащую сведения о студентах группы: фамилия, адрес, возраст. Выведите на печать фамилии студентов, возраст которых старше 20 лет с указанием адресов проживания.

3. В баскетбольную секцию можно записать учеников класса, рост которых не меньше 170 см и возраст старше 13 лет. Сформируйте список класса из 10 учеников с необходимыми данными: класс, возраст, рост. Выведите список детей, соответствующих требованиям с указанием класса.

4. Введите список товаров, цену еденицы товара, количество купленных единиц, рассчитайте и выведите стоимость каждого из видов товара с наименованием.

Лабораториялық жұмыс №13.

Тақырып: Іздестіру. Іздестіру алгоритмдері.

Бинарлық іздестіру әдісін бүтін сандар үшін қолдану:

program Bin_poisk;

uses crt;

var

a:array[1..10] of integer;

dan:integer;

sred, prav, lev:integer;

found:Boolean;

n,i:integer;

begin clrscr;

for i:=1 to 10 do read(a[i]);

readln(dan);

prav:=10; lev:=1; found:=false;

repeat

sred:=(prav-lev) div 2+lev;

if a[sred]=dan then found:=true

else

if dan
until (lev>prav) or found;

if found then write( sred) else writeln('no');

readln; end.
Тапсырма : Мынадай әдістермен жолдың элементтерін табыңыз:

а) бинарлық іздестіру;

б) сызықтық іздестіру.

Лабораториялық жұмыс №14.

Тақырып: Реттеу. Реттеу әдістері.

Бүтін санды массив үшін тікелей еңгізу программасын қолдану:

program pr_vkl;

uses crt;

var i,j:integer; x:integer;

a:array [0..5] of integer;

begin

clrscr;

for i:=1 to 6 do read(a[i]);

for i:=2 to 6 do begin

x:=a[i]; a[0]:=x; j:=i;

while x

begin

a[j]:=a[j-1]; j:=j-1;

end;

a[j]:=x;

end;

for i:=1 to 6 do write(a[i],' ');

end.
Тапсырма : Мынадай әдістермен жолдың элементтерін реттеңіз:

а) шейкерлі реттеу;

б) тікелей еңгізу.

Лабораториялық жұмыс №15

Тақырып: Процедуралар.

Процедуаларды пайдаланып есептнрді шығарыңыз:

Үшбұрыш өзінің төбелерінің координаталарымен берілген. Оның ауданын есептеу программасын құрыңыз.
Берідген үш санның үлкенін және кішісін табатын программа құрыңыз.
Қабырғасы а дұрыс алтыбұрыш ауданын ұшбұрыш ауданын есептейтін процедураны пайдаланып табыңыз.
Вычислить площади правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника.
Берілген сандар өзара жәй болама жоқ па.
1-ден 9-ға дейінгі тақ сандарының факториал қосындысын табыңыз.

жүктеу 0,72 Mb.

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

1 2 3 4 5 6