Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
GrAnTz
0 / 0 / 0
Регистрация: 21.11.2013
Сообщений: 2
#1

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

09.12.2013, 19:04. Просмотров 291. Ответов 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 (Turbo Pascal):

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

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

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

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

Заданы два текстовых файла. Дописать содержимое одного файла в конец другого - Turbo Pascal
1.Заданы два текстовых файла.Дописать содержимое одного файла в конец другого 2.В файле содержится информация об учениках класса по такой...

Даны два файла. Найти сумму элементов файла - Turbo Pascal
Даны два файла целых чисел. Написать программу, которая находит сумму элементов файла f1, больших "3.89", и элементов файла f2, больших...

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

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

Создать два новых файла, первый из которых содержит элементы исходного файла с четными номерами, а второй — с нечетными. - Pascal
Дан файл вещественных чисел с именем Name1. Создать два новых файла с именами Name2 и Name3, первый из которых содержит элементы исходного...

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

Необходимо записать массив чисел из текстового файла в нетипизированный файл - Turbo Pascal
Дан текстовый файл, который содержит массив целых чисел. Необходимо записать массив чисел из текстового файла в нетипизированный файл, а...


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

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

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