Створення програмного комплексу мовами програмування Pascal та С - Курсовая работа

МІНІСТЕРСТВО ОСВІТИ І НАУКИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ Виконав: Кунов Максим Романович студент групи КМ-125системного програмуванняМета: · закріплення отриманих знань з програмування з використанням мов програмування Pascal та С; Постановка завдання: Скласти програмні комплекси мовами програмування Pascal та С для розвязання та виконання поставлених завдань, згідно індивідуального варіанту: O перший програмний комплекс складається мовою програмування Pascal та повинен містити графічний інтерфейс з варіантами вибору подальшої роботи: Основне меню вибору: 1. Заголовок. O другий програмний комплекс складається мовою програмування С, але з використанням інтерфейсу в звичайному текстовому режимі; O пункт Заголовок повинен виводити на екран відомості про автора даної роботи, вид цієї роботи, її тему та номер індивідуального варіанта. · вміст файлу (виведення на екран вже існуючого файлу, в якому міститься інформація про вхідні дані для завдання №2);Синтаксис повної форми if має такий вигляд: if (вираз ) оператор_1 else оператор_2 Якщо вираз буде правдивим, то виконуватиметься оператор_1, в усіх інших випадках буде виконуватися оператор_2. Синтаксис оператора for має такий вигляд: for (вираз_1; вираз_2; вираз_3) оператор Відмінністю цього та попереднього операторів є те, що цикл з постумовою виконається хоча б один раз, в той час, як оператор(и) циклу з передумовою можуть не виконатися взагалі. Наступний крок - мати спосіб читання або запису до файла після того, як його відкрито. getc повертає наступний знак з файла; вона вимагає покажчика на файл, щоб знати, який саме файл. int getc(FILE *fp) getc повертає наступний знак з потоку, на який вказує fp; вона повертає EOF у випадку кінця файла або помилки. putc - це функція виводу: int putc(int c, FILE *fp) putc запише символ з c до файла fp і поверне записаний знак або EOF у випадку помилки.Вхідні дані Дії Вихідні дані a,fi-дійсного типу, fi I (0; 2p). 1. Введення а; 2. якщо (a0); та перехід до пункту 1; 3. якщо (а>0) перехід до пункту 4; 4. включення графічного режиму; 5. ототожнення файлової змінної з фізичним файлом; 6. відкриття файла для запису в нього інформації; 7. обчислення функції; 8. запис у файл та виведення на екран значення функції; 9. закриття файла; 10. виведення на екран графіка функції; 11. виключення графічного режиму. x,y - дійсного типу.3.2 Блок-схема до задачі 1Vuvedennja graphichnoho maljunky.","4) Vuhid."); var w,h3,b,h,h1,gd,i,j,n1,gm:integer; sh: char; f:text; mas1:tik; var f1:text; l1,l2,maxp,minp,maxs,mins,c,d1,d2,d3,d4,d5,d6,s1,s2,s3,s4,p1,p2,p3,p4:real; n,t,m,p,a,fi:real; s,k:string; var R,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer; procedure like(f:real; var x1,y1:real); var t1,c1,z1,k1,l1:real; begin t1:=sin(f)/cos(f); x1:=(2*a)/(1 t1*t1); y1:=(2*a)/(t1*(1 t1*t1)); end; procedure poln; procedure zah; begin cleardevice; setcolor(9); settextstyle(0,0,2); outtextxy(200,100,"Kyrsova robota"); settextstyle(0,0,0); outtextxy(275,125,"na temy:"); outtextxy(70,150,""Stvorennja programnoho kompleksy movamu programyvannia Paskal ta Ci""); outtextxy(400,200,"Vukonav:"); outtextxy(400,225,"stydent grupy KM-125"); outtextxy(400,250,"Kunov Maksym Romanovych"); outtextxy(75,300,"Variant No 7"); outtextxy(270,460,"CHDTY 2013"); readln; poln; end; begin cleardevice; h:=1; h1:=1; settextstyle(0,0,0); setfillstyle(9,BLUE); bar(1,1,640,480); setfillstyle(1,8); for i:=1 to 11 do begin setcolor(15); rectangle(125,i*35 1,490,i*35 26); bar(126, i*35 2, 489, i*35 25); setcolor(0); outtextxy(135, i*35 10, mas[i]); end; setfillstyle(1, 0); bar(126,38,489,60); setcolor(15); outtextxy(135,40,mas[1]); repeat repeat sh:=readkey; until sh in [#72, #80, #13, #27]; case sh of #72: h:=h-1; #80: h:=h 1; end; if h=12 then h:=1; if h=0 then h:=11; setfillstyle(1,8); bar(126, h1*35 2, 489, h1*35 25); setcolor(0); outtextxy(135, h1*35 10, mas[h1]); setfillstyle(1, 0); bar(126, h*35 2, 489, h*35 25); setcolor(15); outtextxy(135, h*35 10, mas[h]); h1:=h; if (sh=#13) and (mas[h]=mas[1]) then zah; if (sh=#13) and (mas[h]=mas[3]) then begin cleardevice; setfillstyle(1,0); setcolor(BLUE); bar(1,1,640,480); settextstyle(0,0,2); outtextxy(200,25,"Zavdannja No 1"); settextstyle(0,0,1); outtextxy(75,50,"Vukonaty tabyliaciiu parametrychno zadanoi fynkcii (Tsissoida),"); outtextxy(50,75,"zapusatu ii y fail ta vyvestu iogo na ekran. Iakscho v kolo vpysanyi kvadrat, to vyvesty"); outtextxy(75,125,"iogo okremym koliorom."); readln; poln; end; if (sh=#13) and (mas[h]=mas[4]) then begin closegraph; clrscr; while (a0"); end; assign(f,"tab.txt"); rewrite(f); writeln(f," ========================="); writeln(f," || x || y ||"); writeln(f," ========================="); w:=0; fi:=0.1; for i:=1 to 7 do with mas1[i] do begin like(fi,x,y); fi:=fi pi/4; str(x:3:1,s); str(y:3:1,k); b:=55 w; h3:=60 w; w:=w 15; writeln(f

ЗМІСТ

ВСТУП

1. КОРОТКІ ТЕОРЕТИЧНІ ВІДОМОСТІ

2. РОЗРОБКА АЛГОРИТМІВ РОЗВЯЗАННЯ ЗАДАЧ

2.1 Розробка алгоритму розвязання задачі 1

2.2 Розробка алгоритму розвязання задачі 2

3. РОЗРОБКА БЛОК-СХЕМ ІНТЕРФЕЙСУ ТА РОЗВЯЗАННЯ ЗАДАЧ

3.1 Блок-схема інтерфейсу

3.2 Блок-схема до задачі 1

3.3 Блок-схема до задачі 2

3.4 Блок-схема до підпрограми like

3.5 Блок-схема до підпрограми zah

4. РОЗРОБКА ПРОГРАМ РОЗВЯЗАННЯ ЗАДАЧ МОВАМИ ПРОГРАМУВАННЯ ПАСКАЛЬ ТА СІ

5. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМ РОЗВЯЗАННЯ ЗАДАЧ

ВИСНОВКИ

СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