процедура заставка Опции

[Svetka]

помогите сделать окошко типа
*********************
Программа
Автор:ФИО
Дата:11.03.05





*********************
(и по горизонтали и по вертикали тоже звёздочки)
эта заставка выводица на очищенный экран удерживается там 5 секунд и появляется решение задачи
решение:

Код

Program xxx;
uses crt;
type
matrica=array[1..15,1..13] of integer;
var
A,B:matrica;
maxA,maxB:integer;
procedure input (var d:matrica;n,k:integer);
var
i,j:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to k do
d[i,j]:=random(100);
End;
End;
procedure output (var d:matrica;n,k:integer);
var
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to k do
Write(d[i,j]:4);
writeln;
End;
End;
function max_el(d:matrica;n,k:integer):integer;
var
i,j,max:integer;
begin
max:=d[1,1];
for i:=1 to n do begin
for j:=1 to k do
if d[i,j]>max then
max:=d[i,j];
max_el:=max;
End;
End;
begin
input(a,15,13);
input(b,5,7);
Writeln('matrica a');
output(a,15,13);
Writeln('matrica b');
output(b,5,7);
Readkey;
max_A:=max_el(a,15,13);
max_B:=max_el(b,5,7);
Writeln('max_A=',max_A);
Writeln('max_B=',max_B);
Readln;
End.

[AlienEmperor]

А чего париться - то ? Надо создать свой объект TWindow, выделить под него память сделать процедуры show/hide... Записывать данные непосрдественно в видеопамять Mode $03 - и все....

P.S. да и еще: сделать свой TApplication, чтоб уж совсем хорошо было... С перекрыванием окон, событиями и т.д. и т.п.

[Svetka]

А чего париться - то ? Надо создать свой объект TWindow, выделить под него память сделать процедуры show/hide... Записывать данные непосрдественно в видеопамять Mode $03 - и все....

P.S. да и еще: сделать свой TApplication, чтоб уж совсем хорошо было... С перекрыванием окон, событиями и т.д. и т.п.

я такого не проходила))