Bài giảng Excel - Nguyễn Thái Quang

Kính chúc Thầy cô và gia đình thật hạnh phúc và thành đạt trong cuộc sống!Gv: Nguyễn Thái QuangIII. HÀM CHUẨN VÀ THỦ TỤC1. HÀM CHUẨNSqrt(x) : Trả về giá trị căn bậc hai của số thực x.Sqr(x) : Trả về giá trị bình phương của số thực xRound(x) : Làm tròn giá trị số thực xAbs(x) : Trả về giá trị tuyệt tuyệt đối của số thực x2. THỦ TỤCa. Clrsrc : Xóa màn hình (cần khai báo Unit Crt bằng lệnh Uses Crt ở đầu chương trình) Clrscr;b. Gotoxy(x,y) : Di chuyển con trỏ về tọa độ cột x, dòng yMàn hình trong chế độ văn bản x = 80 (cột) và y = 25 (dòng)c. Inc(n[i]) : Tăng giá trị số n lên i đơn vị(Nếu không có thành phần i thì n sẽ tăng lên 1 đơn vị)d. Dec(n[i]) : Giảm giá trị số n xuống i đơn vị(Nếu không có thành phần i thì n sẽ giảm xuống 1 đơn vị)Bµi to¸n ®Ỉt vÊn ®Ị?ViÕt ch­¬ng tr×nh tÝnh chu vi (CV) vµ diƯn tÝch (S) cđa h×nh ch÷ nhËt, biÕt chiỊu dµi a = 12, chiỊu réng b = 8.Bµi to¸n 1: H·y khai b¸o c¸c biÕn cÇn dïng trong ch­¬ng tr×nh. ViÕt lƯnh g¸n ®Ĩ tÝnh chu vi, diƯn tÝch h×nh ch÷ nhËt.  Var a,b,CV,S : Real; a:=12; b:=8; CV:=(a+b)*2; S:=a*b; §Ĩ gi¶i quyÕt bµi to¸n trªn ng«n ng÷ lËp tr×nh PASCAL cung cÊp thđ tơc chuÈn NhËp/xuÊt (vµo/ra) ®¬n gi¶n.ViÕt ch­¬ng tr×nh tÝnh vµ in ra mµn h×nh chu vi (CV) vµ diƯn tÝch (S) cđa h×nh ch÷ nhËt, víi chiỊu dµi a vµ chiỊu réng b bÊt k× .Bµi to¸n 2:? H·y nªu c¸ch gi¶i quyÕt bµi to¸n trªn?1. NhËp d÷ liƯu vµo tõ bµn phÝmRead(); Danh s¸ch biÕn vµo: lµ mét hay nhiỊu biÕn ®¬n, tr­êng hỵp nhiỊu biÕn ®¬n ph¶i c¸ch nhau bëi dÊu ’,’Thđ tơc READLN cã thĨ kh«ng cã tham sè dïng ®Ĩ t¹m dõng ch­¬ng tr×nh, xem kÕt qu¶ cho ®Õn khi ng­êi dïng Ên phÝm Enter (Readln;).e. thđ tơc chuÈn vµo/ra ®¬n gi¶n1. Th«ng b¸o nhËpWrite(‘Th«ng b¸o’);thao t¸cCĩ ph¸p LƯnh trong pascal2. NhËp th«ng tin tõ bµn phÝmReadln(); Write(‘ Nhap vao chieu dai, chieu rong HCN:’); readln(a,b);VÝ dơ: Tiết:2. §­a th«ng tin ra mµn h×nhWrite(); Danh s¸ch kÕt qu¶: Cã thĨ lµ tªn biÕn, biĨu thøc, hµm hoỈc h»ng.Writeln( : 	 + §èi víi kÕt qu¶ kh¸c : : C¸c thµnh phÇn trong kÕt qu¶ ra ®­ỵc viÕt c¸ch nhau bëi dÊu’ ,’.Tiết: WRITELN; Xuất một dòng trống3. Mét sè vÝ dơProgram VD_1;Var N: Integer;BEGINWrite(‘ Lop ban co bao nhieu nguoi: ‘);Readln(N);Writeln(‘ That the a! Vay la ban co ‘,N-1,’ nguoi ban trong lop ’);Writeln(‘ Go Enter de ket thuc chuong trinh.’);Readln;END. PhÇn khai b¸oPhÇn th©n ch­¬ng tr×nhThđ tơc nhËp d÷ liƯu tõ bµn phÝmThđ tơc in kÕt qu¶ ra mµn h×nhVÝ dơ 1: H·y nªu tªn c¸c thµnh phÇn vµ c¸c thđ tơc trong ch­¬ng tr×nh sau:Tiết:Lop ban co bao nhieu nguoi: * Khi nhËp gi¸ trÞ cho nhiỊu biÕn, mçi gi¸ trÞ c¸ch nhau mét dÊu c¸ch* NhËp xong nhÊn phÝm ENTER ®Ĩ thùc hiƯn lƯnh tiÕp theo.42That the a! Vay ban co 41 nguoi ban trong lop.-Ch­¬ng tr×nh ch¹y vµ cho kÕt qu¶ nh­ sau:Tiết:Program VD_2;Var a,b,CV,S: real;BEGIN	Write(‘ Nhap chieu dai va chieu rong cua HCN: ’);	Readln(a,b);	CV:= (a+b)*2; S:= a*b;	Writeln(‘ Chu vi HCN = ’, CV:7:2);	Writeln(‘Dien tich HCN =’,S:7:2);	Readln;END. VÝ dơ 2: ViÕt ch­¬ng tr×nh tÝnh vµ in ra mµn h×nh chu vi (CV) vµ diƯn tÝch (S) cđa h×nh ch÷ nhËt, víi chiỊu dµi a vµ chiỊu réng b bÊt k× .Tiết:* So¹n th¶o, dÞch, thùc hiƯn vµ hiƯu chØnh ch­¬ng tr×nhSo¹n th¶o: Gâ néi dung ch­¬ng tr×nh lªn mµn h×nh so¹n th¶o cđa Turbo Pascal.Biªn dÞch ch­¬ng tr×nh: NhÊn tỉ hỵp phÝm Alt + F9Tiết:Më tƯp: F3Tho¸t khái ch­¬ng tr×nh Pascal: Alt + XCh¹y ch­¬ng tr×nh: NhÊn tỉ hỵp phÝm Ctrl + F9§ãng cưa sỉ ch­¬ng tr×nh: Alt + F3L­u ch­¬ng tr×nh (file): F2Tiết:H·y nhí!Thđ tơc nhËp th«ng tin tõ bµn phÝm.Thđ tơc xuÊt th«ng tin ra mµn h×nhRead();trong pascalReadln();Write();Writeln();Một lần nữa kính chúc Thầy cô vui vẽ, hạnh phúc và thành đạt trong cuộc sống!Mời Thầy Cô nghỉ