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

[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.

[klem4]

вот, извращение жестокое, но что-то интересно стало нарисовать..
кривовато конечно, но если подправить цифры, то будет нормально.

Код

uses crt;
var i:integer;
begin
  clrscr;
  gotoxy(1,1);
  for i:=1 to 80 do
   write('*');
  writeln;
  writeln(' Programma : zastavka');
  writeln(' FIO : klem4 ');
  writeln(' Data : segodna ');
  gotoxy(1,1);
  for i:=1 to 48 do
   writeln('*');
  gotoxy(80,1);
  for i:=2 to 48 do
   writeln('*');
 gotoxy(1,48);
 for i:=1 to 80 do
  write('*');
 gotoxy(80,1);
 for i:=1 to 48 do
  begin
     gotoxy(80,i);
     writeln('*');
  end;
 delay(3000);
end.

предупреждяю , это антинаучный метод

Сообщение отредактировано: klem4 - 23.03.2005 9:00