align="justify"> Висновок
У ході виконання курсової роботи були розроблені та реалізовані, програми для роботи з текстовим рядком, двовимірним масивом, файлами, машинної графікою, записами.
При виконанні курсової роботи були вивчені основні конструкції мови високого рівня Паскаль, такі як, цикли, умови, процедури, функції, масиви, рядки і т.д.
Паскаль надає достатні кошти для написання програм за заданим алгоритмом для вирішення практично будь-яких завдань.
Список використаної літератури
1. Немнюгин С.А.- Turbo Pascal. Програмування на мові високого рівня, СПб .: Питер, 2012, 496 с.
. Рапаков Г. Г., Ржеуцкая С. Ю. - Програмування на мові Pascal, СПб .: БХВ-Питербург, +2009, 480 с.
. Окулов С. М. - Основи програмування, М.: БИНОМ. Лабораторія знань, +2010, 424 с.
. С.Н.Лукін - Turbo Pascal 7.0. Самовчитель, Діалог - МІФІ, 1999, 211 с.
. Єрьомін О. Ф. - Методичний посібник з програмування мовою Pascal ABC, Моздок, 2009, 49 с.
Програми
Додаток А
Код програми до завдання 1A1; crt; s: string;: array [1..20] of string;: array [1..10] of string;, j, max, r, k , l, n, m: integer;
begin (s); {введення послідовності слів}
r:=1; i:=1 to length (s) dos [i]= then:=j + 1; [j]:=copy (s, r, i-r);
r:=i + 1 ;; {Кожне слово вноситься в окрему клітинку масиву символьного типу}
for i:=1 to j do ( A [, i, ]=, A [i]);
{Масив виводиться для перевірки} i:=1 to j do
begin:=0;:=0; l:=1 to length (A [i]) do
case A [i] [l] of
0 .. 9 raquo ;: n:=1;
а .. я raquo ;: m:=1 ;; (n lt; gt; 0) and (m=0) then begin ( тільки числа в слові raquo ;, A [i], ); j:=length (A [i]) downto 1 do (A [i] [j]) ;;; (m lt; gt; 0) and (n =0) then begin ( тільки знаки в слові , A [i], ); j:=length (A [i]) downto 1 do (A [i] [j ]) ;;;; {Виводимо слова, в яких є або тільки числа, або тільки знаки і перевертаємо їх}.
Додаток Б
Код програми до завдання 3A3;crt;c=[laquo;0raquo;,laquo;1raquo;,laquo;2raquo;,laquo;3raquo;,laquo;4raquo;,laquo;5raquo;,laquo;6raquo;,laquo;7raquo;,laquo;8raquo;,laquo;9raquo;];,f2:text;:array[1..99] of string;: array [1..99] of integer;,s1:string;,r2:real;,j,k,x,g,v,s2:integer;(f1,laquo;file1.txtraquo;);(f2,laquo;file2.txtraquo;);(f1);(laquo;vvedite text: ); readln (s); (f1, s); ( початкове слово: ); (r1); ( кінцеве слово: ); (r2); (f1); not eof (f1) do readln (f1, s);:=1; i:=1 to length (s) do (s [i] lt; gt; ) and (s [i] in c) then [j]:=a [j] + s [i]; inc (j) ;;:=j;:=0;:=0; j:=1 to x do:=a [j]; (s1, v, g); (v gt; r1) and (v lt; r2) then (i); [i]:=v; begin:=s2 + v;:=k + 1 ;;;; ( Кількість чисел: , k); j:=1 to x do writeln (a [j]) ;; ( Сума чисел: , s2); (f2); i:=1 to k do write (f2 , b [i], ); (f1);
Додаток В
Код програми до завдання 4A4; GraphABC, crt; p=3.14; x, t, y, A, R, m: real;: byte;: text;: array [1..4] of real; (600,600); (300,0,300,600); (0,300,600,300); (l, data3.txt ); (l); n:=1 to 4 do (l, m); [n]:= m ;;:=Q [1];:=Q [2];:=0; t lt; 2 * p do:=(1+A)*cos(A*t)+R*cos(1+A)*t;:=(1+A)*sin(A*t)+R*sin(1+A)*t;(trunc(x*20+300),trunc(y*20+300),2);:=t+0.01;;(l);.
Додаток Г
Код програми до завдання 5А5; Crt; n=10; kniga=record, Nazvanie, Izdatel: string [20] ;: integer;: real ;; a: array [1..n] of kniga;: byte;: string;: string;: string;: real;: integer ;; i:=1 to n doa [I] do ( Введіть учасника , I); (Avtor); ( Назва книги ); (Nazvanie); ( Видавництво ); (Izdatel); ( Рік видання ); (god); ( Кількість сторінок ); (Stranizy) ;;; ( laquo ; Введіть учасника цікавить книги ); (avt); i:=1 to n doa [I] doavtor=avt then writeln (avtor, laquo; , Nazvanie, raquo ;, , izdatel, , god, г. , stranizy, стр. ) ;; ( Книга з найбільшим кол-ом сторінок );:=0; i:=1 to n doa [I] dostranizy gt; max then begin:=stranizy; :=Nazvanie ;; (Naz, , max, стр. ) ;; ( Введіть учасника цікавить книги ); (avt); ( Вкажіть рік видання ); (g) ; ( Вкажіть Видавництво ); (izd); i:=1 to n doa [I] do (avt=avtor) and (g=god) and (izd=Izdatel) then writeln ( Книга raquo ;, Nazvanie, raquo ;, , stranizy, стр. ) ;;.
