Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование / Курсовые / ЭВТ-1-Arcanoid / Arcanoid / Arcanoid / ARCSOUND
.PAS unit ArcSound;
interface
procedure Beep;
procedure Beep1;
procedure Beep2;
procedure Beep3;
implementation
uses CRT;
procedure Beep;
begin
Sound(1000); Delay(200); NoSound;
end;
procedure Beep1;
begin
Sound(50); Delay(500); NoSound;
end;
procedure Beep2;
begin
Sound(100); Delay(50); NoSound;
end;
procedure Beep3;
begin
Sound(300);Delay(2000);
Sound(400);Delay(500);
Sound(200);Delay(1000);
Sound(1000);Delay(2000);
Sound(400);Delay(2000);
NoSound;
end;
end.
interface
procedure Beep;
procedure Beep1;
procedure Beep2;
procedure Beep3;
implementation
uses CRT;
procedure Beep;
begin
Sound(1000); Delay(200); NoSound;
end;
procedure Beep1;
begin
Sound(50); Delay(500); NoSound;
end;
procedure Beep2;
begin
Sound(100); Delay(50); NoSound;
end;
procedure Beep3;
begin
Sound(300);Delay(2000);
Sound(400);Delay(500);
Sound(200);Delay(1000);
Sound(1000);Delay(2000);
Sound(400);Delay(2000);
NoSound;
end;
end.