uses Graph,crt;
var
  Gd, Gm,x,y: Integer;
  Radius: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
repeat
randomize;
x:=random(640);
y:=random(460);
setcolor(x*y);
outtextxy(x,y,'RANDOMIZE');
  outtextxy(x,y,'_________я');
until keypressed;
Readln;
  CloseGraph;
end.

uses crt,graph,graph2
;
var a:char;
b:integer;
begin
repeat
begin
read(a);
b:=b+1;if b=16 then b:=1;
textattr:=b;
write(chr(14),chr(14),chr(14),chr(14),chr(14),chr(14),chr(14));
if a=chr(49) then begin
sound(100);
delay(30000);
nosound;
end;
if a=chr(50) then begin
sound(300);
delay(30000);
nosound;
end;

if a=chr(51) then begin
sound(500);
delay(30000);
nosound;
end;

if a=chr(52) then begin
sound(700);
delay(30000);
nosound;
end;

if a=chr(53) then begin
sound(900);
delay(30000);
nosound;
end;

if a=chr(54) then begin
sound(1100);
delay(30000);
nosound;
end;
if a=chr(55) then begin
sound(1300);
delay(30000);
nosound;
end;
end;clrscr;
until a=chr(113);
opgr;
setcolor(2);
settextstyle(9,0,8);
setfillstyle(11,5);
floodfill(1,1,4);
outtextxy(100,100,'ACCA');
readkey;
closegr;
end.

unit graph2;

interface
procedure opgr;
procedure closegr;

implementation
uses graph;
procedure opgr;
var
  gd, gm: integer;
begin
  gd:=detect;
  gm:=0;
  initgraph(gd,gm,'');
  if graphresult<>0 then
  begin
    writeln('pomylka graficnogo regymu');
    readln;
    halt;
  end;
end;

procedure closegr;
begin
  closegraph;
  if graphresult<>0 then
  begin
    writeln('pomylka graficnogo regymu');
    readln;
    halt;
    end;
  end;
end.

To: R.A.
прикольно. но нужно чёнить интерестней

"Я канешна извиняюсь..." (с) А более полезного ничего не пробовали писать?

uses crt;
var s:integer;
begin
repeat
sound(1000);
delay(200);
until s=1;
end.

Ще буде.

Колись ще написав аркадну бродилку, та після переустановки віндовса вона загнулась.

Минулого року почав писать прогу, яка б автоматично будувала епюри в задачах з курсу опору матеріялів, поки вона почала будувати найпростіші епюри, то я сам навчився будувать їх майже автоматично .

ну давай будем ждать. заодно и вспомню немного среду

интерестно... в графическом режиме? или текстовом? ...

Звичайно в графічному, уявляю платформену бродилку в текстовому режимі
Тільки графа убита повністю, я пишу просто по приколу, коли мені нема чим зайнятись.

п.с. А як додати в повідомлення файл, бо текст програми займе багато місця.

To: R.A.




Судя по листунгу программы там что-то про СаусПарк