al của Tin Học 11 docx

Writeln'Nhan vien co tuoi lon nhat la: ',TuoiMax; Writeln'Nhan vien co tuoi nho nhat la:',TuoiMin; Writeln'Nhan vien: ',HoTen1,' ,co bac luong lon nhat: ',LuongMax:10; Writeln'+Nhan vie

1 al của Tin Học 11 - Phần 1

 Giáo trình lập trình Pascal nâng cao -Mediafire 25/11/2011

 CD-ROM Giáo trình Pascal 07/02/2013

For j := PhanTu DownTo i+1 Do

If a[j].Ten[1] < a[j-1].Ten[1] Then

Writeln('SAP XEP DIEM TANG DAN);');

Writeln('Giai thuat noi Buble');

If TenHang = DsTenHang[i] Then

Tong := Tong + (DonGia * Soluong);

Writeln(' +Tong so tien mua: ',DsTenHang[i]:10,' = ',tong:10:2); End;

Writeln('-Ten sach: ',TenSach);

Writeln('-Tac gia : ',TacGia);

Writeln('-Nam Xuat ban: ',Namxb);

Writeln('-Nguoi muon : ',NguoiMuon);

Luong : LongInt;

Next : ConTro;

End;

VAR

First, Last, Newp : ConTro;

Hoten1, Hoten2 : String[24]; i,TuoiMax,TuoiMin : Integer;

LuongMax, LuongMin,LuongTb : LongInt;

Writeln('Nhan vien co tuoi lon nhat la: ',TuoiMax);

Writeln('Nhan vien co tuoi nho nhat la:',TuoiMin);

Writeln('Nhan vien: ',HoTen1,' ,co bac luong lon nhat: ',LuongMax:10); Writeln('+Nhan vien: ',HoTen2,' ,co bac luong nho nhat: ',LuongMin:10); Release(HeapTop);

Writeln('TINH DIEM VA XEP HANG);');

Writeln('Giai thuat noi Buble');

If (i > 1) And (Hs[i].Tb <> Hs[i-1].Tb) Then

Hang := i;

Writeln(' Hoc sinh : ',Hs[i].HoTen);

Writeln(' Nam sinh : ',Hs[i].NamSinh);

Writeln(' Diem trung binh ca nam : ',Hs[i].Tb:5:2); Writeln(' Xep hang ca nam : ',Hang);

Chuoi1^ := 'Giao trinh Turbo Pascal 7.0';

Chuoi2^ := 'Giao trinh FoxPro 2.6';

Writeln;

Writeln('NOI DUNG BAN DAU CUA 2 CHUOI');

Writeln(' -');

Writeln;

Writeln('-Chuoi thu nhat: ',Chuoi1^);

Writeln('-Chuoi thu hai : ',Chuoi2^);

Writeln('-Chuoi thu nhat: ',Chuoi1^);

Writeln('-Chuoi thu hai : ',Chuoi2^);

Write('-Phan tu thu: ',i:2,' = ');

Tam1^.Next := Nut1;

Nut1 := Tam1;

Tam1 := Tam2;

Until Tam1 = Nil;

Writeln('Sau khi dao: ');

Trai := Nil; Phai := Nil;

End;

End

Else

Begin

Begin

Q1^.Phai := Q^.Trai; Q^.Trai := P^.Trai;

While (P <> Nil) And (P^.HoTen <> Nv.HoTen) Do

If NV.HoTen < P^.HoTen Then

Writeln('1-Khoi tao cay');

Writeln('2-Noi them vao cay');

Writeln('3-Xoa khoi cay');

Writeln('4-Tim kiem tren cay');

Writeln('5-Liet ke danh sach');

Writeln('6-Ket thuc chuong trinh');

End;

Writeln;

Writeln(' MANG TRUOC KHI XOA'); Writeln(' -'); Writeln;

Writeln;

Writeln(' MANG SAU KHI XOA'); Writeln(' -'); Writeln;

Write('-Cho biet bac cua da thuc: ');

Write('-Nhap so kieu Word: ');

