write ('Курсова робота');
gotoxy (19,11);
write ('з дисципліни інформатика і програмування ');
gotoxy (17,12);
write ('на тему створення прикладного програмного забезпечення ');
gotoxy (22,13);
write ('в середовищі програмування Turbo Pascal ');
gotoxy (45,15);
write ('Роботу виконала: студентка');
gotoxy (45,16);
write ('_____ курсу групи ______');
gotoxy (45,17);
write ('ПІБ);
gotoxy (45,18);
write ('Роботу перевірив:');
gotoxy (45,19);
write ('викладач кафедри ПІ');
gotoxy (45,20);
write (ПІБ препода. ');
readkey;
end;
{Процедура екранна форма меню}
procedure Menu;
begin
TextBackGround (white); {тут можеш міняти кольори}
TextColor (black);
Clrscr;
x1: = 4;
x2: = 76;
y1: = 4;
y2: = 21;
c1: = chr (205);
c2: = chr (201);
c3: = chr (187);
c4: = chr (186);
c5: = chr (200);
c6: = chr (188);
yf: = 10;
gotoxy (23, yf);
writeln ('1. "Розрахувати довжину середньої лінії трапеції" ');
yf: = yf +1;
gotoxy (23, yf);
writeln ('2. "Пронумерувати матрицю по її другий нормі "');
yf: = yf +1;
gotoxy (23, yf);
writeln ('3. "Вихід" ');
yf: = yf +1;
gotoxy (23, yf);
gotoxy (23, yf);
writeln;
yf: = yf +1;
gotoxy (23, yf);
writeln ('Введіть номер завдання для виконання (1-3) ');
yf: = yf +19;
gotoxy (23, yf);
writeln;
end;
{************* 1 zadanie ********************}
procedure zadanie1;
label1;
var
x1, x2, x3, x4: integer;
y1, y2, y3, y4: integer;
q: array [1 .. 4] of integer;
k: array [1 .. 4] of integer;
l: array [1 .. 4] of integer;
z, a, i: integer;
Dlin1, Dlin2, Dlin3: real;
Begin
1:;
ClrScr;
Writeln ('Введіть координати точки A (x, y)');
Readln (x1, y1);
Writeln ('Введіть координати точки b (x, y ');
Readln) x2, y2);
Writeln ('Введіть координати точки C (x, y) ');
Readln (x3, y3);
Writeln ('Введіть координати точки D (x, y) ');
Readln (x4, y4);
K [1]: = x2-x1;
K [2]: = x3-x2;
K [3]: = x4-x3;
K [4]: ​​= x1-x4;
L [1]: = y2-y1;
L [2]: = y3-y2;
L [3]: = y4-y3;
L [4]: ​​= y1-y4;
Z: = 0;
A: = 0;
For i: = 1 to 4 do
Begin
If k [i] = 0 then
Z: = z +1;
End;
If z> 2 then
Begin
Writeln ('неправильно задані координати');
Goto 1;
End;
For i: = 1 to 4 do
Begin
If l [i] = 0 then
a: = a +1;
end;
if a> 2 then
begin
writeln ('неправильно задані координати');
Goto 1;
End;
q [1]: = k [1] * l [3];
q [2]: = k3 * l [1];
q [3]: = k [2] * l [4];
q [4]: ​​= k [4] * l [2];
if q [1] = q [2] then
begin
if q [3] = q [4] then
begin
writeln ('неправильно введені координати!');
readln;
Goto 1;
End
Else
Writeln ('координати введені правильно!');
End
Else
Begin
If q [3] = q [4] then
Writeln ('неправильно введені координати!');
Readln;
Goto 1;
End;
End;
Dlin1: = abs (sqrt (sqr (x2-x1) + sqr (y2-y1)));
Dlin2: = abs) sqrt (sqr (x3-x4) + sqr (y3-y4)));
Dlin3: = (dlin1 + dlin2)/2;
Writeln ('Довжина середньої лінії трапеції ABCD =', dlin3: 10:2);
end;
В В
{END OF ZADANIE1 *******************************************}
{2 zadanie ***********************************************}
{Процедура завдання № 2}
procedure Zadanie2;
const
n = 5;
var
i, k, x1, y1: integer;
Max: array [1 .. n] of real;
A: array [1 .. n, 1 .. n] of real;
B: array [1 .. n, 1 .. n] of real;
begin
clrscr;
x1: = 4;
y1: = 4;
writeln ('Vvod dannix');
for i: = 1 to n do
begin
for k: = 1 to n do
begin
Gotoxy (x1, y1);
readln (a [i, k]);
x1: = x1 +8;
end;
x1: = 4;
y1: = y1 +1;
end;
Gotoxy (x...
