Дорисовать блок схему
02.03.2014, 16:44. Показов 448. Ответов 0
Всем привет. народ прошу вас небольшой помощи. у меня почти готовая рабочая программа. Нужно было нарисовать блок схемку в паскаль з использованием модуля графики и подключаемого модуля (unit) у меня все написано - и модуль и программа, ничего не нужно переделывать, но я не могу дорисовать пару линий в программе. Я всегда путаюсь с координатами. Помогите плиз дорисовать пару линий . P.S. блок схемка на картинке. вот код модуля:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| unit ar3;
interface
procedure romb(x,y:integer);
procedure kvadrat(x,y:integer);
procedure lin(x,y:integer);
implementation
uses
crt,graph;
procedure write_k(x,y:integer);
begin
setcolor(white);
line(x,y,x+90,y);
line(x+90,y+20,x,y+20);
arc(x,y+10,90,270,10);
arc(x+90,y+10,270,90,10);
end;
procedure vvid(x,y:integer);
begin
line(x,y+50,x+90,y+50);
line(x-20,y+70,x+70,y+70);
line(x,y+50,x-20,y+70);
line(x+90,y+50,x+70,y+70);
end;
procedure romb(x,y:integer);
begin
line(x+45,y+100,x,y+120);
line(x+45,y+100,x+90,y+120);
line(x+45,y+140,x,y+120);
line(x+45,y+140,x+90,y+120);
end;
procedure kvadrat(x,y:integer);
begin
bar(x,y,x+150,y+30);
end;
procedure lin(x,y:integer);
begin
bar(x,y,x-80,y);
end;
End. |
|
и программы:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
| uses
crt,graph,ar3;
var
driver,mode:integer;
x,y, x0,y0:integer;
k:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
x0:=275;
y0:=20;
write_k(x0,y0);
write_k(x0,y0+420);
vvid(x0,y0);
vvid(x0,y0+340);
romb(x0,y0+15);
kvadrat(x0-150,y0+160);
romb(x0+120,y0+50);
OutTextXY(x0+140,y0+165,'2<=x<8');
kvadrat(x0+90,y0+220);
romb(x0+240,y0+170);
OutTextXY(x0+270,y0+285,'x>=8');
kvadrat(x0+200,y0+330);
line(x0+45,y0+49,x0+45,y+50);
line(x0+45,y0+70,x0+45,y+135);
lin(x0,y0+135);
line(x0-80,155,x0-80,180);
lin(x0,y0-110);
lin(x0+166,y0+135);
line(x0+165,y0+149,x0+165,y0+135);
line(x0+165,y0+220,x0+165,y0+190);
lin(x0+290,y0+170);
line(370,400,300,200);
OutTextxy(x0+10,y0+10,'Pochatok');
OutTextxy(x0+10,y0+430,'Kinec');
OuttextXY(x0+30,y0+55,'x,y');
OuttextXY(x0+20,y0+130,'0<=x<2');
OuttextXY(x0+30,y0+395,'y');
for k:=1 to 1 do
setcolor(o);
OutTextXY(x0-125,y0+170,'y=x*sqrt(5.4-x)');
OutTextXY(x0+90,y0+220,'y=arctg*sqrt(x))');
OutTextXY(x0+200,y0+340,'ln(abs(1)');
readln;
closegraph;
end. |
|
0
|
(
