Bài tập pascal lớp 11 co loi giai
Trong tuyển tập các bài tập Pascal này chúng tôi có cung cấp tất cả những bài Pascal từ cơ bản tới nâng cao mà bất cứ ai học ngôn ngữ lập trình Pascal đều sẽ học qua. Ngôn ngữ lập trình Pascal không hề khó, nó chính là bước đầu để mọi người làm quen và dần có được tư duy nhạy bén để làm được những bài tập phức tạp hơn, xa hơn nữa là viết được 1 chương trình đầy đủ với nhiều câu lệnh phức tạp. Mời các bạn tham khảo các bài tập Pascal cơ bản dưới đây. Một số dạng bài tập Pascal cơ bảnBài 1: Nhập vào 2 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,s,c: real; Begin Clrscr; Writeln(' TINH DIEN TICH & CHU VI HINH CHU NHAT:'); Writeln('--------------------------------------------------------------'); Write('Nhap chieu dai='); readln(a); Write('Nhap chieu rong=');readln(b); s:=a*b; c:=(a+b)*2; Writeln('Dien tich hinh chu nhat la:',s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2); Readln; End.Bài 2: 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 HINHTRON; Uses Crt; Var r,dt,cv:real; Begin Clrscr; Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); Writeln('------------------------------------------------------'); Write ('Nhap ban kinh R='); readln(r); dt:=pi*r*r; cv:=2*pi*r; Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2); Readln; End.Bài 3: Tính tam giác: Nhập vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình 'Khong la ba canh cua mot tam giac'. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình. Program TAMGIAC; Uses crt; Var a,b,c,s,p: real; Begin Clrscr; Writeln(‘BAI TOAN TAM GIAC:’); Writeln('---------------------------------'); Write('nhap a =');readln(a); Write ('nhap b =');readln(b); Write('nhap c =');readln(c); If ((a+b)>c)and((b+c)>a)and((a+c)>b) then Begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Chu vi tam giac:',2*p:4:2); Writeln('Dien tich tam giac:',s:4:2); End Else Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac'); Readln; End.Bài 4: Viết chương trình giải phương trình bậc 1 (ax + b = 0) Program GIAI_PHUONG_TRINH_BAC_NHAT; Var a,b,x:real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln('------------------------------------------------------------'); Write ('Nhap a= '); readln(a); Write ('Nhap b= ');readln(b); If(a=0) then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a:4:2); Readln; End.Bài 5: Viết chương trình giải bất phương trình bậc 1 (ax + b >= 0) Program BAT_PHUONG_TRINH_BACI; Uses crt; Var a,b: real; Begin Clrscr; Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); Writeln('---------------------------------------------------------------'); Write('nhap a=');readln(a); Write('nhap b=');readln(b); If a<>0 then If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2) Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2) Else If b>=0 then Writeln('Bat phuong trinh co vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End.Bài 6: Viết chương trình giải phương trình bậc 2 (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real; Begin Writeln('GIAI PHUONG TRINH BAC II:'); Writeln('-------------------------------------------'); Write('Nhap he so a=');readln(a); Write('Nhap he so b=');readln(b); Write('Nhap he so c=');readln(c); If a=0 then If b=0 then If c=0 then Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') Else Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a):4:2) Else If d<0 then Writeln('Phuong trinh vo nghiem') Else Begin x1:= (-b+sqrt(d))/(2*a); x2:= (-b-sqrt(d))/(2*a); Write('Phuong trinh co hai nghiem: ‘); Writeln(‘ x1=',x1:4:2,' va x2=',x2:4:2); End; End; Readln; End.Bài 7: Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím). Program TIM_SO_LON_NHAT; Uses crt; Var a,b,c,d,max:real; Begin Clrscr; Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D'); Writeln('------------------------------------------------------------'); Write('Nhap a='); Readln(a); Write('Nhap b='); Readln(b); Write('Nhap c='); Readln(c); Write('Nhap d='); Readln(d); max:=a; If b>max then max:=b; If d>max then max:=d; Writeln('So lon nhat la:',max:4:2); Readln; End.Bài 8: Tìm giá trị nhỏ nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím). Program TIM_SO_NHO_NHAT; Uses crt; Var a,b,c,d,min:real; Begin Clrscr; Writeln('TIM SO NHO NHAT TRONG BON SO A, B, C, D'); Writeln('------------------------------------------------------------'); Write('Nhap a='); Readln(a); Write('Nhap b='); Readln(b); Write('Nhap c='); Readln(c); Write('Nhap d='); Readln(d); min:=a; If bBài 10: Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổ i và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây. Program DOI_GIO_PHUT_GIAY; Uses crt; Var gio, phut,giay, x: longint; Begin Clrscr; Writeln('DOI SANG GIO PHUT GIAY'); Writeln('--------------------------------------'); Write('Nhap vao so giay: ');readln(x); gio:= x div 3600; x:=x mod 3600; phut:=x div 60; x:=x mod 60; Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); Readln; End..............................................
Sau đây là 20 bài tập Pascal có lời giải, các bạn cùng tham khảo. 20 bai tap pascal co loi giai. Tổng hợp bài tập Pascal nâng cao, đơn giản. Thuthuat.taimienphi.vn 8 phút trước 1600 Like
Bài viết được VnDoc.com tổng hợp 15 bài tập nâng cao về phần Pascal trong chương trình học môn Tin học lớp 11 như viết phương trình, mã hóa và giải mã hóa, ... Vndoc.com 5 phút trước 144 Like
Thêm vào bộ sưu tập. Tải xuống 52. Bài tập pascal nâng cao (có lời giải). Xem thêm. Tải xuống 52. Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải ... 123docz.net 6 phút trước 950 Like
Giải thuật: – Dùng lịch trình nhỏ để tính xn. Cài đặt: Program Gia_tri_cua_da_thuc;. Var n,i: integer;. x,a,s:real ... Duongmonkyhiep.vn 6 phút trước 205 Like
Tìm trong dãy {a} một dãy con tăng dần dài nhất (có số phần tử lớn nhất) và in ra màn hình dãy con đó. Bài tập 5: Cho mảng 2 chiều A cấp mxn. Viết chương trình ... Baitap.edu.vn 10 phút trước 480 Like
20 bai tap Pascal co loi giai, 20 bài tập Pascal có lời giải sẽ được Taimienphi.vn tổng hợp trong bài ... writeln(Duong cao canh thu 1 la: ,dt*2/a:0:4);. Vaytienmienphi.com 1 phút trước 879 Like
Đối với sinh viên và những người muốn tìm hiểu sâu hơn về ngôn ngữ Pascal, họ có thể sử dụng Free Pascal engine với trình biên dịch Pascal nâng ... Phanmemfree.org 7 phút trước 1468 Like
Các bài tập ở đây giúp bạn hiểu rõ thuật toán tăng khả năng tư duy ... Tổng hợp lời giải tất cả các bài có trong sách giáo khoa tin học 11 ... Codepascalvn.blogspot.com 1 phút trước 1897 Like
Bài tập Pascal có lời giải dành cho những em học sinh Trung học Phổ thông, Trung học Cơ sở đang học môn Pascal có thêm cho mình những tài liệu để tham khảo kiến ... Lingocard.vn 3 phút trước 1593 Like
Một số bài tập Pascal nâng caoMột số bài tập Pascal nâng cao là tài liệu tham khảo hay, giúp các bạn học sinh lớp 11 tiếp cận với ngôn ngữ ... Xhct.vn 5 phút trước 1336 Like
Áp dụng theo giáo trình, buộc bạn phải học hết các lý thuyết về quy hoạch, chặt nhị phân.... vào mục các phái niệm nâng cao để rõ hơn. Các bài tập ở đây giúp ... Biquyetxaynha.com 4 phút trước 179 Like
Download file Lý thuyết và bài tập Pascal nâng cao.docx .pdf .xls .ppt free và các ... Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 9. Tailieutuoi.com 2 phút trước 1618 Like
Write(GiaiThua(A[i]):6);. ReadLn;. End. Bài tập Pascal – Từ cơ bản đến nâng cao. Bài 2.02 – In ra giá trị luỹ thừa 2 của các ... Www.yumpu.com 10 phút trước 1549 Like
101 mẫu bài tập Pascal cơ bản đến nâng cao có kèm lời giải đáp giúp bạn rèn luyện kĩ năng của bản thân. Pascal là ngôn ngữ lập trình máy tính, ... Guu.vn 3 phút trước 1796 Like
Mời chúng ta học viên download 61 bài xích tập Pascal cơ bạn dạng này về với thực hành. Một số bài bác tập Pascal nâng cấp cũng rất được Shop ... Mikigame.vn 1 phút trước 489 Like
Download lời giải Download đề bài Bài 11/1999 - Dãy số Fibonaci (Dành cho học sinh THCS) Như các bạn đã biết dãy số Fibonaci là dãy 1, 1, 2, 3, 5, 8, . Tranvantamdhsp.wordpress.com 1 phút trước 1806 Like
Hãy sửa chương trình để có kết quả là hàng trăm, hàng chục, hàng đơn vị. Mã chương trình: Program CHU_SO;. uses crt;. var n:integer;. begin. clrscr;. write ... Hoasenschool.edu.vn 10 phút trước 1658 Like
Hãy cùng gonhub.com tham khảo những mẫu bài tập Pascal hay dưới đây và tải về để rèn luyện khả năng của bản thân nhé. Mục lục. 1 1. Một số hình ảnh bài mẫu ... Gonhub.com 1 phút trước 170 Like |