SoHex[4]:= KyTuHe16[Lo(SoWord) AND $F];

Writeln('+So nguyen kieu Word = ',soWord);

Writeln('+Doi ra so he thap luc = $',SoHex);

Write('-Nhap so kieu Word: ');

Readln(SoWord);

SoBinary[0]:=#16;

For i:=15 DownTo 0 Do

If (SoWord AND (1 SHL i)) = (1 SHL i) Then

SoBinary[16-i]:= KyTuHe2[1]

Else

SoBinary[16-i]:= KyTuHe2[0];

Writeln('+So nguyen kieu Word = ',soWord);

Writeln('+Doi ra so he nhi phan= B ',SoBinary);

Writeln;

Writeln(' Bam phim <Enter> de ket thuc ');

Readln

End

{Giai he phuong trinh}

Dt:= a[1,1]*a[2,2]-a[1,2]*a[2,1]; {Dt: Dinh thuc}

Dtx:=c[1]*a[2,2]-c[2]*a[2,1];

Dty:=a[1,1]*c[2]-a[1,2]*c[1];

If Dt <> 0 Then

Begin

Writeln('+Chuoi ban dau : ',St1,' co: ',l:2,' ky tu');

Writeln(' Sau khi xoa ky tu trung nhau');

Writeln(' Chuoi con lai: ',St,' gom: ',l1:2,' ky tu');

For i:=1 To (l Div 2) Do

If St[i] <> St[l-i+1] Then

For i:=1 To (so Div 1000) Do St:=St+'M';

Write(Ten,'[',i,',',j,']= '); Readln(m[i,j]);

For i:=1 to Max-1 Do

For j:= i+1 To Max Do

Writeln('SAP XEP MANG BANG GIAI THUAT CHON'); Writeln(' -'); Writeln;

For j:= spt Downto i+1 Do

If a[j] < a[j-1] Then

i:Integer;

Writeln(' Bam phim <Enter> de ket thuc ');

End;

Writeln;

Writeln(' Bam phim <Enter> de ket thuc ');

Readln

Bài viết cùng chuyên mục:

 Giáo trình CD-ROM Giáo trình Pascal

 Một vài thủ thuật trong chương trình Pascal

 Tổng hợp Các Dạng Bài Tập Pascal của Tin Học 11 - Phần 1

 Giáo trình Ngôn ngữ lập trình Pascal

 Giáo trình lập trình Pascal nâng cao -Mediafire

Các bài viết có thể bạn quan tâm:

 Phim Việt Nam "Thám tử nghiệp dư", bạn nghĩ sao ?

 TrẢi nghiỆm vỚi chƯƠng trình thỰc tẬp tẠi singapore

 Ai Không Sợ Ma Thì Vào Đây Nhé Mà Đọc Nhé

 Đề Thi Đẫm Máu - Giảm 15% Tác Phẩm Trinh Thám Siêu Kinh

 Bài tập cho ngực chảy xệ | phauthuatnangnguc.vn

 Điều Bí Mật Của Chồng - Mem Nữ Nên Đọc Cái Này Nhé

 Bình yên sẽ về sau những nỗi đau!

 Smartphone và phim sex đã làm hỏng con tôi như thế nào?

Writeln('-So Telephone: ',Tel);

Writeln('-Dia chi : ',Add);

End;

End;

If Not TimThay Then

Writeln('Khong tim thay');

2 : Writeln('Khong tim thay tap tin nay');

3 : Writeln('Khong tim thay duong dan')

Write('-Cho biet ten tap tin: ');

Writeln('Truong do cham 10 lan so voi BT15_10');

Writeln(' Bam <Esc> de ket thuc');

Writeln('-Diem Hoa : ',Hoa:5:2);

Writeln('-Diem trung binh := ',Tb:5:2); End

End;

If Not Timthay Then

Writeln('Trong danh sach khong co hoc sinh: ',St);

Write('-Ho ten CBCNV : '); Readln(HoTen);

Write('-Nam sinh: '); Readln(NamSinh);

Write('-Chuc vu: '); Readln(Chucvu);

