Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
2 / 2 / 0
Регистрация: 11.12.2009
Сообщений: 23
1

Псевдографика в режиме Crt

11.12.2009, 20:35. Показов 3082. Ответов 2
Метки нет (Все метки)

пожалуйста,кому не сложно,помогите решить задачу
в окне заданного размера организовать вывод двух символов,"перепрыгивающих" друг друга и двигающихся по вертикали
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2009, 20:35
Ответы с готовыми решениями:

Елочка в текстовом режиме CRT
народ, тут такой геморой... Нужно в turbo paskal с помощью трех подряд двумерных массивов...

Псевдографика
вобщем на факультативе на завтра задали задание надо с помощью writeln сделать так,чтобы в паскале...

Псевдографика
Нужно создать таблицу размерности n*m с помощью псевдографики. Помогите пожалуйста

Псевдографика в СИ
Доброго времени суток! Моя проблема в составлении алгоритма для данной задачи: Разработка...

2
1 / 1 / 2
Регистрация: 19.10.2009
Сообщений: 44
16.12.2009, 16:10 2
Пожалуйста,помогите с этой задачей,у меня почти такая же
Здесь ведь нужно сначала сделать рамку(координаты вводит пользователь),потом выводить символы и затирать их под цвет фона,или как?
И как сделать чтобы символы не выходили за пределы рамки????
0
1 / 1 / 2
Регистрация: 19.10.2009
Сообщений: 44
21.12.2009, 19:38 3
Лучший ответ Сообщение было отмечено kavayka как решение

Решение

Воть
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
uses crt;
var
i,n,a,b,k,x,y,x1,x2,y1,y2:integer;
flag:boolean;
 
procedure de;
begin
for i:=1 to 8000 do for k:=1 to 100 do for n:=1 to 100 do;
end;
 
begin
textbackground(4);
textcolor(10);
clrscr;
readln(x1,y1,x2,y2);
window(x1,y1,x2,y2);
textbackground(0);
clrscr;
x:=1; y:=1;
a:=random(1000);
b:=random(1000);
flag:=true;
repeat
repeat
gotoxy(x,y);
if flag
then
begin
writeln(a);
inc(y);
gotoxy(x,y);
writeln(b);
end
else
begin
writeln(b);
inc(y);
 
gotoxy(x,y);
writeln(a);
end;
inc(y);
if flag then flag:=false else flag:=true;
de;
clrscr;
until y>=y2-y1;
inc(x);
y:=1;
until x=x2-x1;
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2009, 19:38

Псевдографика на С++
По условию лабораторной работы требуется нарисовать вот это в псевдографике, на языке С++. У меня...

Псевдографика
Нужно с помощью ASCII кода нарисовать прямоугольник заштрихованый горизонтальными линиями. ...

псевдографика в С++
Доброго вечера. пожалуйста помогите разобраться, и написать коды для следующих программ на С++ ...

Псевдографика
Как создавать рисунки из слешей и других значков на Delphi? Допустим, дана задача построить рисунок...

Псевдографика
Добрый день Может кто-нибудь подсказать, чем пользуются для создания псевдо-графических диалогов в...

псевдографика
Парни памагити!!!


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

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

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