- •По курсовій роботі з дисципліни «Програмування» чдту 13.1281.007 пз
- •Постановка завдання: Скласти програмні комплекси мовами програмування Pascal та с для розв’язання та виконання поставлених завдань, згідно індивідуального варіанту:
- •1. Короткі теоретичні відомості
- •2.1 Розробка алгоритму розв’язання задачі 1
- •2.2 Розробка алгоритму розв’язання задачі 2
- •Розробка блок-схем інтерфейсу та розв’язання задач
- •3.1 Блок-схема інтерфейсу
- •3.3 Блок-схема до задачі 2
- •3.4 Блок-схема до підпрограми like
- •3.2 Блок-схема до підпрограми zah
- •Розробка програм розв‘язання задач мовами програмування паскаль та сі
- •Результати роботи програм розв’язання задач
- •Висновки
- •Список використаних джерел
3.3 Блок-схема до задачі 2
Початок
R,x1,x2,x3,x4,x5,y1,y2,y3,y4,y5
цілого
типу;
maxp,
maxs,minp,mins,s1,s2,s3,s4,d1,d2,d3,d4,d5,d6,p1,p2,p3,p4
maxp=0;
maxs=0; mins=1559; minp=1559;
d1=
d2=
d3=
A
A
s1=
s2=
s3=
s4=
s1>maxs
maxs=s1
s1<mins
mins=s1
p1=2∙(d1+d2)
s1=d1∙d2
B
d4=
d5=
d6=
p1=d1+d2+d3)/2;
p2=d5+d2+d4)/2;
p3=(d1+d5+d6)/2;
p4=(d4+d6+d3)/2;
s2>maxs
maxs=s2
B
C
nomermaxs=i
s1<mins Ні Так
mins=s1
B
s2<mins
mins=s2
s3>maxs
maxs=s3
s3<mins
mins=s3
s4>maxs
maxs=s4
s4<mins
mins=s4
Встановлення
кольору фону та кольору ліній
С
maxs=s3
Будування
кола
з центром у точці (320,240) радіусом R.
Будування
ліній :
1)від
(х1*10+320,у1*10+320) до (х2*10+320,у2*10+320);
2)від
(х1*10+320,у1*10+320) до (х3*10+320,у3*10+320);
3)від
(х2*10+320,у2*10+320) до (х3*10+320,у3*10+320);
maxs=s4
Будування
кола
з центром у точці (320,240) радіусом R.
Будування
ліній :
1)від
(х1*10+320,у1*10+320) до (х2*10+320,у2*10+320);
2)від
(х2*10+320,у2*10+320) до (х4*10+320,у4*10+320);
3)від
(х1*10+320,у1*10+320) до (х4*10+320,у4*10+320);
maxs=s2
Будування
кола
з центром у точці (320,240) радіусом R.
Будування
ліній :
1)від
(х2*10+320,у2*10+320) до (х3*10+320,у3*10+320);
2)від
(х2*10+320,у2*10+320) до (х4*10+320,у4*10+320);
3)від
(х3*10+320,у3*10+320) до (х4*10+320,у4*10+320);
D
D
Встановлення
кольору для меншого трикутника
mins=s1
Будування
ліній :
1)від
(х1*10+320,у1*10+320) до (х3*10+320,у3*10+320);
2) від
(х3*10+320,у3*10+320) до (х4*10+320,у4*10+320);
3) від
(х1*10+320,у1*10+320) до (х4*10+320,у4*10+320);
mins=s2
Будування
ліній :
1)від
(х2*10+320,у2*10+320) до (х3*10+320,у3*10+320);
2) від
(х2*10+320,у2*10+320) до (х4*10+320,у4*10+320);
3) від
(х3*10+320,у3*10+320) до (х4*10+320,у4*10+320);
mins=s3
Будування
ліній :
1)від
(х1*10+320,у1*10+320) до (х2*10+320,у2*10+320);
2) від
(х1*10+320,у1*10+320) до (х3*10+320,у3*10+320);
3) від
(х2*10+320,у2*10+320) до (х3*10+320,у3*10+320);
E
Кінець
виключення
графічного режиму
E
Будування
ліній :
1)від
(х1*10+320,у1*10+320) до (х2*10+320,у2*10+320);
2) від
(х2*10+320,у2*10+320) до (х4*10+320,у4*10+320);
3) від
(х1*10+320,у1*10+320) до (х4*10+320,у4*10+320);
d1=d2=d4=d6
mins=s4
Встановлення
кольору квадарат. Будування квадрата
з діагоналями від (х1,у1) до (х4,у4)
Очікування
натиснення будь-якої клавіші