Write('-Bac luong: '); Readln(BacLuong);

TenLop : Array[1 100] Of String[4];

alop : Array[1 200] Of HocSinh;

For j := sohslop DownTo k + 1 Do

If alop[j].Dtb > alop[j-1].Dtb Then

Filedb = file Of Doi;

Mang = Array[1 40] Of Doi;

If Not TimThay Then

Writeln('Khong tim thay');

Writeln(' 4-Cap nhat');

Writeln(' 5-Ket thuc');

Writeln('-Dong dai nhat : ',Max);

Writeln('-Dong ngan nhat : ',Min);

Writeln('-Trung binh : ',Tong / Sodong : 6:1);

TongA1 := 0;TongA2 := 0;SoA := 0;

TongB1 := 0;TongB2 := 0;SoB := 0;

TongC1 := 0;TongC2 := 0;SoC := 0;

While Not EOF(f) Do

While Not EOF(g) Do

Readln(St);

ClrScr;

n := 40-(Length(St) Div 2); For j := 1 To Length(St) Do For i := 80 DownTo n+j Do Begin

GotoXY(i,12);

Write(St[j]);

ClrEoL;

Sound(400+j*200); Delay(30);

OutTextXY(10,10,Tri);

With Palette Do

Begin

CenterX := GetMaxX Div 2;

CenterY := GetMaxY Div 2;

Radius := CenterY - 10;

SetFillStyle(2,2);

Pieslice(CenterX,CenterY,0,120,Radius); SetFillStyle(3,1);

Pieslice(CenterX,CenterY,120,245,Radius); SetFillStyle(4,3);

Pieslice(CenterX,CenterY,245,360,Radius); Readln;

CenterX := GetMaxX Div 2;

CenterY := GetMaxY Div 2;

OutTextXY(48,12,'He truc toa do');

Xcenter := GetMaxX Div 2;

YCenter := GetMaxY Div 2;

{ve mat ca}

Circle(Xcenter+Radius Div 2,YCenter - Radius Div 2,4);

{ve duoi ca}

Line(Xcenter-Radius,Ycenter,Xcenter-2*Radius,Ycenter-Radius); Line(Xcenter-Radius,Ycenter,Xcenter-2*Radius,Ycenter+Radius); End;

(* -*)

PROCEDURE Bannhac(Kyam:Notnhac;Caodo,Truongdo:Integer); Var

Writeln(' 3 so vua nhap la:');

Writeln('+Tam giac: ',tamgiac);

Writeln('+Tam giac deu: ',deu);

Writeln('+Tam giac can: ',can);

Writeln('BAI TOAN CO DIEN');

Writeln('Tram trau tram co');

For nam:=0 To 33-dung Do

For gia:=0 To (100-(dung+nam)) Do

Begin

co:=5*dung+3*nam+(gia Div 3);

trau:=dung+nam+gia;

If (gia Mod 3 =0) And (trau=100) And ( co=100) Then

Writeln('-Trau dung ',dung,' con, -Trau nam ',nam,' con, -Trau gia ',gia,' con');

Ten=' CAC HAM LUONG GIAC';

Tde='|DO | RADIAN | SIN | COSIN | TANG | COTANG |';

Writeln(' * Loi giai thu : ',n:3);

Write('- Ga = ',x:2,' con = ',(x*2):2,' chan '); Write('- Cho = ',y:2,' con = ',(y*4):2,' chan ');

Writeln(a:3,' DIV ',b:2,' = ',a DIV b);

Writeln(a:3,' MOD ',b:2,' = ',a MOD b);

149/Cho biết ngày hôm nay sẽ tính được ngày mai:

Writeln('Troi lanh, ban nen o nha coi TV');

(* -*)

BEGIN

Writeln('LAM TRON SO THUC');

Writeln(' Su dung ham');

Writeln(' KET QUA');

Writeln('*So nhap vao = ',so:12:10);

Writeln('*So lam tron = ',Tron(so,le):12:le);

Writeln(' MAY TINH TAY');

