1-6 варианттары:
келесі кілттер арқылы: зеңгерлік (юристік) кеңесінің адресі,заңгерлік кеңесінің аты,адвокат немесе нотариустің аты-жөні бойынша,адвокат немесе нотариустың телефоны бойынша жазба массивін элементерінің өрісіне арналған міндерін шығаруын ескерту
Сұраныстар:
1. Белгілі ауданда неше заңгерлік кеңесі бар екенін анықтау
2. Ең көп адвокаттар қай заңгерлік кеңесінде істейтінін анықтау
3. Ең аз нотариустер қай заңгерлік кеңесінде істейтінін анықтау
4. Белгілі заңгерлік кеңесінде неше адвокат пен нотариустер жұмыс істейтінін анықтау.
5. Бір белгі көшеде неше заңгерлік кеңес орналасқанын анықтау
6. Бір белгі ауданда неше заңгерлік кеңес орналасқанын анықтау
7-13 варианттары:
келесі клттер арқылы: мерзімі (уақыты), соттық тексеріс затына,фирма-дуагер аты бойынша,фирма-жауапшы бойынша жазба массивін элементтерінің өрісіне арналған мәндерін шығаруын анықтау.
Сұраныстар:
7. Қай жылы залымдыққа байланысты істердің саны ең жоғары болғанын анықтау.
8. Қай жылы банкроттқа ұшырауына байланысты істердің саны ең жоғары болғанын анықтау
9. Қай жылы ажырасуға байланысты істердің саны ең жоғары болғанын анықтау
10. Қай жылы дисриминацияға байланысты істердің саны ең жоғары болғанын анықтау
11. Белгілі фирма қарсы қай жылы ең кқп қылмыстық іс қазғалғанның анықтау
12. Екі реттен астам қай фирма бойынша қылмыстық іс қозғалған
13. Қай фирмф өткен жылдар бойынша даугер рөлінде ең жиі шыққанын анықтау
14-24 варианттары
Келесі кілттер арқылы:мердігер фирмасының аты (подрядчик) бойынша,құрылыстын бағасы (құны) бойынша, құрылыстың түрі бойынша,банктегі салымның сомасы (көлемі) бойынша жазба массивтің элементерінің өрісіне арналған мәндерән шығартуын ескерту
Сұраныстар:
14. Банкідегі салымның сомасы құрылыстың бағасынан кем болған клиенттерді анықтау
15. Құрылыстың бағасын толық төленген клиентті анықтау
16. Клиенттер екіден кем емес рет тапсырған құрлыстың типін анықтау
17. Банідегі ең жоғары соманың есепшотына ие болған клиентті анықтау
18. Мксималды бағасы бар құрылғысын анытау
19. Минемалды бағасы бар құрылғысын анытау
20. Несиені ең жоғары пайызға алынған клиентті анықтау
21. Несиені ең төмен пайызға алынған клиентті анықтау
22. Барлық клиенттердің төленбеген сомасын
23. Ең аз төленбеген сомасына ие болған клиентті анықтау.
24. Ең көп төленбеген сомасына ие болған клиентті анықтау.
25-34 варианттары
Келесі кілттер арқылы: тауарлардың атына байланысты,келіп түскен жылы бойынша, тауарды әкелген мемлекет бойынша,тауар акелетін фирма бойынша жазба массивтің элементерінің өрісіне арқылы арналған мәндерін шығаруын ескеру
Сұраныстар
25. Қай фирманың тауары ең жиі / аз түскенін анықтау .
26. Барлық жылдар бойынша түскен тауардың көлемін анықтау.
27. Ең қымбат / арзан тауардың атын анықтау
28. Барлық жылдар бойынша тауарлар алу үшін кеткен шығынды есептеу.
29. Бәрінен жиі / аз тауарға заказ берілген жабдықтаушы-елді анықтау .
30. Қай айда ең жиі /аз тауарлар түскенін анықтау .
Бақылау мысалы
Студенттер жайлы мәліметтер берілген : аты жөні , туған жылы , туған жері , тұратын адресі .
Файлды құру керек.Құрылған файл Алматылық студенттер жайлы мәлімет оқып және 18 – жастан кіші студенттер жайлы мәліметтерді шығару керек.
Program primer 9;
Uses crt ;
Type
Mydata = record
Fio :INTEGER ;
Year :integer ;
Place : string;
Addr : string;
End;
Myfile = file of mydata ;
Var
Fin , fout :myfile ;
Trec : mydata ;
N , I , k :integer;
Procedure inputdata ;
Begin
Write(‘Kolichestvo=’);
Readln(n);
Программалау (І ) пәнінен
Зертханалық жұмыс №11
Динамикалық айнымалылар мен көрсеткіштер
(3-семестр, 4 сағат)
Жұмыстың мақсаты – динамикалық жадыда массивтер мен матрицаларды қолдану арқылы әр түрлі амалдарды қолданып программасын құру іскерлігі.
Тапсырма. № 4-5 Зертханалық жұмысындағы тапсырмаларды қолдана отырып динамикалық массивтер мен матрицаларға есеп шығару
Бақылау мысалы
1) Far getmem (var p:pointer; size:longint) процедурасы барлық бос оперативті жадыны ерекшелеу программасы
Procedure far_getmem (var p:pointer; size:longint);
Var
R:registers; newsize, dosseg:word;
Begin
Newsize:=(size+15) div 16;
r.bx:=newsize;
r.ah:=$48;
msdos(r);
if r.ax:=$07 then
begin
writeln (‘Жадыны басқаратын блоктар’);
halt (1);
end
else
if r.ax=$08 then
begin
writeln (‘ерекшелеуге болмайды’, size,’ ,байт’);
halt (1);
end
else
p:=ptr(r.ax,0);
end;
2) Берілген функциядаfar_getmem процедурасы арқылы жадыны ерекшелеп far_freemem процедурасы арқылы жадыны босатадың программасы
Procedure far_freemem(var p:pointer; size:longint);
Var
r:registers;
segment, dosseg:word;
begin
if ofs (p^)<0 then
begin
p:=nil;
system.freemem(p,1);
end;
segment:=seg(p^);
r.es:=segment;
r.ah:=$49;
msdos(r);
if r.ax=$07 then
begin
writeln (‘жадыны басқаратын блоктар’);
halt(1);
end
else
if r.ax=$08 then
begin
writeln (‘жады getmem процедурасымен ерекшеленген жоқ’);
halt(1);
end;
end.
Программалау (І ) пәнінен
Зертханалық жұмыс №12
Графикалық режимде қолданылатын процедуралар мен функциялар
(3-семестр, 4 сағат)
Жұмыстың мақсаты – графикалық режимде қолданылатын процедураларды қолданып есептердің программасын құруға үйрену.
Тапсырма. F(x) нақты функцияны белгілеп, дисплейдің символдық экранында оның графигін құру және ешқандай сандық әдістерін пайдаланбай барлық есептерін графикалық түрде табу.
Тапсырмалар варианттары:
1.F(x)= 
аралығындағы жауап х 
=2,2985
2. 
аралығындағы жауап х =-0.2877
3. 
аралығындағы жауап х =0,4538
4. 
аралығындағы жауап х =1,2388
5. 
аралығындағы жауап х=1,0769
6. 
аралығындағы жауап х=2.42
7. 
аралығындағы жауап х=1.8756
8. 
аралығындағы жауап x=0.7672
9. 
аралығындағы жауап х =1,1183
10. 
[0.08] аралығындағы жауап х =0.333
11. 
аралығындағы жауап х =0.5629
12. 
аралығындағы жауап х =3.23
13. 
аралығындағы жауап х =0.8814
14. 
аралығындағы жауап х =1.3749
15. 
аралығындағы жауап х =1.3077
16. 
аралығындағы жауап х =3.5265
17. 
аралығындағы жауап х =0.5472
18. 
аралығындағы жауап х =1.8832
19. 
аралығындағы жауап х =2.0267
20. 
аралығындағы жауап х =0.6533
21. 
аралығындағы жауап х =2.8459
22. 
аралығындағы жауап х =1.0804
23. 
аралығындағы жауап х =1.1474
24. 
аралығындағы жауап х =2.0692
25. 
аралығындағы жауап х =0.9892
26. 
аралығындағы жауап х =1.36016
27. 
аралығындағы жауап х =-0.66242
28. 
аралығындағы жауап х =-0.4145
29. 
аралығындағы жауап х =2.25078
30. 
аралығындағы жауап х =1.496
Бақылау мысалы
аралығындағы
Program primer 1;
{y=f(x)кез-келген функциядан графикті құру}
uses crt;
const h=79; {дисплей экранындағы бағаналардың максималды саны}
type position=1…h;
arraya=array[position]of char;
func=function(x:real) :real;
Var y,m :integer;
K,n,j :position;
Ymin,ymax,a,b,dx,x,y,my:real;
Ar :arraya;{экранға шығарылатын символ массиві}
Ch : char;
{к символды экранға шығару}
prosedur graphic(a:arraya:k:position);
Var i:position;
Begin
For i=1 to k do
Write(a[i]);
Writeln;
End;
{I funct} {funct.pas басқа файлдан нақты функцияны енгізу}
{f функцияның [а.б]аралығындағы уmin және ymax табу}
cонымен бірге барлық х0 түбірін экранға шығару}
procedur min,max(f : func;dx,a,b,:real;var ymin, ymax:real)
Var fx,fx:real;
Begin
X:=a;
Ymin:=f(x);
Ymax:=ymin;
Flx:=ymin;
Whilex<=b do
Begin
X:=x+dx;
Fx:=f(x);
{f функцияның түбірін табу варианттарыж
fx-функцияның келесі мәні flx-функцияның алдыңғы мәні}
if fx*fix<0 then {функциясы белгісін өзгертті,х0 түбірін аламыз}
Writeln(‘x0=x-dx/2);
Flx:=fx;
If fx>ymax then ymax:=fx;
If fx<ymin then ymin:=fx ;
End.
End;{minmax}
{басты программа}
begin
repeat
for j:=1to h do ar[j]:=’,{ar массивін тазалау}
сlreser;
for i:=1to n do
begin
with trec do
begin
write(‘surname,’);read(fio);
write(‘year:’);readln(year);
write(‘pleace,’);readln(pleace);
write(‘address:’);readln(addr);
end;
write(fin,trec);
end;
end;
procedure
write (‘нүктелердің санын енгізіңіз =======>’);
readln (m);
write ([a..b] аралығын енгізіңіз======>’);
readln (a,b);
dx:=(b-a)/(m-1);
writeln (‘аралықтағы түбірлердің тізімі’);
minmax (f,dx,a,b,ymin,ymax);
writeln (‘ --------------enter басыңыз-------- ‘);
readln;
my:=75/(ymax-ymin); {y осінің масштабы}
y0:=trunc (2-my*ymin); {Дисплейдің экранындағы y0 жайы}
{графиктің өзі}
x:=a;
while x<=b do
begin
y:=f(x);
if y0 in [1..h] then ar[y0]:=’|‘;
n:=round (my*y)+y0;
if n<y0 then k:=y0
else k:=n;
if x=0 then
begin {ості аламыз-------------------->y}
for j:=1 to h-3 do ar[j]:=’-‘;
ar[h-2]:=’y’;
k:=h;
end;
ar [n]:=’@’; {графиктегі нүктенің символы}
graphic(ar,k);
for j:=1 to h do ar [j]:=’’; {ч щсінің соңы}
begin
ar[y0]:=’v’;
ar[y0+1]:=’x’;
grafic(ar,y0+1);
end;
writeln (‘қайталайық па?(y/n)’);
ch:=readkey;
until (ch=’n’) or (ch=’n’);
end.
Funct.pas ішкі файлдің листингісі
Нақты функция (шынайы сандарының барлық аралығында анықталған);
F(x)=e-x *sinПx
{$f+} {бұл директива pentiun және одан жоғары ПЭЕМ-дерге қажет}
function f(x:real):real;
begin
f:=exp(-x)*sin(2*pi*x)
end;
Ұсынылатын әдебиет
1. Абрамов С А,Гнезделова Г Г,Капустина Е Н, Селюн М И Задача по програмированию. М,1988
2. Абрамов С А,Зима Е В Начала информатики М,1989
3. Вирт Н Алгоритмы +структуры данных =программы М1985
4. Голубь Н Г,Кириленко Е Г,Флгоритмические языке и програмирование Учебное пособие,часты 1 хай,1997
5. Грогоно П.Прогромирование на Паскаль М1982
6. Джонс Ж., Харроу К. Решение задач в системе Турбо Паскаль. М.,1991.
7. Йенсен К., Вирт Н. Паскаль: руководство для пользователя. М., 1989.
8. Касьянов В.Н., Сабельфельд В.К. Сборник заданий по практикуму на ЭВМ. М., 1992.
9. Мизрохи С.В. TURBO PASCAL и обьектно-ориентированное программирование.М., 1992.
10. Пильщиков В.Н. Сборник упражнений по языку Паскаль. М.,1997.
11. Прайс Д. Програмирование на языке Паскаль: Практическое руководство. М.,1987.
12. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. М.,1997.
13. Фаронов В.В. Турбо Паскаль 7.0. практика программирования. Учебное пособие. М.,1997.
14. Фирменная документация и компьютерные справочники(файлы помощи типа HELP).
Язык программирования ассемблер IA-32
Каждая программа на языке ассемблера помимо команд процессора содержит еще и специальные инструкции, указывающие самому ассемблеру, как организовывать различные секции программы, где располагаются данные, а где команды, позволяющие создавать макроопределения, выбирать тип используемого процессора, организовывать связи между процедурами и т.д. К сожалению, пока нет единого стандарта на эти команды (он существует для UNIX). Разные ассемблеры используют различные наборы директив, но TASM и MASM (два самых популярных ассемблера для DOS и Windows) поддерживают общий набор.
