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



жүктеу 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 дәлдікпен, жалпы мүшесі өзінің формуласымен берілген қатардың қосындысые табыңыз:


  1. аn=1/2n+1/3n

  2. аn=10n/n!

  3. аn=(n!)/nn

  4. аn=1/((3n-2)(3n+1))

  5. аn=(2n-1)/2n



Лабораториялық жұмыс №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.

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


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

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

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

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

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

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

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

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

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

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

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

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

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


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

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



  1. Берілген сөзде неше «а» әріпі бар.

  2. «а» әріпінен басталатын неше сөз бар.

  3. Берілген жолда неше палиндром бар.

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

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

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



  1. Берілген сөздегі дауысты дыбыстар санын табатын.

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

Лабораториялық жұмыс №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. Үшбұрыш өзінің төбелерінің координаталарымен берілген. Оның ауданын есептеу программасын құрыңыз.

  2. Берідген үш санның үлкенін және кішісін табатын программа құрыңыз.

  3. Қабырғасы а дұрыс алтыбұрыш ауданын ұшбұрыш ауданын есептейтін процедураны пайдаланып табыңыз.

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

  5. Берілген сандар өзара жәй болама жоқ па.

  6. 1-ден 9-ға дейінгі тақ сандарының факториал қосындысын табыңыз.


жүктеу 0,72 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау