Список рекомендованої літератури

Мова програмування Pascal:

1. Абрамов С.А., Задачи по программированию, М.: Наука, 1988.

2. Аглицкий Д.С., Любченко С.А., Компьютер в офисе и дома. М.: ИНФРА, 1997.

3. Аладьев В.З., Тупало В.Г., TURBO PASCAL для всех, К.: Техніка, 1993.

4. Ахметов К., Курс молодого бойца. 4-е издание М.:ТОО Фирма "Компьютер Пресс", 1997.

5. Бородич Ю.С., Вальвачев А.Н., Кузьмич А.И., Паскаль для персональных компьютеров /Справочное пособие/, Минск, "Вышейшая школа", 1991.

6. Вакал Е.С., Тригуб А.С., Основы работы на персональном компьютере: Курс лекций для студентов колледжа. К.: МУАП, 1998.

7. Верлань А.Ф., Апатова Н.В., Інформатика: Підручник для учнів 10-11 класів середньої загальноосвітньої школи. К.: Квазар-Мікро, 1998.

8. Глинський Я.М., Информатика: пробний навчальний посібник, Львів: УПІ ім. Федорова, "Фенікс Лтд.", 1992.

9. Гусева А.И., Учимся информатике. Задачи и методы их решения. Учебное пособие. М.: ДИАЛОГ-МИФИ, 1998.

10. Довгань С.Н., Литвинов Б.Ю., Сбитнев А.И., Персональные ЭВМ: Турбо Паскаль 6.0. Обьектное программирование. Локальные сети. /Учебное пособие/., К:, "ИнформСистема сервис", 1993.

11. Зуев Е.А., Система программирования TURBO PASCAL, М. Радио и связь, 1992.

12. Изучение основ информатики и вычислительной техники: Пособие для учителя. М.: Просвещение, 1992.

13. Информатика: Учебное пособие для старшеклассников и абитуриентов / под ред. В.А.Каймина. М.: АСТ, 1996.

14. Коляда М.Г., Окно в удивительный мир информатикию Учебное пособие. Донецк: Сталкер, 1999.

15. Левин А., Самоучитель Работы на компьютере. 4-е издание испр. И дополн. М.: Нолидж, 1998.

16. Марченко А.И., Марченко Л.А., Программирование в среде Turbo Pascal 7.0. / под ред. Тарасенко В.П. М.: Бином Универсал, К.: ЮНИОР, 1997.

17. Методичні вказівки до виконання лаборатрних робіт з курсу «ОСНОВИ ПРОГРАМУВАННЯ І АЛГОРИТМІЧНІ МОВИ» укладач Підласий А.І., Черкаси: ЧІТІ, 1999.

18. Підласий А.І., Конспект лекцій з курсу "Основи програмування та алгоритмічні мови", Черкаси, 2000 (електронний варіант)

19. Руденко В.Д. и др., Курс информатики: Учебно-методическое пособие для учащихся старших классов. К.: Феникс, 1998.

20. Фаронов В.В. Турбо Паскаль 7.0: Начальный курс. Учебное пособие. М.: «Нолидж», 1997.

21. Фигурнов В.Э. IBM PC для пользователя (видання 3,4,5,6,7).

22. Хершель Р., TURBO PASCAL 4.0/5.0, издание МП "МИК", 1991

Мова програмування С:

1. Керниган Б. Ритчи Д. Язык программирования Си. СПб. «Невский Диалект»,2001 -353 с.

2. Х.М.Дейтел., П.Дж.Дейтел. Как программировать на Си++. М .: ЗАО БИНОМ, 1999, 1000 с.

3. Аммерал Л. Программирование графики на Турбо Си. Пер. с англ. М., "Сол Систем", 1992.

4. С. Прата. Язык программирования Си. Киев, ДиаСофт, 2001.

5. Безбородов Ю. М. Индивидуальная отладка программ. - М.: Наука, 1982. – 192 с.

6. Хьюз Дж., Митчел Дж. Структурний подход к программированию. М.: Мир, 1980. - 280 с.

