Пожалуйста помогите с решением задач на строки(Delphi)!

[Evgeni1993]

Помогите пожалуйста со следующими задачами(Console application):
1) В левом верхнем углу находиться какая-то строка. Строка бежит влево до конца экрана, пока все буквы не исчезнут.
2) На одной строке слева(вначале строки) написано какое-нибудь слово и справа(в конце строки) тоже написано какое-нибудь слово. Они двигаются навстречу друг другу. На середине строки правое слово перекрывает левое и так до конца экрана.
3) Из текста, расположенного в верхней строке, случайным образом начинают падать буквы.
Взаранее Огромное Спасибо!

[Arigato]

Все задачки на изменение позиции текстового курсора. Вот, пример, как можно изменить эту позицию:

{$APPTYPE CONSOLE}

uses
  Windows;

procedure GotoXY (X, Y: Byte);
// Установить позицию курсора:
var hConsoleOutput: THandle;
    Coord: TCoord;
begin
  hConsoleOutput := GetStdHandle (STD_OUTPUT_HANDLE);
  Coord.X := X - 1;
  Coord.Y := Y - 1;
  SetConsoleCursorPosition (hConsoleOutput, Coord);
end; {proc GotoXY}

begin
  GoToXY (10, 10);
  Write ('A');
  GoToXY (20, 12);
  Write ('B');
  ReadLn;
end.

[Evgeni1993]

Сообщение от Arigato

Все задачки на изменение позиции текстового курсора. Вот, пример, как можно изменить эту позицию:

{$APPTYPE CONSOLE}

uses
  Windows;

procedure GotoXY (X, Y: Byte);
// Установить позицию курсора:
var hConsoleOutput: THandle;
    Coord: TCoord;
begin
  hConsoleOutput := GetStdHandle (STD_OUTPUT_HANDLE);
  Coord.X := X - 1;
  Coord.Y := Y - 1;
  SetConsoleCursorPosition (hConsoleOutput, Coord);
end; {proc GotoXY}

begin
  GoToXY (10, 10);
  Write ('A');
  GoToXY (20, 12);
  Write ('B');
  ReadLn;
end.

Спасибо! А нельзя сделать стандартными операциями над строками (просто мы еще не проходили координаты в delphi в школе), я конечно поробую но не уверен что получиться.

[Evgeni1993]

И еще вопрос. Сейчас делаю задачку(тоже на строки). Суть задачи:

Ввести строку, которая состоит из чисел, разделенных запятой или одним пробелом. Если введено неверно, то вывести сообщение об ошибке, если верно то вывести эту строку.

К примеру, верно: "-234 213,23,+4,56" "2123,-123,+23" "135 1" "3333";
неверно: "22+324,23 234" - так как 22+324 нечисло.
Вот эту проверку с расположением плюсов и минусов у меня и не получаеться сделать (тоесть если плюс или минус стоят после запятой или пробела(",+23" ",-2" " +23" " -2") - тогда все в порядке, а если между числами, то это уже разность или сумма, тоесть нечисло, следовательно неверно. Помогите составить проверку.

[Arigato]

Можно. Первые 2 задачи можно сделать, если длинна строки будет = ширине экрана (80 символов по умолчанию). Тогда при каждой итерации придётся делать очистку экрана (а это, кстати, тоже стандартно не заложено).
3-я задача аналогично, но сложнее.
Проще с позиционирование.
А ещё лучше узнать у препода, что он хотел, т.к. стандартно строковыми операциями в консоли такое сделать сложно.

[Arigato]

И еще вопрос. Сейчас делаю задачку(тоже на строки).

Решается организацией конечного автомата и 1 проходом.

[Evgeni1993]

Ничего не понял)) Эту проверку точно нужно сделать простыми операциями. Например как я сделал эту(проверяет чтобы строка состояла тока из цифр, плюса и минуса):

function number1(S:string;i:integer):boolean ;
var k : integer;
begin
k:=ord(S[i]);
if (k=48)or(k=49)or(k=50)or(k=51)or(k= 52)or(k=53)or
(k=54)or(k=55)or(k=56)or(k=57)or(k= 43)or(k=45) then number:=true
else number:=false;
end;