Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
GrAnTz
0 / 0 / 0
Регистрация: 21.11.2013
Сообщений: 2
1

Необходимо соединить два файла pas

09.12.2013, 19:04. Просмотров 300. Ответов 0
Метки нет (Все метки)

Всем привет, помогите пожалуйста соединить два файла.

Первая работа.
Кликните здесь для просмотра всего текста
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
uses crt, graph;
var kl:char;
gd, gm,b, i, j, k, Size, x, y, Xmax, Ymax:integer;
begin
gd:=detect;
initgraph(gd, gm, '');
setbkcolor(blue);
 
 
setcolor(8);
moveto(0,480);
linerel(640,-150);
linerel(0,-150);
linerel(-640,150);
linerel(0,150);
setfillstyle(1,8);
floodfill(637,300,8);
 
setcolor(2);
Moveto(640,480);
linerel(0,-150);
linerel(-640,150);
linerel(640,0);
setfillstyle(1,2);
floodfill(639,479,2);
 
setcolor(3);
moveto(0,0);
linerel(0,330);
linerel(640,-150);
linerel(0,-180);
linerel(-640,0);
setfillstyle(1,3);
floodfill(100,300,3);
 
setcolor(14);
circle( 50,50,40);
setfillstyle(1,14);
floodfill(50,50,14);
 
setcolor(7);
{TYT}
setcolor(7);
bar3d(160,220,180,320,5,topon);
setfillstyle(1,7);
floodfill(160,225,7);
 
setcolor(7);    {Svetofor}
moveto(120,100);
Linerel(50,25);
Linerel(50,-25);
Linerel(-50,-25);
Linerel(-50,25);
setfillstyle(1,7);
linerel(0,120);
linerel(50,25);
linerel(50,-25);
linerel(0,-120);
 
moveto(170,125);
linerel(0,120);
setfillstyle(1,7);
floodfill(173,245,7);
 
 
circle(140,130,15);
circle(140,170,15);
circle(140,210,15);
circle(200,130,15);
circle(200,170,15);
circle(200,210,15);
 
b:=0;
repeat;
if (b=0)or(b=1) then begin
                     setfillstyle(1, red);
                     floodfill(140, 130, 7);
                     setfillstyle(1, green);
                      floodfill(200, 210, 7);
                    { floodfill(200, 210, 7); }
                     delay(1000);
                     end
                else begin
                     setfillstyle(1,8);
                     floodfill(140, 130, 7);
                       floodfill(200, 210, 7)
                    { floodfill(140, 130, 7);}
                     end;
                     if b=1 then begin
            setfillstyle(1, yellow);
            floodfill(140, 170, 7);
            floodfill(200, 170, 7);
            delay(1000);
            end
       else begin
            setfillstyle(1,8);
            floodfill(140, 170, 7);
            floodfill(200, 170, 7);
            end;
if b=2 then begin
            setfillstyle(1, green);
            floodfill(140, 210, 7);
             setfillstyle(1, red);
             floodfill(200, 130, 7);
          {  floodfill(200, 210, 7); }
            delay(1000);
           { for i:=1 to 3 do begin
            setfillstyle(1, green);
            floodfill(140, 210, 7);
            delay(500);}
            setfillstyle(1,8);
            floodfill(140, 210, 7);
          {  floodfill(140, 210, 7);}
              floodfill(200, 130, 7);
 
            delay(500);
            end;
 
if b=3 then begin
            setfillstyle(1, yellow);
            floodfill(140, 170, 7);
             floodfill(200, 170, 7);
            delay(1000);
            setfillstyle(1,8);
            floodfill(140, 170, 7);
             floodfill(200, 170, 7);
            end;
            b:=b+1;
if b mod 4 = 0 then b:=0;
until
 keypressed;
 
 
 
readln;
end.
end;
readln;
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
program grantushka;
uses graph, crt;
var gd, gm, i, j, k, size, x, y, Xmax, Ymax :integer;
p1, p2: pointer;
begin
gd:=VGA; gm:=2; initgraph(gd, gm, '  ');
size:=imagesize (0,0,20,100);
setlinestyle(0,0,3);
pieslice(10,10,0,360,10);
fillellipse(10,40,10,20);
line(8,60,0,100);
line(12,60,20,100);
pieslice(60,10,0,360,10);
fillellipse(60,40,10,20);
line(60,60,60,100);
 
getmem(p1,size);
getimage(0,0,20,100,p1^);
getmem(p2,size);
getimage(50,0,70,100,p2^);
x:=0;
y:=200;
cleardevice;
line(0,300,640,300);
 
repeat
putimage(x,y,p1^,1); delay(150);
putimage(x,y,p1^,1);
x:=x+10;
putimage(x,y,p2^,1); delay(150);
putimage(x,y,p2^,1);
x:=x+10
until x>getmaxX-20;
freemem(p1,size);
freemem(p2,Size);
closegraph
end.



В первой работе изображена дорога с светофором, на второй ходящий человек.(Посмотрите)

Необходимо, чтобы человек из 2 работы шел по дороге первой работы.
За помощь огромная благодарность)

Добавлено через 49 минут
ап. Помогите пожалуйста
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 19:04
Ответы с готовыми решениями:

Запуск PAS файла.
Можно ли сделать так, что при запуске PAS файла он сразу выполнялся. Если да,...

Соединить два массива в один, сохраняя упорядоченность.
Даны два вектора {xi}, {yi}, i=1, ..., 10, упорядоченные по возрастанию....

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
3)Даны два текстовых файла. Добавить в конец первого файла содержимое второго...

Заданы два числа A и B. Необходимо найти такое число C
Помогите, ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ. Заданы два числа A и B. Необходимо найти...

Заданы два текстовых файла. Дописать содержимое одного файла в конец другого
1.Заданы два текстовых файла.Дописать содержимое одного файла в конец другого...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 19:04

Даны два файла. Найти сумму элементов файла
Даны два файла целых чисел. Написать программу, которая находит сумму элементов...

Дан файл 6.тхт, содержащий текст. Необходимо сформировать два множества из гласных и согласных букв
Дан файл 6.txt, содержащий текст. Необходимо сформировать два множества из...

Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот.
Плиз прошу помочь с задачами: 1)Из введенного текста распечатать только те...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru