alarm programı
uses crt;
var a,b,c,i,e,f,d,g:integer; begin clrscr; textcolor(red); textbackground(yellow); writeln('alarm satini gir');readln(e); writeln('alrm ?alacak dakikay? gir');readln(f); writeln('alar?m ?alacak saniyeyi gir');readln(g); for a:=0 to 23 do begin for b:=0 to 59 do begin for c:=0 to 59 do begin for d:=0 to 60 do begin gotoxy(37,15);writeln(a,':',b,':',c,':',d); delay(1900); clrscr; textbackground(c); if (a=e)and (b=f)and(c=g) then begin repeat for i:=400 to 700 do begin sound(i); delay(3); end; nosound; delay(1000); until keypressed; end;end;end; end;end; readln; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 13:11 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.