Writeln('Thuc hien 4 phep tinh so hoc');

End;

1 : Begin

Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5); Writeln('+La ngay Thu Hai');

End;

2 : Begin

Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5); Writeln(' +La ngay Thu Ba');

End;

3 : Begin

Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5); Writeln(' +La ngay Thu Tu');

End;

4 : Begin

Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5); Writeln(' +La ngay Thu Nam');

End;

5 : Begin

Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5); Writeln(' +La ngay Thu Sau');

End;

6 : Begin

Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5); Writeln(' +La ngay Thu Bay');

While (n Mod i <> 0) And (i < n ) Do

Writeln('TIM 10 S0 NGUYEN NGAU NHIEN KHONG AM');

Writeln(' NHO HON 100, KHONG TRUNG NHAU');

Write('-Nhap so thu nhat: ');

Writeln('+Chieu dai cua vecto = ',l:10:2);

Writeln(' Bam phim <Enter> de ket thuc');

Write('-Cho biet chieu dai con lac: ');

Writeln('+Chu vi hinh chu nhat= ',p);

Writeln('+Dien tich hinh chu nhat= ',s);

Writeln('+Chu vi vong tron = ',cv:10:2);

Writeln('+Dien tich vong tron = ',s:10:2);

Writeln;

Writeln(' Bam phim <Enter> de tro ve cua so soan thao'); Readln

Writeln('-So dan hien nay = ',sodan);

Writeln('-Ty le tang dan so hang nam = 1.5%');

Writeln(' 1-Hinh vuong');

Writeln(' 2-Hinh chu nhat');

Writeln(' 3-Hinh tam gia1c');

Writeln(' 4-Hinh thang');

Writeln(' 5-Hinh tron');

Writeln('TINH GIAI THUA CUA N');

Writeln(' Su dung ham');

Writeln('KET QUA CHUYEN DOI');

Writeln('+Neu nhap vao: ',sogiay,' giay');

Writeln('+Doi thanh: ',gio,' gio, ',phut,' phut, ',giay,' giay');

d:=((a*x) + (b*y) + c) / Sqrt(Sqr(a) + Sqr(b));

Writeln('+Khoang cach tu diem I den duong thang la: ',d:10:2); Readln

Writeln(' Bam phim <Enter> de ket thuc');

Writeln('TRO CHOI ONE TWO THREE');

Writeln(' Keo (k), Bua (b), Giay (g)');

End;

{ -}

Procedure Nhap;

Var

Procedure QuickSort(Var A: Mang; Lo,Hi: Integer);

Procedure Sort(Left, Right:Integer);

Write('Bam <Enter> de tim so khac, <Esc> de cham dut '); Until Readkey = #27;

Writeln(' Thang 11 nam 1999');

First := NIL; {Khoi tao bien First la con tro rong}

Writeln('-Ong ba: ',HoLot,' ',Ten);

Writeln('-Bac luong: ',BacLuong:8,' -Phu cap: ',PhuCap : 6); Writeln('+Tien linh : ',Tong:8,' Dong'); First :=Next;

Writeln('-Buoc 1:Khai bao bien con tro p,q');

Writeln(' Vung nho bay gio la: ',MemAvail,' bytes');

Writeln;

Writeln('-Buoc 2:Cap vung nho cho 2 bien dong p,q');

New(p); {Cap phat vung nho cho p^}

New(q); {Cap phat vung nho cho q^}

Writeln(' Vung nho bay gio la: ',MemAvail,' bytes');

Writeln;

Writeln('-Buoc 3:Dien noi dung vao vung nho va thao tac');

p^ := 1;{Dien noi dung vao vung nho cho p^}

q^ := 1;{Dien noi dung vao vung nho cho q^}

p^ := p^ + q^; {Thuc hien bieu thuc chua bien dong}

Writeln('-Khi moi bat dau chuong trinh thi');

Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Writeln;

New(p1);

P1^ :=12345;

Writeln('-Noi dung cua bien dong P1 la: ',P1^);

Writeln('-Sau khi cap phat bo nho cho bien dong P1 (kieu Integer)'); Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Writeln;

