Версия для печати темы

Автор: ВГТУ 15.03.2006 21:31

Помогите, плиз, решить задачку:
Символы строки разлетаются в разные стороны.

Автор: Ozzя 15.03.2006 21:39

http://pascal.sources.ru/demo/intr01.htm

Автор: Гость 15.03.2006 21:42

Нет, мне надо, чтобы именно символы разлитались и с использованием CRT.

Автор: volvo 15.03.2006 21:45

Ты ж не уточняешь, ЧТО ИМЕННО тебе надо. "Точнее некуда", были твои слова?

Что ж ты хочешь? Какой вопрос, такой и ответ.
Или уточняй, или иди на google.com , ищи "форум телепатов"...

Автор: Гость 15.03.2006 21:53

Ну это не ко мне, а к тому, кто давай задание.
Ту теперь вроде все понятно.

Автор: klem4 15.03.2006 21:58

Вобщем что-то вроде этого тебе нужно ?

uses crt;
const

   cs = 'Good Bye, klem4 !';
   mx = 79 div 2;
   my = 24 div 2;

   delta : array [0..1] of shortint = (1, -1);

type

   TSign = record
      x, y  : word;
      ch    : char;
      dx,dy : shortint;
   end;

var

  i, len : byte;

  s : array[1..length(cs)] of TSign;

begin

   clrscr;

   randomize;

   len := length(cs);

   for i := 1 to len do
    with s[i] do begin
       ch := cs[i];
       x  := mx + i - 1 - len div 2;
       y  := my;
       dx := delta[Random(2)];
       dy := delta[Random(2)];
       gotoxy(x,y);
       write(ch);
    end;

   repeat
      delay(1000);
      clrscr;
      for i := 1 to len do
       with s[i] do begin
          if (x + dx <= 79) and
             (x + dx >= 1)  and
             (y + dy <= 24) and
             (y + dy >= 1) then begin
             inc(x, dx);
             inc(y, dy);
          end;
          gotoxy(x, y);
          write(ch);
       end;
   until keypressed;

end.

Автор: Гость 15.03.2006 22:09

ch := cs[i];

121 Invalid qualifier

Автор: volvo 15.03.2006 22:11

uses crt;
const

   _cs = 'Good Bye, klem4 !';
   cs: string = _cs;
   mx = 79 div 2;
   my = 24 div 2;

   delta : array [0..1] of shortint = (1, -1);

type

   TSign = record
      x, y  : word;
      ch    : char;
      dx,dy : shortint;
   end;

var

  i, len : byte;

  s : array[1..length(_cs)] of TSign;

begin
...