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

[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('x');
  writeln('FIO : ');
  delay(3000);
end.

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

[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

[Svetka]

вот, извращение жестокое, но что-то интересно стало нарисовать..

там тока не появляетца......фамилии даты и программы ваще не видно........окошко нужно маленькое.....

[APAL]

Код

Procedure Zastavka;
Begin
GoToXY(30,10);Write('**********************');
GoToXY(30,11);Write('*      Программа     *');
GoToXY(30,12);Write('*      Автор:ФИО     *');
GoToXY(30,13);Write('*    Дата:11.03.05   *');
GoToXY(30,14);Write('**********************');
Deley(5000);
End;

[Svetka]

у мя такой код,я сделала так:

Код

program xxx;
uses crt;
var
I:integer;
begin
clrscr;
GotoXY(1,1);
Writeln ( '**********************' );
for I := 0 to 5 do begin
 GotoXY(1,I+2);
 Write ( '*' );
 GotoXY(22,I+2);
 Writeln ( '*' );
end;
GotoXY(1,8);
Writeln ( '**********************' );
gotoXY(3,3);
writeln('Программа-заставка ');
gotoXY(3,5);
writeln(Автор:Света');
gotoXY(3,7);
writeln('Дата :11.03.05');
delay(60000);
clrscr;

дальше нужно вставить этот код

Код

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.

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

[Altair]

извините за оффтоп - (если модератор оставит)
личное наблюдение за год- чем проще задача и неинтереснее, тем больше в ней ответов ...

[klem4]

Код

procedure zastavka;
begin
...
end;
...
...
Begin (основной программы)
zastavka;
дальше текст основной программы
...
end.

программа твоя ктати тоже не работает ;)

[Svetka]

не...прога работает...я проверяла;)

[AlienEmperor]

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

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

[Svetka]

мне пишет ошибку Error in statement

[Svetka]

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

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

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

[FreeMan]

мне пишет ошибку Error in statement

Мне тоже

[Svetka]

Мне тоже            

как же сделать-то......

[klem4]

Ты пробовала отдельно запускать свою программу, без заставки ??? у тебя там есть необъявленные переменные, она не будет работать.

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

[Svetka]

Ты пробовала отдельно запускать свою программу, без заставки ??? у тебя там есть необъявленные переменные, она не будет работать.

всё уже работает,там вместо maxA,maxB надо просто заменить max_A,max_B =)

[Svetka]

ну помогите 2 проги соедить

[volvo]

Svetka, ну ведь уже все сделали ...

Только там по-русски напиши ...