Giáo án TIN 8

Trng: THCS Cam Thy Ngày soạn : Ngày dạy : Tiết Máy tính chơng trình máy tính A Mục tiêu : - Biết ngời dẫn cho máy tính (MT) thực công việc thông qua lệnh - Biết chơng trình cách để ngời dẫn cho MT thực nhiều công việc liên tiếp cách tự động B Chuẩn bị : Gv: HS: - SGK, SGV, tài liệu, Giáo án, Đồ dùng dạy học, - Đọc trớc bài, SGK, Đồ dùng học tập C Tiến trình tiết dạy : Hoạt động GV - HS Nội dung Hoạt động 1: kiểm tra cũ Kiểm tra đồ dùng học sinh Hoạt động : Bài Con ngời lệnh cho MT - mỏy tớnh cú th thc hin mt cụng ntn? vic theo mong mun ca mỡnh, - ch dn MT thc hin mt cụng vic ngi phi a nhng ch dn thớch no ú, ngi a cho MT mt hoc hp cho MT nhiu lnh, MT s ln lt thc hin cỏc - Double click chut lờn biu tng trờn lnh ny theo ỳng th t nhn c mn hỡnh Desktop lnh cho MT VD 1: Gừ ch a trờn bn phớm ta ó ng phn mm lnh cho MT ghi ch a lờn mn hỡnh - Khi thc hin chộp on VB, ta VD 2: Sao chộp on vb l yờu cu MT ó my lnh cho MT thc hin? thc hin lnh: chộp ghi vo b nh v chộp t b nh v trớ mi Ví dụ: rô-bốt quét nhà HS : Quan sát nghiên cứu SGK ? Em phải lệnh để rôbốt hoàn thành việc nhặc rác bỏ vào thùng nơi qui định rụ-bt hon thnh nhim v ta cỏc lnh sau: Gv : Cho rôbôt chạy mô Lnh 1: tin bc hình để hs hình dung Lnh 2: quo trỏi, tin mt bc trực quan Lnh 3: nht rỏc GV: inh Th Hoi Thng Trng: THCS Cam Thy Hs : Quan sát nhớ thao tác Lnh 4: tin bc Lnh 5: quo phi, tin bc thực rôbốt Lnh 6: b rỏc vo thựng Hs : Nhắc lại lệnh mà robôt phải làm để hoàn thành công việc Hoạt động : Củng cố kiến thức Sau thực lệnh Hãy quét nhà trên, vị trí rô-bốt gì? Em đa lệnh để rô-bốt trở lại vị trí xuất phát (góc dới bên trái hình) Hoạt động : Hớng dẫn nhà Viết lệnh dẫn để rôbốt hoàn thành công việc trực nhật lớp em Viết lệnh dẫn để rôbốt giúp em áo Rút kinh nhgiệm sau tiết dạy: ê GV: inh Th Hoi Thng Trng: THCS Cam Thy Ngày soạn : Ngày dạy : Tiết : Máy tính chơng trình máy tính (T.T) A Mục tiêu : - Biết viết chơng trình viết lệnh để dẫn MT thực công việc hay giải toán cụ thể - Biết ngôn ngữ dùng để viết chơng trình máy tính gọi ngôn ngữ lập trình - Biết vai trò chơng trình dịch B Chuẩn bị : Gv: - SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học , GV: inh Th Hoi Thng Trng: THCS Cam Thy Hs: - Đọc trớc - SGK, Đồ dùng học tập, C Tiến trình tiết dạy : Hoạt động GV - HS Nội dung Hoạt động Con ngời lệnh cho máy tính nh ? Lấy ví dụ minh hoạ ? Hoạt động : Bài Viết CT: lệnh cho máy - Tr li vớ d v rụ-bt nht rỏc, vic tính làm việc vit cỏc lnh iu khin rụ-bt v thc cht cng cú ngha l vit chng trỡnh - Khi thc hin chng trỡnh, MT s thc hin cỏc lnh cú chng trỡnh mt cỏch tun t - Gi s cú hai ngi núi chuyn vi Mt ngi ch bit ting Anh, mt ngi ch bit ting Vit Vy hai ngi cú th hiu khụng? - Tng t ch dn cho MT nhng cụng vic cn lm ta phi vit chng trỡnh bng ngụn ng mỏy Tuy nhiờn, vic vit chng trỡnh bng ngụn ng mỏy rt khú.? thc hin c cụng vic, MT phi hiu cỏc lnh c vit chng trỡnh Vy lm th no mỏy tớnh hiu c cỏc lnh ca Vic vit cỏc lnh iu khin rụ-bt vớ d trờn chớnh l vit chng trỡnh Tng t, iu khin MT lm vic, ta cng phi vit chng trỡnh MT * Ti cn vit chng trỡnh? - Cỏc cụng vic ngi mun MT thc hin rt a dng v phc Mt lnh n gin khụng ch dn cho MT Vỡ th vic vit nhiu lnh v hp li mt chng trỡnh giỳp ngi iu khin MT mt cỏch n gin v hiu qu hn Chơng trình ngôn ngữ lập trình ? TT a vo MT phi c chuyn i thnh dng dóy bit (dóy cỏc s ch gm v 1) c gi l ngụn ng mỏy MT núi v Hiu bng mt ngụn ng riờng l ngụn ng MT - Vit chng trỡnh l s dng cỏc t cú ngha (thng l ting Anh) - Cỏc chng trỡnh dch úng vai trũ "ngi phiờn dch" v dch nhng chng trỡnh c vit bng NGLT sang ngụn ng mỏy MT cú th hiu c GV: inh Th Hoi Thng Trng: THCS Cam Thy ngi? Ta cú th lnh cho MT Nh vy, TT a vo mỏy phi c bng cỏch núi hoc gừ cỏc phớm bt chuyn i thnh dng dóy bit (dóy cỏc tớn kỡ c khụng? hiu c kớ hiu bng hoc 1) cỏc ngụn ng lp trỡnh ó i gim nh khú khn vic vit chng trỡnh GV: Mụ t trờn mỏy chiu vic đợc viết NGLT sang ngôn ngữ máy để MT hiểu đợc lnh cho mỏy tớnh lm vic - Chơng trình soạn thảo chơng trình dịch thờng đợc kết hợp vào phần mềm, đợc gọi môi trờng lập trình Hoạt động : Củng cố kiến thức ? Qua học em cần ghi nhớ điều Gv : Chốt ghi nhớ bảng phụ : GHI NHớ Con ngời dẫn cho máy tính thực công việc thông qua lệnh Viết chơng trình hớng dẫn máy tính thực công việc hay giải toán cụ thể Ngôn ngữ dùng để viết chơng trình máy tính đợc gọi ngôn ngữ lập trình Hoạt động : Hớng dẫn nhà Em cho biết STVB yêu cầu MT tìm kiếm thay (Replace), thực chất ta yêu cầu máy thực lệnh ? Ta thay đổi thứ tự chúng đợc không? Sau thực lệnh Hãy quét nhà trên, vị trí rôbốt ? Em đa lệnh để rô-bốt trở lại vị trí xuất phát (góc dới bên trái hình) Rút kinh nghiệm sau tiết dạy: Ngày soạn : Ngày dạy : Tiết : A Mục tiêu Làm quen với chơng trình ngôn ngữ lập trình : GV: inh Th Hoi Thng Trng: THCS Cam Thy - Biết ngôn ngữ lập trình (NGLT) gồm thành phần bảng chữ quy tắc để viết chơng trình, câu lệnh - Biết NGLT có tập hợp từ khóa dành riêng cho mục đích sử dụng định - Biết tên NGLT ngời lập trình đặt ra, đặt tên phải tuân thủ quy tắc NGLT Tên không đợc trùng với từ khoá B Chuẩn bị : GV: - SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học , HS: - Đọc trớc - SGK, Đồ dùng học tập, C Tiến trình tiết dạy : II Bài : Hoạt động 1: Kiểm tra cũ : Viết chơng trình ? phải viết chơng trình ? Ngôn ngữ lập trình ? phải tạo ngôn ngữ lập trình ? Hoạt động2: Bài Ví dụ chơng trình Gv : Đa ví dụ chơng * Ví dụ chơng trình đơn trình đơn giản viết giản viết Pascal môi trờng Pascal Hs : Quan sát cấu trúc giao diện chơng trình Pascal Gv : Theo em chơng trình đợc dịch sang mã máy máy tính đa kết - Sau chạy chơng trình máy ? in lên hình dòng chữ Chao cac ban ngôn ngữ lập trình gồm Gv : Khi nói viết ngoại ngữ Ngụn ng lp trỡnh gm: để ngời khác hiểu - Bng ch cỏi: thng gm cỏc ch cỏi em có cần phải dùng chữ ting Anh v mt s kớ hiu khỏc nh du cái, từ cho phép phộp toỏn (+, , *, /, ), du úng m ngoc, phải đợc ghép theo quy du nhỏy, Núi chung, cỏc kớ t cú mt trờn bn phớm mỏy tớnh u cú mt bng tắc ngữ pháp hay không ? GV: inh Th Hoi Thng Trng: THCS Cam Thy ch cỏi ca mi ngụn ng lp trỡnh - Cỏc quy tc: cỏch vit (cỳ phỏp) v ý ngha Gv : Ngôn ngữ lập trình gồm ca chỳng; cỏch b trớ cỏc cõu lnh thnh ? chng trỡnh, Vớ d 1: Hỡnh di õy l mt chng trỡnh Hs : Nghiên cứu SGK trả lời n gin c vit bng ngụn ng lp trỡnh Gv : Chốt khái niệm Pascal Sau dch, kt qu chy chng hình trỡnh l dũng ch "Chao Cac Ban" c in trờn mn hỡnh từ khoá tên chơng trình Gv : Đa vd CT nh phần - Từ khoá ngôn ngữ lập trớc trình từ dành riêng, Gv : Theo em từ không đợc dùng từ khoá cho chơng trình mục đích khác từ khoá mục đích sử dụng ngôn ngữ lập Hs : Trả lời theo ý hiểu trình quy định Gv : Chỉ từ khoá - Tên đợc dùng để phân biệt CT đại lợng chơng trình Gv : Trong chơng trình đại l- ngời lập trình đặt theo quy tắc : ợng gọi tên + Hai đại lợng khác Hs : Trả lời theo ý hiểu chơng trình phải có tên khác Gv : Tên ? Gv : Chốt k/n tên giải thích + Tên không đợc trùng với từ thêm quy tắc đặt tên khoá chơng trình Hs : Nghe ghi Hoạt động : Củng cố kiến thức ? Qua tiết học em hiểu đợc điều ? Hãy đặt hai tên hợp lệ hai tên không hợp lệ G : Tên hợp lệ ngôn ngữ lập trình Pascal không đợc bắt đầu chữ số không đợc chứa dấu cách (kí tự trống) Do đặt tên STamgiac để diện tích hình tam giác, đặt tên ban_kinh cho bán kính hình tròn, Các tên tên hợp lệ, tên Lop em, 10A, tên không hợp lệ GV: inh Th Hoi Thng Trng: THCS Cam Thy Hoạt động : Hớng dẫn nhà Học thuộc khái niệm ngôn ngữ lập trình hiểu môi trờng lập trình Hiểu, phân biệt đợc từ khoá tên chơng trình Rút kinh nghiệm sau tiết dạy: Ngày soạn : Ngày dạy : Tiết Làm quen với chơng trình ngôn ngữ lập trình A Mục tiêu : - Biết cấu trúc chơng trình bao gồm phần khai báo phần thân chơng trình B Chuẩn bị : GV HS - SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học - Đọc trớc - SGK, Đồ dùng học tập, C Tiến trình tiết dạy : Hoạt động 1: Kiểm tra cũ : a Ngôn ngữ lập trình gồm ? b Thế từ khoá tên chơng trình ? Hoạt động 2: Bài cấu trúc chơng trình Gv : Đa ví dụ chơng trình - Cấu trúc chung chơng trình gồm: Phần khai báo o Khai báo tên chơng trình; Gv : Cho biết chơng trình có phần ? Hs : QS chơng trình nghiên cứu sgk Gv : Đa lên hình phần chơng trình Hs : Đọc Gv : Giải thích thêm cấu tạo phần o Khai báo th viện (chứa lệnh viết sẵn sử dụng chơng trình) số khai báo khác Phần thân chơng trình gồm câu lệnh mà máy tính cần thực Đây phần bắt buộc phải có - Phần khai báo có GV: inh Th Hoi Thng Trng: THCS Cam Thy không Tuy nhiên, có phần khai báo phải đợc đặt trớc phần thân chơng trình Một số thao tác NNLT Pascal Gv : Khởi động chơng trình Ví dụ ngôn ngữ lập trình T.P để xuất hình - Khởi động chơng trình : sau : - Màn hình T.P xuất - Từ bàn phím soạn chơng trình tơng tự word Gv : Giới thiệu hình STVB T.P Hs : Quan sát lắng nghe - Sau soạn thảo xong, nhấn phím Alt+F9 để dịch chơng trình Gv : Giới thiệu bớc để làm việc với chơng - Để chạy chơng trình, ta nhấn tổ hợp phím Ctrl+F9 trình môi trờng lập trình T.P Hoạt động : Củng cố kiến thức GHI NH Ngụn ng lp trỡnh l hp cỏc kớ hiu v quy tc cho cú th vit c cỏc lnh to thnh mt chng trỡnh hon chnh v chy c trờn mỏy tớnh Mt chng trỡnh thng cú hai phn: Phn khai bỏo v phn thõn chng trỡnh Hoạt động : Hớng dẫn nhà CU HI V BI TP Hóy cho bit cỏc bc cn thc hin to cỏc chng trỡnh mỏy tớnh Ngụn ng lp trỡnh cú nhng thnh phn c bn no? Nhng thnh phn ú cú ý ngha, chc nng gỡ? Cu trỳc chng trỡnh gm nhng phn no? Phn no l quan trng nht? Rút kinh nghiệm sau tiết dạy: ê GV: inh Th Hoi Thng Trng: THCS Cam Thy Ngày soạn : Ngày dạy : Tiết Bài thực hành : làm quen với turbo pascal : Thực đợc thao tác khởi động/kết thúc TP, làm quen với hình soạn thảo TP Thực đợc thao tác mở bảng chọn chọn lệnh A Mục tiêu Soạn thảo đợc chơng trình Pascal đơn giản Biết cách dịch, sửa lỗi chơng trình, chạy chơng trình xem kết Biết cần thiết phải tuân thủ quy định ngôn ngữ lập trình B Chuẩn bị : GV: - Chuẩn bị phòng thực hành đủ số máy tính hoạt động tốt HS: - Đọc trớc thực hành - Học thuộc kiến thức lý thuyết học C Tiến trình tiết dạy : Hoạt động 1: Kiểm tra cũ : Cấu trúc chung chơng trình gồm phần ? Đọc tên chức số từ khoá chơng trình Nêu bớc để làm việc với chơng trình Turbo Pascal GV: inh Th Hoi Thng Trng: THCS Cam Thy ba số a,b, c đợc nhập từ bàn phím ba số a,b, c đợc nhập từ bàn phím Đáp án đề 01 Đáp án đề 02 1 Var a,h,s :real ; Var a,b,h,s :real ; Begin Begin Write(nhap a=);readln(a); Write(nhap a=);readln(a) ; Write(nhap h=) ;readln(h) ; Write(nhap b=);readln(b) ; S :=1/2*a*h ; Write(nhap h=);readln(h) ; Writeln(Dien tich S :=1/2*(a+b)*h ; S=,S :5 :2) ; Writeln(Dien tich S=,S :5 :2) ; Readln ; Readln ; End End Var a,b,c,min :real ; Begin Write(nhap a=);readln(a); Write(nhap b=);readln(b); Write(nhap c=);readln(c); Min :=a ; If min>b then :=b ; If min>c then :=c ; Writeln(so nho nhat la min,min) ; Readln ; End Var a,b,c,max :real ; Begin Write(nhap a=);readln(a) ; Write(nhap b=);readln(b) ; Write(nhap c=);readln(c) ; Max:=a ; If min hu/chn show sky color b) C nh v trớ v thi gian quan sỏt Option-> Maps -> hu/chn ti Hovers Update c) Xem cỏc v trớ cú cựng thi gian HS tỡm cỏc v trớ khỏc cú cựng thi gian ging ngy ging H Ni - Chn v trớ - Option -> anchor time to -> sun rise/ Sunset d) Tỡm kim v quan sỏt cỏc v trớ nht thc trờn trỏi t: - chn v trớ mun tỡm nht thc - view -> eclipse -> ca s sau hin HS chn v trớ khỏc xem cỏc v trớ khỏc cựng thi gian -> Find (future)/ find HS lm vic theo nhúm GV: gi mt thnh viờn bt kỡ nhúm tr li (past) e) Quan sỏt chuyn ng ca thi gian: Hóy quan sỏt cỏc nỳt lnh sau trờn cụng c ca phn mm bt u thc hin cho thi gian chuyn ng hóy nhn chut vo nỳt Mun dng hóy nhỏy chut vo nỳt Thc hnh: GV: inh Th Hoi Thng Trng: THCS Cam Thy Bi 1: phúng to quan sỏt mt vựng bn chi tit Bi 2: c thụng tin chi tit ca mt vi thnh ph Bi 3: t thi gian quan sỏt Bi 4: xem cỏc v trớ cú cựng thi gian ngy ging Bi 5: Tỡm kim v quan sỏt cỏc v trớ nht thc trờn trỏi t Bi 6: t ch quan sỏt thi gian chuyn ng t ng Hoạt động : Củng cố - Hớng dẫn nhà Hớng dẫn nhà - Thao tỏc thnh tho cỏc lnh chng trỡnh - Luyn li phn mm - Xem trc bi 7: Cõu lnh lp Kinh nghiệm sau dạy: ê Ngày soạn : Ngày dạy : Tiết 35: ôn tập hC Kè I A MụC TIÊU - HS củng cố lại kiến thức học Vận dụng để làm tập Xác định đợc INPUT, OUTPUT viết thuật toán Viết đợc số chơng trình đơn giản B chuẩn bị - GV: Bảng phụ, câu hỏi - HS: Bảng nhóm, bút dạ, phiếu học tập GV: inh Th Hoi Thng Trng: THCS Cam Thy C TIN TRèNH DY HC: Hoạt động : ôn tập phần 1: Lý thuyết - GV hệ thống lại số kiến Cấu trúc chơng trình thức học học + Phần khai báo + Phần thân kỳ I Cách đặt tên kiểu liệu - HS sử dụng phiếu học tập ghi * Đặt tên: lại cấu trúc chơng trình - Chơng trình ?Khi đặt tên cần lu ý gì? - GV treo bảng phụ y/c HS đặt tên cho chơng trình, biến khai báo kiểu liệu phù hợp tơng ứng cho biến - Biến - Hằng * Kiểu liệu: Nguyên, thực, xâu, kí tự câu lệnh a In kết hình - HS sử dụng phiếu học tập liệt kê lại câu lệnh học ?Phân biệt khác câu lệnh điều kiện If then - HS hoạt động nhó -m thảo luận - GV gọi nhóm trả lời - GV nhận xét giải thích ?Liệt kê bớc trình giải toán máy tính - GV nhận xét treo bảng phụ đa đáp án b Nhập liệu c Khai báo biến : = ; d Khai báo CONST = ; e Câu lệnh điều kiện - Dạng thiếu: If Then ; - Dạng đầy đủ: If Then Else ; Quá trình giải toán máy tính mô tả thuật toán phần 2: tập tập 1: Program max_min; Uses crt; tập 1: Viết CT nhập vào Var a,b,c: real; số từ bàn phím Begin - GV treo bảng phụ GV: inh Th Hoi Thng Trng: THCS Cam Thy in hình số lớn nhất, CLRSCR; Writeln(nhap vao so bat ky:); số bé Readln(a,b,c); max:=a; - HS đọc nội dung, yêu cầu If a < b then max:=b; tập If a < c then max:=c; - HS hoạt động nhóm thảo luận min:=a; khai báo biến cho tập If a > b then min:=b; If a > c then min:=c; Begin - GV lu ý thêm cho HS sử dụng Writeln(so lon nhat la:, max); câu lệnh gán để tìm đợc Writeln(so be nhat la:, min); GTLN, GTNN end; ?Tìm INPUT OUTPUT Readln; toán - HS hoạt động nhóm viết ch- End ơng trình - GV quan sát - GV gọi HS đại diện nhóm giải thích câu lệnh đợc viết CT - GV nhận xét làm nhóm - GV treo bảng phụ ghi CT toán giải thích rõ lệnh để HS hiểu nắm rõ tập 2: - Input: Ba số a, b, c - Output: a, b, c đợc xếp không tăng - Thuật toán: + Bớc 1: Nhập a, b, c + Bớc 2: Nến a < b, tráo đổi giá trị a b + Bớc 3: Nếu b < c, tráo đổi giá tập 2: Viết thuật toán trị b c + Bớc 4: Nếu c < a, tráo đổi giá xếp số theo thứ tự trị c a + Bớc 5: In a, b, c kết thúc không tăng - GV yêu cầu HS xác định INPUT OUTPUT - GV cho HS hoạt động nhóm - HS nhóm nhận xét - HS hoạt động nhóm nêu bớc để mô tả cho thuật toán - GV quan sát, gợi ý hớng dẫn nhóm - GV nhận xét giải thích lại bớc cho HS hiểu GV: inh Th Hoi Thng Trng: THCS Cam Thy Hoạt động : củng cố - GV treo bảng phụ - HS hoạt động nhóm vận dụng làm tập sau: Viết thuịât toán tìm số lớn số - GV lu ý cho HS cách xác định Input Output dựa vào câu hỏi toán Hoạt động : hớng dẫn nhà - Làm tập (GV ra) - Chuẩn bị tiết sau kiểm tra học kỳ I Kinh nghiệm sau dạy: ê Ngày soạn : Ngày dạy : tiết 36: kiểm tra học kỳ I A Mục tiêu - HS củng cố lại kiến thức học - Vận dụng để làm tập - Viết chơng trình - Yêu cầu HS làm nghiêm túc Nộp thời gian quy định B chuẩn bị - GV: Đề đáp án kiểm tra - HS: Các kiến thức học C tiến trình kiểm tra Mã đề 01 Câu 1(1đ) Hãy viết biểu thức kí hiệu Pascal a, + 1:2 + 1:(2.3) + 1:(3.4) + 1:(4.5) b, (1 - x).(1 + x)2 Câu (3đ) Cho chơng trình sau: Program CT-pascal Uese ctr; Begin Clrsrc; GV: inh Th Hoi Thng Trng: THCS Cam Thy Writeln( Chao cac ban); Writeln( da den voi); Writeln( Tubor Pascal) Readln; End Hãy cho biết chơng trình có lỗi tả hay cú pháp lệnh hay không? Nếu có chỉnh sửa lại chơng trình cho hoàn chỉnh Câu (3đ) Hãy Input Output mô tả thuật toán tính chu vi diện tích hình vuông Câu 4(3đ) Viết chơng trình so sánh hai số thực a b Trong a, b đợc nhập từ bàn phím Mã đề 02 Câu 1(1đ) Hãy viết biểu thức kí hiệu Pascal a, + 1:3 + 1:(2.3) + 1:(3.4) + 1:(4.5) b, (1 - x)2 (1 + x) Câu (3đ) Cho chơng trình sau: Program Toiyeu pascal Uese ctr; Begin Clsrsrc Writeln( Xin chao!!!); Writeln( Toi la hoc sinh lop 8) Writeln( THCS son Trach); Readln; End Hãy cho biết chơng trình có lỗi tả hay cú pháp lệnh hay không? Nếu có chỉnh sửa lại chơng trình cho hoàn chỉnh Câu (3đ) Hãy Input Output mô tả thuật toán tính diện tích hình thang Câu 4(3đ) Viết chơng trình so sánh hai số thực c d Trong c, d đợc nhập từ bàn phím C â u đáp án biểu điểm Mã đề 01 Đáp án GV: inh Th Hoi Thng Điểm Trng: THCS Cam Thy Hãy viết biểu thức kí hiệu Pascal a, + 1/3 + 1/(3 * 4) + 1/(4 * 5) + 1/(5 * 6) b, (1 - x)*(1 - x)* (1 + x) - Dùng dấu - (CT-pascal ) sửa lại bỏ thêm dấu _ - Thiếu dấu ; sau lệnh Writeln(Tubor Pascal), câu lệnh Program CT-pascal, câu lệnh Uses ctr Sửa lại thêm dấu ; - Câu lệnh Uese sai Sửa lại Uses - Thiếu dấu sau End sửa lại End - Thiếu dấu câu lệnh sau Writeln Sửa lại: thêm dấu Chơng trình hoàn chỉnh: Program CT_pascal; Uses ctr; Begin Clrsrc; Writeln(Chao cac ban); Writeln(da den voi); Writeln(Tubor Pascal); Readln; End INPUT: a, b hai cạnh hình chữ nhật OUTPUT: Chu vi diện tích hình chữ nhật Thuật toán: - Nhập cạnh hình chữ nhật - Gán chu vi diện tích công thức P:=(a + b)*2 S:=a*b - Tính in giá trị chu vi diện tích hình Program Sosanh; Uses ctr; Var a, b: real; Begin Clrsrc; Writeln(Nhap gia tri cua a=); Writeln(Nhap gia tri cua b=); If a>b Writeln(so lon la a); If ad Writeln(so lon la c); 0,5 If c