Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Использование модуля CRT
Автор: Гость 2.03.2007 5:17
Помогите написать программку. Вообще не имею понятия как ее написать...
Организовать вывод в окне заданного размера двух символов, "перепрыгивающих" друг через друга и двигающихся по горизонтали.
Автор: Bokul 2.03.2007 6:45
uses crt;
const
time=100;
procedure jump(r:byte; c:char; Var x,y:byte);//с помощью этой процедуры осуществляется прыжок
var i:byte;
begin
for i:=1 to 2*r do begin
gotoxy(x,y); write(' ');
inc(x);
if i<=r then dec(y)
else inc(y);
gotoxy(x,y); write©;
delay(time);
end;
end;
var x1,y1,x2,y2:byte;//координаты символов
begin
window(10,1,50,25);//наше окно
TextBackGround(blue);//фоновый цвет окна
clrscr;
x1:=3; y1:=10;//---\
x2:=6; y2:=10;//----\начальные координаты
repeat//прыгаем
jump(3,'a',x1,y1);
jump(3,'b',x2,y2);
until keypressed;//пока не надоест (нажимаем любую клавишу для выхода)
end.
Автор: volvo 2.03.2007 6:52
Bokul, а ты в Турбо Паскале это запускать пробовал? 
Попробуй, тебе понравится...
А в FPC меня порадовало поведение программы, когда символы допрыгивают до края окна ... 
Автор: Bokul 2.03.2007 7:00
Ну тоже самое что и в Fpc? Нет?
Им надоедает прыгать и они просто идут.. Все природно
Автор: volvo 2.03.2007 7:13
Попробуй вот это:
...
procedure jump(r:byte; c:char; Var x,y:byte);
var i:byte;
begin
for i:=1 to 2*r do begin
gotoxy(x,y); write(' ');
inc(x);
if x > lo(windmax) - lo(windmin) then begin
x := 1;
end;
if i<=r then dec(y)
else inc(y);
gotoxy(x,y); write©;
delay(time);
end;
end;
...
Добавлено через 1 мин.
P.S. А курсор можно погасить: http://forum.pascal.net.ru/index.php?s=&showtopic=6531&view=findpost&p=48355
Автор: Bokul 2.03.2007 7:50
Можно и так:
procedure jump(r:byte; c:char; Var x,y,dir:byte);
var i:byte; b:boolean;
begin
for i:=1 to 2*r do begin
gotoxy(x,y); write(' ');
if (x=lo(windmax)-lo(windmin)) or (x=0) then
dir:=-dir;
inc(x,dir);
if i<=r then dec(y)
else inc(y);
gotoxy(x,y); write©;
delay(time);
end;
end;
Добавлено через 17 мин.
Т.е. полный вариант выглядит так:
uses crt;
const
time=100;
procedure jump(r:byte; c:char; Var x,y,dir:byte);
var i:byte; b:boolean;
begin
for i:=1 to 2*r do begin
gotoxy(x,y); write(' ');
if (x=lo(windmax)-lo(windmin)) or (x=0) then
dir:=-dir;
inc(x,dir);
if i<=r then dec(y)
else inc(y);
gotoxy(x,y); write©;
delay(time);
end;
end;
var x1,y1,x2,y2:byte;
dir1,dir2:byte;
begin
window(10,1,50,25);
TextBackGround(blue);
clrscr;
dir1:=1; dir2:=1;
x1:=3; y1:=10;
x2:=6; y2:=10;
repeat
jump(5,'a',x1,y1,dir1);
jump(5,'b',x2,y2,dir2);
until keypressed;
end.
Автор: Гость 2.03.2007 19:12
Спасиба большое.
Я только одного не понял... что делает переменная dir?
Автор: volvo 2.03.2007 19:14
Направление движения... Если dir > 0 , то символы перемещаются слева направо, если dir < 0 - то справа налево...
Естественно, dir1 и dir2 должны быть одинаковыми, иначе получится бред...
Автор: -Кошка- 5.03.2007 20:42
А у меня такая же задача.Только жанные размера окна нужно ввести с клавиатуры. Как это организовать?Чтобы буквы перепрыгивали друг черег друга,но при любых данных размеров окна.
Автор: Алена 5.03.2007 20:48
Изменяем только основную программу, все остальное - как и было:
...
var
x1,y1,x2,y2:byte;
w, h: integer;
begin
{
w := 20;
h := 10;
}
write('ширина [10 .. 20] = '); readln(w); { можно добавить проверку введенных данных }
write('высота [10 .. 20] = '); readln(h);
window(10, 1, 10 + w, 1 + h);
TextBackGround(blue);
clrscr;
x1:=3; y1:=10;
x2:=6; y2:=10;
repeat
jump(3,'a',x1,y1);
jump(3,'b',x2,y2);
until keypressed;
end.
Автор: -Кошка- 6.03.2007 19:25
Спасибо. Попробую...
Автор: Гость 7.03.2007 1:07
А как например эта задача будет выглять в блок-схеме алгоритма?
Блок начала,блок ввода, 3 блока решения (процесс),блок решения(логический блок) и блок конец.
Так?
Автор: Гость 7.03.2007 1:48
Если кто-то может, то выложите здесь лучше блок-схему к этой программе и её подпрограмме...
Автор: klem4 7.03.2007 2:14
http://forum.pascal.net.ru/index.php?showtopic=4270
Пробовал ?
Автор: Yulianna 7.03.2007 20:16
А как создать программу,чтоб двигались два символа таким образом: чтоб один символ погасал,а другой появлялся и так они чередовались по всему размеру окна, двигаясь по горизонтали. Подскажите пожалуйста.
Автор: Zzzz... 7.03.2007 21:17
Ты должна удалять и рисовать символы по-переменно.....
Автор: volvo 7.03.2007 22:13
Yulianna, это что, для всей группы задания? Так и будет продолжаться? Тебе привели несколько решений, ты даже не соизволила отметиться в теме, рассказать, подошли ли они, только все время задаешь новые вопросы... Тут, извини, не роботы, которым все равно, кому-то подходит, то что они делают, или нет... 
Автор: Zzzz... 7.03.2007 23:25
Ну вот такой сойдёт???
uses crt;
var
a,b:char;
i,x1,x2:integer;
begin
clrscr;
a:='*';
b:='@';
x1:=1;
x2:=2;
for i:=0 to 38 do
begin
x1:=x2+1;
delay(100);
clrscr;
gotoxy(x1,1);
write(a);
x2:=x1+1;
delay(100);
clrscr;
gotoxy(x2,1);
write(b);
end;
for i:=38 downto 0 do
begin
x1:=x2-1;
delay(100);
clrscr;
gotoxy(x1,1);
write(a);
x2:=x1-1;
delay(100);
clrscr;
gotoxy(x2,1);
write(b);
end;
end.
Автор: Yulianna 8.03.2007 4:54
volvo,это одно моё задание. Я только учусь программированию на Паскале,поэтому не совсем пока разбераюсь. Спасибо, что вы помогаете. Просто то, что делаю я в последнее время постоянно не нравится преподавателю-вот только поэтому я начала спрашивать здесь. Извини, конечно, если получается что я задаю вопросы. Больше этого делать не буду. пасибо за помощь!