Помогите новичку решить простенькую задачку) Опции

[SpeedFire]

Задача: Напишите программу, которая выдает сообщение в текстовое окно.Координаты окна и координаты для сообщения вводиться с клавиатуры.Цвет экрана и цвет символов задайте с помощью датчика случайных чисел.

program okno;
uses Crt;
var
A, B, X, Y, K, L:integer;
begin
TextColor(A);
TextBackGround(B);
ClrScr;
Randomize;
A:=Random(16);
B:=Random(16);
writeln('Введите координаты окна');
readln(X, Y);
Window(X, Y);
writeln('Введите координаты сообщения');
GotoXY(K, L);
read(K, L);
writeln ('Задача решена');
end.

Пишу в программе Pascal ABC..В конце программы я уверен написано совсем не то,что нужно,там я совсем запутался...Подскажите пожалуйста!



Сообщение отредактировано: SpeedFire - 17.09.2011 13:22

[IUnknown]

Так все-таки, PascalABC или FreePascal? С FPC проблем как раз нет, тут все будет работать как положено:

uses Crt;
var
   X1, X2, Y1, Y2,
   pX1, pY1 : Integer;
begin
   ClrScr;
   write ('Введите координаты окна:');
   ReadLn (X1, Y1, X2, Y2);
   write ('Введите координаты сообщения:');
   ReadLn (PX1, PY1);

   Window (X1, Y1, X2, Y2); // Создаем окно
   Randomize;

   TextColor (Random (15) + 1); // Не черный цвет текста
   TextBackGround (Random (7) + 1); // Не черный цвет фона
   ClrScr; // Очищаем ОКНО

   GotoXY (X1, Y1); // и внутри окна выводим сообщение
   write ('Задача решена!');
   readln;
   Window (1, 1, 80, 25); // Восстанавливаем нормальное окно
end.

P.S. Откуда у тебя там SVN взялся? Ты откуда FPC качал?

Сообщение отредактировано: IUnknown - 17.09.2011 15:34