bai tap phan 7

Program Tap_Tin_So_Nguyen;
Uses Crt;
Var
f : File Of Integer;
So : Integer;
a : Array[1..10] Of Integer;
Spt,i,j : Integer;
Filename : String[11];
Begin
ClrScr;
Writeln('NHAP SO LIEU CHO TAP TIN SONGUYEN.DAT');
Writeln('-------------------------------------');
Writeln;
Assign(f,'songuyen.dat');
ReWrite(f);
For i := 1 To 10 Do
Begin
Write('-So thu: ',i:2,' = ');
Readln(So);
Write(f,so);
End;
Close(f);
Spt := 0;
Reset(f);
While NOT EOF(f) Do
Begin
Spt := Spt + 1;
Read(f,so);
a[Spt] := so;
End;
Close(f);
For i := 1 To Spt -1 Do
For j := Spt Downto i + 1 Do
If a[j] < a[j-1] Then
Begin
So := a[j];
a[j] := a[j-1];
a[j-1] := So;
End;
Writeln;
Writeln('Sau khi sap xep: ');
For i := 1 To 10 Do
Write(a[i]:6);
Writeln;
Write(' Bam <Enter>... ');
Readln
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program Ghep_Tap_Tin;
Uses Crt;
Var
f1,f2,f3 : File Of Real;
i : Integer;
So : Real;
Ch : Char;
Begin
ClrScr;
Writeln('NHAP SO LIEU CHO TAP1.DAT');
Writeln('-------------------------');
Writeln;
Assign(f1,'TAP1.DAT');
Rewrite(f1);
i := 0;
Repeat
i := i + 1;
Write('-So thu: ',i:2,' = ');
Readln(So);
Write(f1,so);
Write(' Nhap nua ? (c/k) ');
Readln(Ch);
Until Upcase(Ch) ='K';
Close(f1);
ClrScr;
Writeln('NHAP SO LIEU CHO TAP2.DAT');
Writeln('-------------------------');
Writeln;
Assign(f2,'TAP2.DAT');
Rewrite(f2);
i := 0;
Repeat
i := i + 1;
Write('-So thu: ',i:2,' = ');
Readln(So);
Write(f2,so);
Write(' Nhap nua ? (c/k) ');
Readln(Ch);
Until Upcase(Ch) ='K';
Close(f2);
ClrScr;
Writeln('GHEP TAP1 va TAP2 thanh TAP3');
Writeln('----------------------------');
Writeln;
Assign(f3,'TAP3.DAT');
Rewrite(f3);
Reset(f1);
Reset(f2);
While NOT EOF(f1) Do
Begin
Read(f1,So);
Write(f3,So);
End;
While NOT EOF(f2) Do
Begin
Read(f2,so);
Write(f3,so);
End;
Reset(f3);
While NOT EOF(f3) Do
Begin
Read(f3,So);
Write(So :8:1);
End;
Close(f1);
Close(f2);
Close(f3);
Writeln;
Writeln;
Write(' Da ghep xong, Bam <Enter>...');
Readln;
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program So_tay_Dien_Tu;
Uses Crt;
Type
DienThoai = RECORD
HoTen : String[24];
Tel : LongInt;
Add : String;
End;
Var
f : File Of DienThoai;
Tam : DienThoai;
St : String;
TimThay : Boolean;
Begin
ClrScr;
Writeln('NHAP SO DIEN THOAI VA DIA CHI');
Writeln('-----------------------------');
Writeln;
Assign(f,'Telephon.dat');
Rewrite(f);
With tam Do
Repeat
Write('-Ho ten, bam (0> de ket thuc: ');
Readln(HoTen);
If HoTen <> '0' Then
Begin
Write('-So phone : ');
Readln(Tel);
Write('-Dia chi : ');
Readln(Add);
Write(f,tam);
End;
Until Hoten = '0';
Close(f);
ClrScr;
Writeln('TIM SO DIEN THOAI VA DIA CHI');
Writeln('----------------------------');
Writeln;
Write('-Ho ten nguoi muon tim: ');
Readln(St);
Reset(f);
TimThay := False;
While NOT EOF(f) Do
Begin
Read(f,Tam);
With Tam Do
If St = HoTen then
Begin
TimThay := True;
Writeln(HoTen);
Writeln('-So Telephone: ',Tel);
Writeln('-Dia chi : ',Add);
End;
End;
If Not TimThay Then
Writeln('Khong tim thay');
Close(f);
Writeln;
Write(' Bam <Enter>... ');
Readln
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program Nhap_Du_Lieu;
Uses Crt;
Type
HoSo = RECORD
Holot : String[17];
Ten : String[7];
Tuoi : 18..60;
ChucVu: String[20];
BacLuong : 300000..900000;
End;
Var
f : File Of HoSo;
Nv : HoSo;
ans : Char;
Begin
ClrScr;
Writeln('NHAP DU LIEU VAO TAP TIN LUONG.DAT');
Writeln('----------------------------------');
Writeln;
Assign(f,'LUONG.DAT');
Rewrite(f);
Repeat
With Nv Do
Begin
Write('-Ho lot: ');
Readln(Holot);
Write('-Ten : ');
Readln(Ten);
Write('-Tuoi : ');
Readln(tuoi);
Write('-Chuc vu : ');
Readln(ChucVu);
Write('-Bac luong: ');
Readln(BacLuong);
Write(f,Nv);
End;
ans := Readkey;
Until ans = #27;
Close(f);
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program Cap_Nhat_Du_Lieu;
Uses Crt;
Type
HoSo = RECORD
Holot : String[17];
Ten : String[7];
Tuoi : 18..60;
ChucVu: String[20];
BacLuong : 300000..900000;
End;
Var
f : File Of HoSo;
Nv : HoSo;
ans : Char;
Begin
ClrScr;
Writeln('CAP NHAT DU LIEU VAO TAP TIN LUONG.DAT');
Writeln('----------------------------------');
Writeln;
Assign(f,'LUONG.DAT');
Reset(f);
Seek(f,Filesize(f));
Repeat
With Nv Do
Begin
Write('-Ho lot: ');
Readln(Holot);
Write('-Ten : ');
Readln(Ten);
Write('-Tuoi : ');
{$R+}
Readln(tuoi);
Write('-Chuc vu : ');
Readln(ChucVu);
Write('-Bac luong: ');
Readln(BacLuong);
Write(f,Nv);
End;
ans := Readkey;
Until ans = #27;
Close(f);
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program CheDau_TapTin;
Uses Dos,Crt;
Var
f : File; {hoac f : Text }
Filename : String;
Ch : Char;
Begin
Repeat
ClrScr;
TextColor(14);
TextBackGround(2);
GotoXY(23,4);
Writeln('DAT THUOC TINH CHE DAU TAP TIN');
GotoXY(23,5);
Writeln('------------------------------');
Writeln;
TextColor(12);
GotoXY(11,6);
Writeln('*Khong hien thi duoc ten tap tin khi dung lenh DIR cua DOS*');
GotoXY(15,;
TextColor(1);
TextBackGround(14);
Write('-Cho biet ten tap tin: ');
Readln(Filename);
TextColor(4+Blink);
TextBackGround(14);
GotoXY(25,24);
Writeln('DANG THUC HIEN, XIN CHO DOI...');
Assign(f,Filename);
SetFAttr(f,Hidden);
TextColor(4);
TextBackGround(15);
GotoXY(15,10);
Case DosError Of
0 : Writeln('Da hoan thanh tot dep');
2 : Writeln('Khong tim thay tap tin nay');
3 : Writeln('Khong tim thay duong dan')
Else
Writeln('Tap tin duoc bao ve, khong sua duoc');
End;
GotoXY(19,24);
TextColor(14);
TextBackGround(4);
Writeln('Bam phim bat ky de tiep tuc, <Esc> de thoat ');
Ch := Readkey;
TextColor(White);
TextBackGround(Black);
ClrScr;
Until Ch = #27;
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program Doc_Tap_tin;
Var
f : Text;
Filename : String;
Ch : Char;
Begin
Writeln('DOC TAP TIN VAN BAN');
Writeln('-------------------');
Writeln;
Write('-Cho biet ten tap tin: ');
Readln(Filename);
Assign(f,filename);
Reset(f);
While Not EOF(f) Do
Begin
Read(f,Ch);
Write(Ch);
End;
Close(f);
Writeln;
Write('Bam <Enter>... ');
Readln
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program Doc_Tung_Chu;
Uses Crt;
Var
Filename : String;
f : Text;
Line : String[251];
k : Integer;
Begin
ClrScr;
Writeln('DOC CHAM TAP TIN THEO TUNG CHU');
Writeln('------------------------------');
Writeln;
Write('-Cho biet ten tap tin: ');
Readln(Filename);
Assign(f,Filename);
Reset(f);
While Not EOF(f) Do
Begin
Readln(f,line);
For k := 1 To Length(line) Do
Begin
Write(line[k]);
Delay(150);
End;
Writeln;
End;
Close(f);
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program Doc_Ghi_Tap_Tin;
Var
f1,f2 : Text;
Filename : String;
i : Integer;
St : String;
Begin
Writeln('DANH SO DONG TAP TIN');
Writeln('--------------------');
Writeln;
Write('-Cho biet ten tap tin: ');
Readln(Filename);
Assign(f1,filename);
Reset(f1);
Assign(f2,'Newfile.txt');
Rewrite(f2);
i := 0;
While Not EOF(f1) Do
Begin
i := i + 1;
Readln(f1,st);
Writeln(f2,i,' ',St);
End;
Close(f1);
Close(f2);
Writeln;
Writeln('Da danh so dong va ghi vao tap tin NEWFILE.TXT');
Writeln;
Write(' Bam <Enter> de xem tap tin NEWFILE.TXT ');
Readln;
Assign(f2,'Newfile.txt');
Reset(f2);
While Not EOF(f2) Do
Begin
Readln(f2,st);
Writeln(St);
End;
Close(f2);
Writeln;
Write('Xem xong, ban <Enter> ');
Readln
End.
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
(+==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==++==+==+==+)
Program Lambada;
Uses Crt;
Var
f : Text;
Note,dur : Word;
Buf : Array[1..10240] Of Byte;
{---------------------------------}
Procedure Play(Caodo,Truongdo : Word);
Begin
Sound(Caodo);
Delay(Truongdo);
NoSound;
End;
{---------------------------------}
BEGIN
ClrScr;
TextColor(Yellow);
Writeln('TAO TAP TIN AM THANH');
TextColor(Red);
Writeln('--------------------');
Writeln;
TextColor(Green);
Writeln('Bam phim bat ky de tat am thanh');
Repeat
Assign(f,'lambada.not');
SetTextBuf(f,buf);
Reset(f);
While (Not EOF(f)) And (Not KeyPressed) Do
Begin
Readln(f,Note,dur);
Play(Note,Dur);
End;
Until KeyPressed;
Close(f);
NoSound;
END.