7. М.Уэйт, С.Прата, Д.Мартин „Язык Си”, Пер. с англ.-М.: Мир, 1988

8. Б. Страуструп „Введение в язык С++”, Киев, „Диа Софт”, 1995

9. Г. Буч. "Объектно-ориентированное проектирование с примерами применения", Киев, Диалектика, 1992.

10. Б. Страуструп „Язык программирования С++”; 2-е изд. : 1,2 т.т., Киев, „Диа Софт”, 1993

11. М.Эллис, Б.Страуструп „Справочное руководство по языку программирования С++ с комментариями”, М., Мир, 1992

12. С. Дьюхарст, Кети Старк „Программирование на С++”, Киев, „Диа Софт”, 1993

13. Т.Фэйсон „Объектно-ориентированное программирование на Borland C++ 4.5”, Четвертое издание, Киев, „Диалектика”, 1996.

14. И.Пол „Объектно-ориентированное программирование с использованием С++”, Киев, „Диа Софт”, 1995

15. Т.Сван „Освоение Borland C++ 4.5”, практический курс, 1 том, Киев, „Диалектика”, 1996

16. 13. Т.Сван „Освоение Borland C++ 4.5”, Энциклопедия функций (2 том), Киев, „Диалектика”, 1996

17. Т.Сван „Освоение Borland C++ 5”, премьерное издание, Киев, “Диалектика”, 1996

18. Б. Страуструп „Язык программирования С++”, специальное издание, Москва, „Бином”, 2001

19. А. Архангельский „Программирование C++ Builder 5”, Москва, “Бином”, 2001

20. Т.А.Павловская „С/С++. Программирование на языке високого уровня”, „Питер”С-П, 2002

21. Т.Кормен, Ч.Лейзерсон, Р.Ривест „Алгоритмы: построение и анализ”,МЦНМО, М., 2000.

Додаток 1

Зразок титульної сторінки

Додаток 2

Приклади програм для створення інтерфейсу користувача

1. Приклад програми для створення меню в графічному режимі. В масиві mas: array [1..9] of string пункти меню. Процедура procedure poln - виводить меню. Після вибору пункту меню в змінній h1 номер вибраного пункту:

uses crt, graph;

const mas: array[1..9] of string=('пункт1', 'пункт2', 'пункт3', 'пункт4', 'пункт5', 'пункт6', 'пункт7', 'пункт8', 'пункт9');

var pr, s, h, h1, c, gd, gm: integer;

a: char;

procedure poln;

var c: integer;

Begin

cleardevice;

h:=1;

h1:=1;

setfillstyle(8, 1);

bar(1, 1, 639, 479);

settextstyle(0, 0, 0);

setfillstyle(1, 8);

for c:=1 to 9 do begin

setcolor(15);

rectangle(280, c*35+95, 600, c*35+120);

bar(281, c*35+96, 599, c*35+119);

setcolor(0);

outtextxy(290, c*35+104, mas[c]);

end;

setfillstyle(1, 0);

bar(281, 132, 599, 154);

setcolor(15);

outtextxy(290, 139, mas[1]);

repeat

repeat

   a:=readkey;

