BIOS Tarihini Gosteren Program Program BIOS_Tarihi; var n : byte; m : array of char absolute $F000:$FFF5; begin writeln ; write ; for n:=1 to 10 do if (m > #46) and (m < #59) then Write ; writeln ; end. Not:Bunu Ben Dogru Durust Çalıştıramadım.. Sonra Svmeyin Bu bozuk diye. - Bilginin Adresinden TurkCom. Org -

Dos Ortamında Dizin Değiştirme uses crt, dos; var s:string; begin clrscr; write ; readln ; chdir ; if ioresult<>0 then writeln ; end. - Bilginin Adresinden TurkCom. Org -

Girilen Mesajı Tersten Yazdıran Program USES CRT; Var Mesaj:String; i:Byte; Begin Clrscr; Write ;Readln ; Clrscr; For i :=Length Downto 1 do Write(Copy(Mesaj, i,1)); Readln; End. - Bilginin Adresinden TurkCom. Org -

DOS ortamında Dosya Silmek uses crt, dos; var F: file; Ch: Char; begin Assign(F, ParamStr(1)); Reset ; if IOResult <> 0 then Writeln('Bulunamadi ', ParamStr(1)) else begin Close ; Write('Silindi ', ParamStr(1), '? '); Readln ; if UpCase = 'Y' then Erase ; end; end. - Bilginin Adresinden TurkCom. Org -

DOS Ortamında dizin oluşturma. uses crt, dos; var s:string; begin clrscr; write ; readln ; mkdir ; if ioresult<>0 then writeln ; end. - Bilginin Adresinden TurkCom. Org -

Çarpım Tablosu Programı Uses crt; VAR I, J, K, SAT : BYTE; TUS : CHAR; BEGIN CLRSCR; K:=5; SAT:=2; GOTOXY (30,1); WRITE ; FOR I:=1 TO 10 DO BEGIN FOR J:=1 TO 10 DO BEGIN GOTOXY ; WRITE(I:2," X", J:2," = ", I J:3); END; K:=K+14; IF I=5 THEN BEGIN K:=5; SAT:=13; END; TUS:=READKEY; END. - Bilginin Adresinden TurkCom. Org -