Nhập 3 số tự nhiên a b c từ bàn phím viết chương trình in ra màn hình tích của 3 số đó
|
24 BÀI TẬP MẪU TIN HỌC 11- (CHƯƠNG 1, 2, 3)Bài tập 1: Viết chương trình nhập vào một số nguyên và kiểm tra xem số vừa nhập là số chẵn hay số lẻ.Program Kiemtratinhchanle;Uses crt;Var x:integer;BeginWrite('Nhap vao mot so nguyen : '); Readln(x);If (x MOD 2=0) Then Writeln('So vua nhap vao la so chan')ElseWriteln('So vua nhap vao la so le');Readln;End.Bài tập 2: Viết chương trình giải phương trình bậc nhất ax+b=0Program Giaiptb1;Uses Crt;Var a,b,x : real;BeginWrite('a = '); Readln(a);Write('b = '); Readln(b);If (a = 0) Then { Nếu a bằng 0 }If (b = 0) Then { Trường hợp a = 0 và b = 0 }Writeln('Phuong trinh co vo so nghiem') 0 }≠Else { Trường hợp a=0 và b Writeln('Phuong trinh vo nghiem') 0 }≠Else { Trường hợp a Beginx:= -b/a;Writeln('Phuong trinh co nghiem la :',x:6:2);End;Readln;End.1Bài tập 3: Viết chương trình tính tổng S = 1+2+ +N.Cách 1: Dùng vòng lặp FOR.Program TinhTong;Uses crt;Var N,i,S:integer;BeginClrscr;Write('Nhap vao gia tri cua N :'); Readln(N);S:=0;For i:=1 to N do S:=S+i;Writeln('Ket qua la :',S);Readln; End.Cách 2: Dùng vòng lặp WHILE.Program TinhTong;Uses crt;Var N,i,S:integer;BeginClrscr;Write('Nhap vao gia tri cua N :'); Readln(N);S:=0; i:=1;While i<=N DoBeginS:=S+i;i:=i+1;End;Writeln('Ket qua la :',S);Readln; End.Bài tập 4: Viết chương trình nhập vào N số nguyên từ bàn phím. Hãy tính và in ra màn hình tổng của các số vừa được nhập vào.Ý tưởng: Dùng phương pháp cộng dồn. Cho vòng lặp FOR chạy từ 1 tới N, ứng với lần lặp thứ i, ta nhập vào số nguyên X và đồng thời cộng dồn X vào biến S.2Program Tong;Uses crt;Var N,S,i,X : Integer;BeginClrscr; S:=0;For i:=1 To n DoBeginWrite('Nhap so nguyen X= '); Readln(X);S:=S+X;End;Writeln(‘Tong cac so duoc nhap vao la: ‘,S); Readln;End.Bài tập 5: Viết chương trình tính số Pi với độ chính xác Epsilon, biết: Pi/4 = 1-1/3+1/5-1/7+ Ý tưởng: Ta thấy rằng, mẫu số là các số lẻ có qui luật: 2*i+1 với i=1, ,n. Do đó ta dùng i làm biến chạy. Vì tính số Pi với độ chính xác Epsilon nên không biết trước được cụ thể số lần lặp, do đó ta ≤phải dùng vòng lặp WHILE. Có nghĩa là phải lặp cho tới khi t=4/(2*i+1) Epsilon thì dừng.Program Tinh_tong_Pi;Uses Crt;Const Epsilon=1E-4;Var Pi,t:real;i,s:Integer;BeginPi:=4; i:=1; s:=-1;t:=4/(2*i+1);While t>Epsilon DoBeginPi:=Pi+s*t;s:=-s; i:=i+1;t:=4/(2*i+1);End;Writeln('So Pi = ',Pi:0:4);3Readln;End.Bài tập 6: Viết chương trình nhập vào số nguyên N. In ra màn hình tất cả các ước số của N.Ý tưởng: Cho biến i chạy từ 1 tới N. Nếu N MOD i=0 thì viết i ra màn hình.Uses Crt;Var N,i : Integer;BeginClrscr; Write('Nhap so nguyen N= '); Readln(N);For i:=1 To N DoIf N MOD i=0 Then Write(i:5); Readln;End.Bài tập 7: Viết chương trình tìm USCLN và BSCNN của 2 số a, b được nhập vào từ bàn phím.Ý tưởng:- Tìm USCLN: Lấy số lớn trừ số nhỏ cho đến khi a=b thì dừng. Lúc đó: USCLN=a.- BSCNN(a,b) = a*b DIV USCLN(a,b).Program Tim_USCLN_BSCNN;Uses crt;Var a,b, m,n:integer;BeginWrite('Nhap a : '); Readln(a);Write('Nhap b : '); Readln(b);m:=a; n:=b;While (m<>n) DoBeginIf (m>n) Then m:=m-n Else n:=n-m;End;Writeln('USCLN= ',m);4Writeln('BSCNN= ',a*b DIV n);Readln; End.Bài tập 8: Viết chương trình tìm các số có 3 chữ số sao cho: = a3 + b3 + c3.Ý tưởng:Dùng phương pháp vét cạn. Ta biết rằng: a có 9. Ta→9 (vì a là số hàng trăm), b,c có thể có giá trị từ 0→thể có giá trị từ 1 sẽ dùng 3 vòng lặp FOR lồng nhau để duyệt qua tất cả các trường hợp của a,b,c.Ứng với mỗi bộ abc, ta sẽ kiểm tra: Nếu 100.a + 10.b + c = a3 + b3 + c3 thì in ra bộ abc đó. Program Timgiatri_abc;Uses crt;Var a,b,c : Word;BeginFor a:=1 To 9 DoFor b:=0 To 9 DoFor c:=0 To 9 DoIf (100*a + 10*b + c)=(a*a*a + b*b*b + c*c*c) Then Writeln(a,b,c); Readln;End.Bài tập 9: Viết chương trình nhập vào số tự nhiên N rồi thông báo lên màn hình số đó có phải là số nguyên tố hay không.Ý tưởng: N là số nguyên tố nếu N không có ước số N div 2. Từ định nghĩa này ta đưa ra giải thuật:→nào từ 2 - Đếm số ước số N div 2 lưu vào biến d.→của N từ 2 - Nếu d=0 thì N là số nguyên tố.Uses crt;Var N,i,d : Word;BeginIf N<2 Then Writeln(N,’ khong phai la so nguyen to’)Else5Begind:=0;For i:=2 To N div 2 DoIf (N MOD i=0) Then d:=d+1;If d=0 Then Writeln(N,’ la so nguyen to’)Else Writeln(N,’ khong phai la so nguyen to’);End; Readln;End.Bài tập 10: Viết chương trình nhập tính diện tích tam giác, nhập độ dài cạnha,b,c từ bàn phím. Công thức tính Diện tích là , p là nửa chu viProgram Tam_Giac;Vara,b,c: Integer;p,s: Real;BeginWriteln('CHUONG TRINH TINH DIEN TICH TAM GIAC');Write('Cho biet canh thu nhat = '); Readln(a);Write('Cho biet canh thu hai = '); Readln(b);Write('Cho biet canh thu ba = '); Readln(c);p := 0.5 * (a + b + c);s := sqrt(p*(p-a)*(p-c)*(p-c));Writeln('+Dien tich hinh tam giac = ',s:6:2,' met vuong');ReadlnEnd.BÀI TẬP Thực hànhBài tập 1: Viết chương trình giải phương trình bậc hai: ax2 + bx + c = 0, a≠0.Gợi ý:- Tính Delta=b*b-4*a*c.- Biện luận:6Delta<0: Phương trình vô nghiệm.Delta=0: Phương trình có nghiệm kép: x = -b/(2*a).Delta>0: Phương trình có 2 nghiệm phân biệt: SQRT(Delta))/(2*a).±x1,2 = (-bBài tập 2: Viết chương trình nhập vào từ bàn phím: giờ, phút, giây. Cọng thêm một số giây cũng được nhập từ bàn phím. Hãy in ra kết quả sau khi cọng xong.Gợi ý:- Gọi số giây được cộng thêm là: ss. Gán giây:=giây+ss.60 thì: phút:=phút + giây DIV 60 và≥- Nếu giây giây:=giây MOD 60.60 thì: giờ:=giờ + phút DIV 60 và phút:=phút≥- Nếu phút MOD 60.Bài tập 3: Viết chương trình tìm Max, Min của 4 số: a, b, c, d.Bài tập 4: Viết chương trình in ra màn hình các giá trị của bảng 255.→mã ASCII từ 0Gợi ý: 255. In ra màn hình i và→Cho biến i chạy từ 0 CHR(i).Bài tập 5: Viết chương trình in ra màn hình các số nguyên từ 1 đến 100 sao cho cứ 10 số thì xuống dòng.Gợi ý:→Cho biến i chạy từ 1 100. In ra màn hình i và kiểm tra: nếu i MOD 10=0 thì WRITELN.Bài tập 6: Viết chương trình in ra màn hình bảng cữu chương.Gợi ý:Dùng 2 vòng lặp FOR lồng nhau: i là số bảng cữu chương (2 9), j là số thứ tự trong từng bảng cữu chương (1 10).For i:=2 To 9 DoFor j:=1 To 10 Do Writeln(i,’x’,j,’=’,i*j);Bài tập 7: Viết chương trình tính các tổng sau:7S0 = n! = 1*2* *n {n giai thừa}S1 = 1 + 1/2 + + 1/nS2 = 1 + 1/2! + + 1/n!S3 = 1 + x + x2/2! + x3/3! + + xn/n!S4 = 1 - x + x2/2! - x3/3! + + (-1)nxn/n!S5 = 1 + sin(x) + sin2(x) + + sinn(x).Bài tập 8: Viết chương trình để tìm lời giải cho bài toán sau:“Trong giỏ vừa thỏ vừa gà,Một trăm cái cẳng bốn ba cái đầu.Hỏi có mấy gà mấy thỏ?”Bài tập 9: Viết chương trình để tìm lời giải cho bài toán sau: Trăm trâu trăm bó cỏBó lại cho trònTrâu đứng ăn nămTrâu nằm ăn baNăm con trâu giàMỗi con ăn một.Hỏi có bao nhiêu trâu đứng, trâu nằm, trâu già?Bài tập 10: Viết chương trình nhập vào một số nguyên dương. Hãy thông báo lên màn hình số đó có bao nhiêu chữ số và tổng các chữ số của số đó.Gợi ý:Dùng vòng lặp WHILE. Trong khi N>0 thì: lấy ra chữ số cuối cùng của N để tính bằng phép toán MOD 10, sau đó bỏ bớt đi chữ số cuối cùng của N bằng phép toán DIV 10.Bài tập 11: Viết chương trình in ra màn hình tất cả các số nguyên tố từ 2 đến N. Với N được nhập từ bàn phím.Bài tập 12: Viết chương trình phân tích một số ra thừa số nguyên tố. Ví dụ:N=100 sẽ in ra màn hình:100 | 2850 | 225 | 55 | 51 |Bài tập 13: Số hoàn thiện là số tự nhiên có tổng các ước của nó (không kể chính nó) bằng chính nó. Viết chương trình kiểm tra xem một số được nhập vào từ bàn phím có phải là số hoàn thiện hay không? Ví dụ: 6, 28 là các số hoàn thiện.Gợi ý:- Tính N div 2 lưu vào biến S.→tổng các ước số của N: từ 1 - Nếu S=N thì N là số hoàn thiện.Bài tập 14: Viết chương trình in ra các số nguyên từ 1 đến N2 theo hình xoắn ốc với N được nhập vào từ bàn phím. Ví dụ, với N=5 ta có:1 2 3 4 516 17 18 19 615 24 25 20 714 23 22 21 813 12 11 10 99 Một số bài tập Pascal lớp 8VnDoc xin giới thiệu với các bạn một số bài tập Pascal lớp 8 được VnDoc sưu tầm và đăng tải. Trong ngôn ngữ lập trình ngôn ngữ Pascal là ngôn ngữ cơ bản nhưng trong thực tế nó không còn phổ biến như trước nữa bởi ngôn ngữ lập trìnhPascal khá dài dòng và gần giống với ngôn ngữ lập trình C. Trong lập trình thì Pascal là ngôn ngữ căn bản. Dưới đây là một số bài tập từ cơ bản đến nâng cao mời các em cùng tham khảo
Bài tập thực hành ôn tập Pascal Các em hãy gõ chương trình sau vào Turbo Pascal để chạy và tìm lỗi: program Tinh_Chu_Vi_Dien_Tich_HV var a,s,c:longint; begin write(‘Nhap vao do dai canh hinh vuong: ’) read(a); if a>0 then begin c:=4*a; s:=a*a; writeln(‘Chu vi hinh vuong co canh dai ’ ,a, ‘la: ’,c); writeln(‘Dien tich hinh vuong co canh dai ’ ,a, ‘la: ’,s) end else write(Du lieu sai, khong the thuc hien duoc! ’); readln end. I. Làm quen với chương trình Pascal – Khai báo, sử dụng biến – Các thủ tục vào ra. Bài tập 1.1: Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím). a. Hướng dẫn:
b. Mã chương trình: Program Chu_nhat; c. Nhận xét: Lệnh write cho phép in ra màn hình một hoặc nhiều mục. Có thể định dạng được số in ra bằng cách qui định khoảng dành cho phần nguyên, khoảng dành cho phần thập phân. Bài tập 1.2: Viết chương trình tính chu vi, diện tích hình vuông có cạnh a (được nhập từ bàn phím). a. Hướng dẫn:
b. Mã chương trình: Program HINH_VUONG; c. Nhận xét: Bài tập 1.2 tiết kiệm được hai biến là CV và S vì lệnh write cho phép in một biểu thức. Trong lập trình việc tiết kiệm biến là cần thiết nhưng đôi lúc gây khó hiểu khi đọc, kiểm tra chương trình. Bài tập 1.3: Viết chương trình tính chu vi và diện tích hình tròn có bán kính r (được nhập từ bàn phím). a. Hướng dẫn:
b. Mã chương trình: Program HINH_TRON; c. Nhận xét: pi là hằng số. Một hằng số có thể được người dùng khai báo hoặc do Pascal tự tạo. Pi là hằng do Pascal tự tạo nên người dùng không cần khai báo. Bài tập 1.4: Viết chương trình tính diện tích của tam giác có ba cạnh là a, b, c (được nhập từ bàn phím) a. Hướng dẫn:
b. Mã chương trình: Program TAM_GIAC; b. Nhận xét: Ở đây ta lại hai lần dùng biến trung gian p, s để chương trình sáng sủa, dễ theo dõi. Bài tập 1.5: Viết chương trình cho phép tính trung bình cộng của bốn số. a. Hướng dẫn:
b. Mã chương trình: Program TB_Cong_4_So; Bài tập 1.6: Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử dụng hai biến. a. Hướng dẫn:
b. Mã chương trình: Program TB_Cong_4_So; b. Nhận xét: Câu lệnh gán S:= S+a thực hiện việc cộng thêm a vào biến S. Thực chất là thực hiện các bước: lấy giá trị của S cộng với a rồi ghi đè vào lại biến S. Ở đây ta cũng đã sử dụng biến a như là một biến tạm để chứa tạm thời giá trị được nhập từ bàn phím. Bài tập 1.7: Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ được sử dụng hai biến. a. Hướng dẫn:
b. Mã chương trình: Program TB_nhan; b. Nhận xét: Ta đã dùng hai lần khai phương để lấy căn bậc 4 của một số. Để cộng dồn giá trị vào một biến thì biến đó có giá trị ban đầu là 0. Để nhân dồn giá trị ban đầu vào biến thì biến đó cần có giá trị ban đầu là 1. Bài tập 1.8: Viết chương trình nhập hai số, đổi giá trị hai số rồi in ra hai số. a. Hướng dẫn:
b. Mã chương trình: Program Doi_Gia_Tri; Nhận xét: Nếu thực hiện hai lệnh a:= b; b:=a để đổi giá trị hai biến thì sau hai lệnh này hai biến có giá trị bằng nhau và bằng b. Thực chất sau lệnh thứ nhất hai biến đã có giá trị bằng nhau và bằng b rồi! Trong thực tế để đổi chỗ số dầu ở hai bình cho nhau ta phải dùng thêm một bình phụ. Bài tập luyện Pascal Câu 1: Cấu trúc chung của chương trình gồm mấy phần, đó là những phần nào? Phần nào là phần quan trọng nhất không thể thiếu được? - Cấu trúc chung của chương trình gồm 2 phần: + Phần khai báo: nằm đầu mỗi chương trình, là phần có thể có hoặc không, chứa các khai báo như: khai báo tên chương trình, tên thư viện, hằng,.. + Phần thân chương trình: nằm sau phần khai báo, trong cặp từ khóa begin và end, là phần bắt buộc phải có, chứa các lệnh để giải quyết bài toán. - Phần quan trọng nhất không thể thiếu được là phần thân chương trình. Câu 2: Em hiểu như thế nào về viết chương trình cho máy tính? Tại sao người ta cần viết chương trình cho máy tính? - Viết chương trình là viết dãy câu lệnh hướng dẫn cho máy tính thực hiện công việc hay giải quyết một bài toán cụ thể nào đó. - Viết chương trình giúp điều khiển máy tính dễ dàng và hiệu quả hơn. Câu 3: Điểm giống và khác nhau giữa hằng và biến? - Giống nhau: + Biến và hằng đều là đại lượng để lưu trữ dữ liệu. + Biến và hằng đều phải được khai báo trước khi sử dụng. - Khác nhau: Biến Hằng - Giá trị của biến có thể thay đổi trong suốt quá trình thực hiện chương trình. - Có thể nhập hay gán giá trị khác vào cho biến. - Giá trị của hằng không thể thay đổi trong suốt quá trình thực hiện chương trình. - Không thể nhập hay gán giá trị khác vào cho hằng. Câu 4: Bài toán là gì? Để giải quyết được một bài toán cụ thể ta cần làm gì? Thuật toán là gì? Trình bày các bước để giải một bài toán trên máy tính? - Bài toán là một công việc hay một nhiệm vụ cần phải giải quyết. - Để giải quyết bài toán, ta cần xác định điều kiện cho trước và kết quả cần thu được. - Thuật toán là dãy hữu hạn các thao tác cần thực hiện theo một trình tự xác định để thu được kết quả cần thiết từ những điều kiện cho trước. - Các bước để giải một bài toán trên máy tính: + Bước 1: Xác định bài toán: là xác định điều kiện đã cho (INPUT) và kết quả cần thu được (OUTPUT). + Bước 2: Mô tả thuật toán: diễn tả cách giải bài toán bằng dãy các thao tác cần phải thực hiện. + Bước 3: Viết chương trình: Dựa vào thuật toán ở trên, viết chương trình bằng một ngôn ngữ lập trình thích hợp. Câu 5: Viết cú pháp, giải thích cú pháp và hoạt động của câu lệnh điều kiện dạng thiếu trong ngôn ngữ lập trình Pascal? - Cú pháp: If <điều kiện> then - Trong đó: If, then: là từ khóa. <điều kiện> thường là phép so sánh. - Cách thực hiện câu lệnh: Khi thực hiện câu lệnh điều kiện dạng thiếu, chương trình sẽ kiểm tra điều kiện. Nếu điều kiện thỏa mãn thì thực hiện câu lệnh sau từ khóa then, ngược lại, câu lệnh bị bỏ qua. Câu 6: Viết cú pháp, giải thích cú pháp và hoạt động của câu lệnh điều kiện dạng đủ trong ngôn ngữ lập trình Pascal? - Cú pháp: If <điều kiện> then else - Trong đó: If, then: là từ khóa. <điều kiện> thường là phép so sánh. - Cách thực hiện câu lệnh: Với câu lệnh này, chương trình sẽ kiểm tra điều kiện. Nếu điều kiện được thỏa mãn, chương trình sẽ thực hiện câu lệnh 1 sau từ khóa then. Trong trường hợp ngược lại, câu lệnh 2 sẽ được thực hiện. Câu 7: Viết cú pháp, giải thích cú pháp và hoạt động của câu lệnh lặp trong ngôn ngữ lập trình Pascal? - Cú pháp: For - Trong đó: For, to, do : là từ khóa. - Số lần lặp = (giá trị cuối) - (giá trị cuối) +1 (lần) - Cách thực hiện câu lệnh: Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị bằng giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối. Câu 9: Cho hai biến x và y. Hãy mô tả thuật toán đổi giá trị của các biến nói trên để x và y có giá trị tăng dần? INPUT: hai biến x và y. OUTPUT: x và y có giá trị tăng dần. Mô tả thuật toán: - Bước 1: Nhập x, y. - Bước 2: Nếu x - Bước 3: tg <- x; x <- y; Y <- tg; - Bước 4: In giá trị x,y và kết thúc thuật toán. Câu 10: Nhập vào hai cạnh của một hình chữ nhật. In ra màn hình diện tích và chu vi của nó? Program hinh_chu_nhat; Uses crt; Var a,b, CV, DT: Integer; Begin Clrscr; Write (‘Hay nhap chieu dai: ’); Redln (a); Write (‘Hay nhap chieu rong: ’); Readln (b); CV:= (a+b)*2; DT:= a*b; Writeln (‘Chu vi hinh chu nhat la: ’, CV); Writeln (‘Dien tich hinh chu nhat la: ’, DT); Readln; End. Câu 11: Nhập vào bán kính của hình tròn. In ra màn hình diện tích và chu vi của nó? Program hinh_tron; Uses crt; Var R, CV, DT: Real Const pi=3.14; Begin Clrscr; Write (‘Hay nhap ban kinh: ’); Readln (R); CV:= 2*R*pi; DT:= R*R*pi; Writeln (‘Chu vi la: ’, CV:8:2); Writeln (‘Dien tich la: ’, DT:8:2); Readln; End. Câu 12: Viết chương trình nhập ba số a,b,c từ bàn phím. Hiển thị kết quả ra màn hình giá trị lớn nhất của ba số đó? Program so_lon_nhat; Uses Crt; Var a,b,c :Integer; Begin Clrscr; Writeln (‘Hay nhap so a: ’); Readln (a); Writenln (‘Hay nhap so b: ’); Readln (b); Writeln (‘Hay nhap so c: ’); Readln (c); If a>b and a>c then writeln (‘ a la so lon nhat’); If b>a and b>c then writeln (‘b la so lon nhat’); If c>a and c>b then writeln (‘c la so lon nhat’); Readln; End. Câu 13: Viết chương trình tính tổng N số tự nhiên đầu tiên? Program Tong_N; Uses crt; Var N,T,I: Integer; Begin Clrscr; Write (‘Hay nhap N: ’); Readln (N); T:= 0 For i:=1 to N do T:=T+i; Writeln (‘Tong cua N so tu nhin dau tien la ’, N); Readln; End. Câu 14: Viết chương trình tính N! (Với N! = 1*2*3*…*n)? Program Tinh_tich; Uses crt; Var N,i :Integer; Giai thua: Longint; Begin Clrscr; Write (‘Hay nhap N: ’); Readln (N); Giai thua :=1 For i:=1 to N do Giai thua:= Giai thua*I; Writeln (‘Tich la ’, Giai thua); Readln; End. Câu 15: Viết chương trình nhập vào hai số a,b. Kiểm tra tổng của chúng có phải là số dương và chia hết cho 3 hay không? Program hai_so_a_va_b; Uses crt; Var a,b :Integer; Begin Clrscr; If (a+b)>0 and (a+b) mod 3 =0 then writeln (‘Tong cua a va b vua la so duong vua chia het cho 3’) else writeln (‘Tong cua a va b khong vua la so duong vua chia het cho 3’); Readln; End. Câu 16: Viết chương trình tính tổng sau, biết n nhập từ bàn phím: S= 1+1/2+1/3+…+1/n? Program Tinh_S; Uses crt; Var S,i,N: Real; Begin Clrscr; Write (‘Hay nhap N: ’); Readln (N); S:=0 For i:=1 to N do S:= S+1/i; Writeln (‘Tong la ’, S); Readln; End. Câu 17: Viết chương trình tính tổng sau, biết rằng n nhập từ bàn phím: S= 1/2+2/3+3/4+..+n/n+1 Program Tinh_tong_S; Uses crt; Var S,i,N: Real; Begin Clrscr; Write (‘Hay nhap N: ’); Readln (N); S:=0 For i:=1 to N do S:= S+ i/(i+1); Writeln (‘Tong S la: ’, S:8:2); Readln; End. Câu 18: Viết chương trình nhập vào hai số nguyên dương a và b. Máy hỏi tổng hai số là bao nhiêu? Nếu ta nhập đúng thì máy thông báo “Chúc mừng! Bạn đã tính đúng!” Nếu ta nhập sai thì máy thông báo “Rất tiếc! Bạn đã tính sai” và máy hiện kết quả đúng ra màn hình? Program tong_hai_so; Uses crt; Var a,b,tong :Integer; Begin Clrscr; Write (‘Hay nhap so thu nhat: ’); Readln (a); Write (‘Hay nhap so thu hai: ’); Readln (b); Write (‘Tong ban tinh duoc la: ’); Readln (tong); If tong=a+b then writeln (‘Chuc mung! Ban da tinh dung!’) else writeln (‘Rat tiec! Ban da tinh sai!’, Tong =a+b); Readln; End. Ngoài ra, VnDoc.com đã thành lập group chia sẻ tài liệu học tập THCS miễn phí trên Facebook: Tài liệu học tập lớp 8. Mời các bạn học sinh tham gia nhóm, để có thể nhận được những tài liệu mới nhất. Một số bài tập về Pascal được VnDoc chia sẻ trên đây. Hy vọng qua bài tập này các em sẽ nắm chắc kiến thức, cũng như nâng cao kĩ năng lập trình của bản thân. Chúc các em học tốt, nếu thấy tài liệu hữu ích hãy chia sẻ cho các bạn cùng tham khảo nhé ............................................ Ngoài Một số bài tập Pascal lớp 8. Mời các bạn học sinh còn có thể tham khảo các đề thi học kì 1 lớp 8, đề thi học kì 2 lớp 8 các môn Toán, Văn, Anh, Lý, Địa, Sinh mà chúng tôi đã sưu tầm và chọn lọc. Với tài liệu lớp 8 sẽ giúp các bạn ôn tập tốt hơn. Chúc các bạn học tập tốt
|