until a in [#72, #80, #13, #27];

case a of

   #72: h:=h-1;

   #80: h:=h+1;

end;

if h=10 then h:=1; if h=0 then h:=9;

setfillstyle(1,8); bar(281, h1*35+96, 599, h1*35+119);

setcolor(0); outtextxy(290, h1*35+104, mas[h1]);

setfillstyle(1, 0); bar(281, h*35+96, 599, h*35+119);

setcolor(15); outtextxy(290, h*35+104, mas[h]);

h1:=h;

until (a=#13) or (a=#27);

end;

Begin

pr:=1;

h:=1;

h1:=1;

clrscr;

gd:=detect;

initgraph(gd, gm, '');

if graphresult<>grok then halt(1);

poln;

End.

2. Приклад програми для створення меню в текстовому режимі. Містить в собі набір процедур для оформлення інтерфейсу користувача. Процедура CF(c, f: byte) встановлює колір і фон для символів, що виводяться. Процедура BEEP дає звуковий сигнал. Процедура CURSOR(flag: boolean) робить видимий чи невидимий курсор. Процедура FRAME(x1, y1, x2, y2: integer) малює рамку в заданих координатах символами псевдографіки. Процедура GMENU(x1, y1: integer; ss1, ss2, ss3, ss4,ss5, ss6, ss7: string; var regime: byte)малює горизонтальне меню на 7 пунктів. Номер вибраного пункту в змінній regime.

USES CRT,DOS;

var c, f, rez: byte;

Procedure CF(c, f: byte);

Begin

 TextColor(C);

 TextBackGround(F);

end;

Procedure BEEP;

Begin

 Sound(800);

 Delay(70);

 NoSound;

end;

Procedure CURSOR(flag: boolean);

Const SizeCursor: word=0;

Var Reg:registers;

Begin

 with Reg do begin

 if Flag then begin CX:=SizeCursor; end

 else begin

    BH:=0;

    AH:=03;

    Intr($10,Reg);

    SizeCursor:=CX;

    CH:=$20;

   end;

  AH:=01;

  Intr($10,Reg);

end;

end;

Procedure FRAME(x1, y1, x2, y2: integer);

Const

A=#186; B=#187; C=#188; D=#200; E=#201; F=#205;

Var I, J: Integer;

begin

GoToXY(X1,Y1); write(E);

for I:=(X1+1) to(X2-1) do write(F);

write (B);

for I:=(Y1+1) to(Y2-1) do

begin

  GoToXY(X1,I); write(A);

  GoToXY(X2,I); write(A);

end;

GoToXY(X1,Y2); write(D);

for I:=(X1+1) to(X2-1) do write (F);

write(C)

end;

Procedure GMENU(x1, y1: integer; ss1, ss2, ss3, ss4,

ss5, ss6, ss7: string; var regime: byte);

Label Met;

const k1: byte=0; kr=7;

var m: array[1..kr] of string[22];

pp: array[1..kr] of byte; result, i, t, r:byte;

ch: char; fl: boolean;

Begin

cursor(false); fl:=true;

m[1]:=ss1; m[2]:=ss2; m[3]:=ss3; m[4]:=ss4;

m[5]:=ss5; m[6]:=ss6; m[7]:=ss7;

t:=Length(m[1]); r:=0;

for i:=1 to kr do r:=r+length(m[i]);

r:=Round((78-r)/kr)-1; Frame(3,y1-1,75,y1+1);

GotoXY(14,22); CF(14,0); write('за допомогою ',Chr(26),' чи ',Chr(27),'

зробіть вибір и натисніть <Enter> ');

GotoXY(Round(R/2+3),y1);

for i:=1 to kr do begin

    if i=1 then CF(0,7) else CF(7,0); pp[i]:=WhereX; write(m[i]);

    CF(7,0); if i=kr then r:=0; write('':r);

end;

i:=1;

while fl=true do

   begin

    Ch:=Readkey;

    if Ch=#13 then fl:=false;

    if (Ch=#0) and KeyPressed then

     begin

      Ch:=ReadKey;

      case Ch of

       #77:begin Beep;

            GoToXY(k1+pp[i],y1); cf(7,0); write(m[i]); i:=i+1;

            if i=(kr+1) then begin i:=1; CF(7,0);

               GotoXY(k1+pp[i],y1); CF(0,7);

               write(m[i]);CF(7,0); Goto Met;

              end;

            GotoXY(k1+pp[i],y1); CF(0,7); write(m[i]); CF(7,0)

            end;

       #75: begin

         GotoXY(k1+pp[i],y1); Beep; CF(7,0); write(m[i]);

         i:=i-1; if i=0 then i:=kr; GotoXY(k1+pp[i],y1);

         CF(0,7); write(m[i])

       end; end;

   Met:

   end; end;

Regime:=i; CF(7,0); Cursor(True);

end;

Begin

clrscr; cf(15,0); frame(1,1,80,24);

 gmenu(5,5,'пункт1', 'пункт2', 'пункт3', 'пункт4',

'пункт5', 'пункт6', 'пункт7', rez);

 gotoxy(10,10); write(rez); readln;

End.

3. Приклад програми створення вертикального меню в текстовому режимі. За вікном меню виводиться "тінь". Для невидимого курсору можна використати процедуру із попереднньої програми.

uses crt;

const tpr: array[1..2, 1..6] of char=((#179,#191,#217,#192,#218,#196),

(#186,#187,#188,#200,#201,#205));

Var

buf: array[0..24,0..79,0..1] of byte absolute $b800:0000;

tr, cr, cf, cl, ns, kx, ky, dx, dy, j, jj, i, l, ll, ii, x2, y2: integer;

nr: string; c: char; sr: array[1..8] of string;

Begin

clrscr;

tr:=2; cr:=12; cf:=1; cl:=14; ns:=5; kx:=12; ky:=12; dx:=25; dy:=ns;

nr:=' меню выбора '; sr[1]:='пункт 1';

sr[2]:='пункт 2'; sr[3]:='пункт 3';

sr[4]:='пункт 4'; sr[5]:='пункт 5';

textbackground(2);

for i:=1 to 23 do begin writeln; for j:=1 to 70 do write('1'); end;

window(1,1,80,25);

for i:=1 to ns do begin ll:=dx-length(sr[i])-3; for ii:=1 to ll do sr[i]:=sr[i]+' '; end;

x2:=kx+dx; y2:=ky+dy+1; textcolor(cr); textbackground(cf);

gotoxy(kx-1,ky); {лівий верхній}write(tpr[tr,5]);

for i:=kx to (x2-1) do write(tpr[tr,6]);{верх лінія}

write(tpr[tr,2]);{правий верхіий}

for i:=(ky+1) to (y2-1) do begin{ліва лінія}

gotoxy(kx-1,i); write(tpr[tr,1]);

gotoxy(x2,i); {права лінія}

write(tpr[tr,1]); end;

gotoxy(kx-1,y2); write(tpr[tr,4]);

for i:=kx to x2-1 do write (tpr[tr,6]);

write(tpr[tr,3]);

gotoxy(kx+round((((x2-kx)-length(nr))/2)),ky);{ім’я рамки}

write (nr);

textbackground(0);{тінь}

for i:=kx+1 to x2+2 do buf[y2,i-1,1]:=7;

for i:=ky+1 to y2 do begin buf[i-1,x2,1]:=7;

buf[i-1,x2+1,1]:=7; end;

window(kx,ky+1,x2-1,y2-1);{записуємо пункти меню}

textbackground(cf); clrscr;

if ns<>0 then begin

window(1,1,80,25); textbackground(cf); textcolor(cl);

for i:=1 to ns do begin

gotoxy(kx+1,ky+i); writeln(sr[i]);

end;

gotoxy(kx+1,ky+1); textbackground(3);

textcolor(0); writeln(sr[1]+' '); window(kx,ky+1,x2-1,y2-1); j:=1; c:=' ';

Repeat

Repeat

c:=readkey;

until (c=#72) or (c=#80) or (c=#13) or (c=#27);

jj:=j;

if c=#72 then begin dec(j); if j=0 then j:=ns; end;

if c=#80 then begin inc(j); if j>ns then j:=1; end;

if jj<>j then begin

window(1,1,80,25);

for i:=1 to ns do begin

gotoxy(kx+1,ky+i);

if i=j then begin textcolor(0); textbackground(3); end

else begin textcolor(cl); textbackground(cf); end;

writeln(sr[i]+' '); end; window(kx+1,ky,x2,y2); end;

until (c=#13) or (c=#27);

window(1,1,80,25); end; writeln('OK'); readln;

End.

Додаток 3

Бланк для затвердження