k := Sizeof(p2^);

GetMem(p2,Sizeof(p2^));

P2^ :='Nha sach Minh Khai, 249 Nguyen Thi Minh Khai, Q1, Tel 8.331.124'; Writeln('-Noi dung cua bien dong P2 la: ',P2^);

Writeln('-Sau khi cap phat bo nho cho bien dong P2 (kieu String)');

Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Writeln;

New(p3);

Writeln('-Sau khi cap phat bo nho cho bien dong P3 (kieu Real)');

Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Writeln;

Writeln('+ Bam phim <Enter> de xoa bien P1 bang thu tuc Dispose'); Readln;

Dispose(p1);

Writeln('-Sau khi Xoa cac bien dong P1 (kieu Integer) ');

Writeln('Vung nho Heap bay gio la: ',MemAvail,' bytes trong');

Writeln;

Writeln('+ Bam phim <Enter> de xoa bien P2 bang thu tuc FreeMem'); Readln;

Freemem(p2,k);

Writeln('-Sau khi Xoa cac bien dong P2 (kieu String) ');

Writeln('Vung nho Heap bay gio la: ',MemAvail,' bytes trong');

Writeln;

Writeln('+ Bam phim <Enter> de xoa bien P3 bang thu tuc Dispose'); Readln;

Dispose(p3);

Writeln('-Sau khi Xoa cac bien dong P1 (kieu Integer) ');

Writeln('Vung nho Heap bay gio la: ',MemAvail,' bytes trong');

Writeln('-Khi moi bat dau chuong trinh thi');

Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Writeln('-Sau khi cap phat bo nho cho bien dong P2 (kieu String)');

Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Writeln;

New(p3);

Writeln('-Sau khi cap phat bo nho cho bien dong P3 (kieu Real)');

Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Writeln;

Dispose(p2);

Writeln('-Sau khi Xoa cac bien dong P2 (kieu String) ');

Writeln('Vung nho Heap bay gio la: ',MemAvail,' bytes trong');

Readln

End

Writeln('-Khi moi bat dau chuong trinh thi');

Writeln('Vung nho Heap con: ',MemAvail,' bytes trong');

Procedure Init(dd,mm,yy : Word);

Function StrDate : String;

Di chuyển nhanhTài Liệu Lên trên

« Chủ đề trước | Chủ đề tiếp theo »

Từ khóa cho bài viết này

bài giảng cấu trúc dữ liệu và giải thuật, bài tập cấu trúc dữ liệu và giải thuật, bài tập kiểu file trong pascal, bài tập kiểu tệp trong pascal, bai tap cau truc file trong pascal,bai tap chuong trinh ve tep pascal 11, bai tap du lieu kieu file, bai tap file trong pascal, bai tap kieu file trong pascal, bai tap kieu tep trong pascal, bai tap pascal ve file,bai tap pascal ve kieu file, bai tap pascal ve tep, bao, cấu trúc dữ liệu và giải thuật, cau truc du lieu bai tim kiem file du lieu dang text, giải thuật, giáo trình cấu trúc dữ liệu và giải thuật, học, hung, khi, lieu, tai, tài liệu cấu trúc dữ liệu và giải thuật, xem

View Tag Cloud

Liên hệ

Nhac San| luyen thi dai hoc | Nhac San | hack cf , hack au , hack zing speed | tai iwin , Bán vé máy bay | Tài Liệu - Luận Văn - Tài Liệu | hinh nen may tinh |phim hay nhatxem phim | Truyen Tranh Online , Rao vat mien phi |tiger airways vietnam, tiger airways ho chi minh, phòng vé tiger airways, ve may bay di bangkok ve may bay di singapore, ve may bay ha noi di singapore, ve may bay sai gon di singapore, ve may bay di uc, ve may bay di perth, ve may bay di uc, ve may bay ha noi di bangkok, ve may bay sai gon di bangkok air asia ho chi minh, aeroflot, ve may bay di nga | Thư Viện

Cưới | GameTV.vn | Sinh viên Thương mại