bài tập pascal có lời giải

... Biên soạn: Th.s Nguyễn Anh Việt Trang 42 Bài tập Pascal – Từ đến nâng cao Các ôn tập – Phần Bài tập 13.01 Nhập số n, tìm số nguyên tố lớn = 10 11 Bài tập 13.03 Nhập số n số k, tìm k số nguyên ... Việt Trang 44 Bài tập Pascal – Từ đến nâng cao Các ôn tập – Phần Bài tập 14.01 Cho ma trận nguyên Anxn Hãy xây dựng ma trận B từ ma trận A cách loại bỏ đường chéo TD : 23 -> 78 Bài tập 14.02 Nhập ... Biên soạn: Th.s Nguyễn Anh Việt Trang 43 Bài tập Pascal – Từ đến nâng cao Bài tập 13.11 Nhập vào toạ độ điểm xét xem chúng có tạo thành tam giác hay không, có tính diện tích tam giác TD: * (-2,

Ngày tải lên: 13/09/2017, 10:28

... a[n] ) ; Readln ; 11 Bài tập ngôn ngữ lập trình PasCal END Biên soạn: Hoàng Đức Hà 12 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Bài tập chơng 3 Bài 1 : Dùng thủ ... la: ', S); 28 Bài tập ngôn ngữ lập trình PasCal Readln; END Biên soạn: Hoàng Đức Hà 29 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Bài tập chơng 6 Bài 1 : Bạn hãy ... cùng Bài giải: a ) Var S: string; 26 Bài tập ngôn ngữ lập trình PasCal i: integer; Biên soạn: Hoàng Đức Hà BEGIN Write('Cho mot xau S co... dem:=0; 18 Bài tập ngôn ngữ lập trình PasCal

Ngày tải lên: 21/06/2013, 01:26

... Đồ hoạ trong Pascal Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh WriteLn(‘Kết quả là: ’, FuncVar(x, y):2:2);  Đối số của CTC có kiểu Procedure Kiểu dữ liệu Procedure cũng có thể dùng làm ... thị {$F+} và {$F-} Phần 4, Đồ hoạ trong Pascal Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh  Không có khai báo Interrupt và câu lệnh Inline.  Không có các CTC lồng bên trong. Phần 2 2 CHUYỂN ... Đồ hoạ trong Pascal Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh V. UNIT NGƯỜI DÙNG 6. Ý NGHĨA UNIT là một thư viện chứa các chương trình con đã được cài sẵn. Trong Pascal có hai loại unit:

Ngày tải lên: 26/08/2013, 00:10

... ngữ Pascal là: A 16abc; B Hinh thang; C D15; D Program; Câu 49: Từ khóa để khai báo biến trong ngơn ngữ lập trình Pascal là: A Const B Var C Real D End Câu 49: Để chạy một chương trình Pascal ... trị khơng đổi trong suốt q trình thực hiện chương trình c) Có một số biến có sẵn trong chương trình, khơng cần khai báo d) Tên biến có độ dài tùy ý GV: Lê Bá Khánh Toàn 19 Tin hoc 8 Trường ... Writeln(‘x=’,dx/dd,’va y=’,dy/dd); End; Readln; End. Bài 11:Nhập vào tâm và bán kính của 1 đường tròn.Sau đó nhập vào một điểm A(x,y) bất kì và kiểm tra xem nó có thuộc đường tròn hay không? Program KIEMTRADIEMTHUOCDUONGTRON;

Ngày tải lên: 27/09/2013, 04:10

... readlnEND .Bài 14:Nhập vào 1 xâu kí tự và cho biết xâu vừa nhập vào có bao nhiêu nguyên âm và bao nhiêu kí tự số .Lời giải: uses crt;var s:string;dem1,dem2,i:byte;BEGINTrang 8Bài 15:Lập trình giải bài ... ',tong); readlnCó thể biến đổi đề bài của bài toán đi như: tính số phibonaci thứ n hoặc nhập vào 1 số kiểm tra xem số đó có phải là số phibonaci hay không…Các bài đó làm tương tự .Bài 19: Nhập số ... readlnEND .Bài 7:Nhập số có 3 chữ số tính tổng các chữ số của nó :Lời giải: uses crt;var a:integer;tong:byte;BEGIN tong:=tong+a mod 10;Trang 5 writeln('Tong cac chu so do la: ',tong); readlnEND.Bài

Ngày tải lên: 23/10/2013, 20:15

... readln END. Có thể biến đổi đề bài của bài toán đi như: tính số phibonaci thứ n hoặc nhập vào 1 số kiểm tra xem số đó có phải là số phibonaci hay không…Các bài đó làm tương tự. Bài 19: Nhập ... la: ',dem); readln END. Bài 17: Nhập 1 số n kiểm tra tính chẵn lẻ, xem số đó có chia hết cho 3 không,tổng các chữ số của nó có là bội của 6 không Lời giải: uses crt; var n,m,tong:integer; ... readln END. Bài 5: Nhập vào 1 số nguyên gồm 4 chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải là số nguyên tố không -kiểm tra xem có phải là số hoàn hảo không Lời giải: uses crt;

Ngày tải lên: 19/06/2014, 09:20

... <(,& . % v [...]... ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, bằng Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Function ... menu; Readln; End Trang 14 Bài 31: Tính các... length(st) do If x= st[i] then dem:=dem+1; Writeln('so lan xuat hien cua ',x,' trong chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết chương trình ... cac phan tu tren duong cheo phu la: ', sum2); Readln; End Bài 54: Viết chương trình nhập vào một ma trận vuông cấp n Kiểm tra xem ma trận có đối xứng hay không ? Program MA_TRAN_DOI_XUNG; Uses

Ngày tải lên: 07/07/2014, 22:00

... until abs(t)<eps; writeln(Tinh theo cong thuc Sin(x) = ',sinx); write('Tinh theo ham chuan cua Pascal Sin(x) = ',sin(x)); readin; END {Bai 2.50} Program Tinh_Cos_x; integer; t,coSx,x,eps ‘real; ... until abs(t)<eps; 'writeln('Tinh theo cong thuc Cos(x) = ',cosx); 'write(Tinh theo ham chuan cua Pascal Cos(x) = ',cos(x)); readin; END Trang 14 {Bai 2.51) Program Tinh_So_pi; var i:integer; ... until abs(t)<eps; writeIn(Tinh theo cong thuc Pi = ',sopi"4); 'write(Tinh theo ham chuan cua Pascal Pi = ',pi); readin; END {Bai 2.52} Program Tinh_I1_I2; var I1,12,i,S:integer; BEGIN repeat

Ngày tải lên: 24/07/2014, 03:21

... PHAN II LỜI GIẢI, ĐÁP ÁN Chương 1 Sử dụng biểu thức câu lệnh {Bai 1.1 Bạn đọc tự làm} {Bai 1.2} Program Pascal; BEGIN writeLn( /PASCAL) ; writeLn /PASCAL& #34;:11); writeLn (PASCAL' :16); writeLn (PASCAL' :21); ... writeLn /PASCAL& #34;:11); writeLn (PASCAL' :16); writeLn (PASCAL' :21); writeLn( /PASCAL' :26); readin; END {Bai 1.3 Ban đọc tự trả lời} {Bai 1.4} Program Pascal; var a,b: real; BEGIN 'write(Nhap vao so a);readln(a); ... writein(‘tg(’,goc,’)=",sin(goc*pi/180)/cos(goc*pi/180)); writeln(‘Cotg(’,goc,"}=',cos(goc*pi/180)/sin(goc*pi/180)); readin; END {Bai 1.16,17 giải tương tự nhau} Program Tong_cac_chu_so; var So,t:integer; BEGIN write(Nhap vao mot so co 2

Ngày tải lên: 24/07/2014, 03:21

... Bài tập cơ bản Tập I Các bài tập cơ bản Bài 1. Viết chơng trình nhập số nguyên dơng N<=1000 và N số nguyên A[1], ... sau: 1. Ba điểm A, B, C có lập thành một tam giác không? - 2 Bài tập cơ bản Tập I 2. Nếu ABC là một tam giác, hãy xét xem điểm D có nằm bên trong tam giác này không? Bài 20. Viết chơng trình ... quả cầu J. Bài 29. Có N lá Bài với các số hiệu 1, 2, . . ., N, N<=50, trên lá Bài i ghi một số nguyên dơng F[i], 1<=F[i]<=N. Hãy tìm một số nhiều nhất các lá Bài sao cho tập các số

Ngày tải lên: 07/08/2014, 11:20

... else để giải bài tập trên. Độ khó của bài toán sẽ tăng lên nhiều nếu thêm yêu cầu có thông báo khi hai số, ba số, bốn số bằng nhau. Trang: 7 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG Bài tập 2.3: ... TÙNG BÀI TẬP PASCAL BDHSG CHƯƠNG I CÁC KIỂU DỮ LIỆU CƠ BẢN KHAI BÁO HẰNG, BIẾN, KIỂU, BIỂU THỨC VÀ CÂU LỆNH B. BÀI TẬP: 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ó ... lệnh thành một lệnh ghép Trang: 13 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG CHƯƠNG III CÂU LỆNH CÓ CẤU TRÚC LẶP XÁC ĐỊNH B BÀI TẬP Bài tập 3.1: Viết chương trình in ra các số lẻ nhỏ hơn

Ngày tải lên: 25/01/2015, 12:00

... bạn có thể mô tả các bước đi của con sên trên màn hình đồ họa. Để đạt được mục đích đó số N cần được chọn không vượt quá 50. Mặc dù không yêu cầu nhưng những lời giải có mô phỏng đồ họa sẽ có ... của bài toán cho trong tệp B7.INP có dạng sau: - Dòng đầu tiên ghi số n - n dòng tiếp theo, mỗi dòng ghi 3 số thực A, B, C cách nhau bởi dấu cách. Kết quả của bài toán thể hiện trên màn hình. Bài ... N=3 chỉ có hai loại N-mino sau đây: 3-mino thẳng 3-mino hình thước thợ Chú ý: Gọi Mn là số các n-mino khác nhau thì ta có M 1 =1, M 2 =1, M 3 =2, M 4 =5, M 5 =12, M 6 =35, Yêu cầu bài giải đúng

Ngày tải lên: 21/04/2015, 17:00

... Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN BÀI TẬP CƠ BẢN - Đáp án ++ 1. Viết chương trình tính điểm trung bình 3 môn ... write('ucln ',ucln); write('bcnn ',a*b/ucln:1:1); Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN readln; end. 4. VCT giải hai bài toán cổ: 100 trâu 100 bó cỏ và vừa gà vừa chó 36 con 100 ... này lên mà chỉ hiện các dấu ‘*’ như kiểu mật khẩu. Hỏi có hiện mật khẩu không nếu có thì xuất mật khẩu vừa nhập ra. uses crt; Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN var s:string; ch,tl:char;

Ngày tải lên: 28/04/2015, 08:00

... (*=================================*) Bài tập Pascal có lời giải 13 Thầy gửi tài liệu này các em... j: integer; BEGIN Bài tập Pascal có lời giải 27 Thầy gửi tài liệu này các ... real; Bài tập Pascal có lời giải 21 Thầy gửi tài liệu này các em xem để học (0946873510-Hồng Nam Trung-mientrung19@gmail.com)... ket thuc '); Readln; End Bài 7 : Bài tập Pascal ... Trung-mientrung19@gmail.com) Bài tập Pascal có lời giải 1 BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN… * Bài 1 : Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của

Ngày tải lên: 21/05/2015, 17:00

... BÀI TẬP CHƯƠNG 1:CÂU LỆNH IF ….THEN… * Bài : Nhập số a , b , c Hãy kiểm tra xem ba số độ dài ba cạnh tam giác hay ... ban rut ra duoc la ', tien:12:2 ,' dong ') ; readln ; END * Bài 12 : Viết chương trình tìm ƯSCLN của N số được nhập từ bàn phím GIẢI Uses crt ; Var a : Array [1 100] Of Integer ; n , i : Byte ... Thoa man : Day la canh cua mot tam giac ') Else Writeln (' Khong thoa man ! ') ; Readln ; END * Bài : Nhập N số Đếm số lớn 10 nhỏ 20 tính tổng chúng Sau , đưa hình :So cac so >10 10 ) and (

Ngày tải lên: 12/11/2015, 07:33

... Writeln(l^.name); l:=l^.next; BÀI TẬP PASCAL 52 TRƯỜNG THCS ÂN HẢO GV:CAO VĂN QUANG End; Readln; End; BEGIN Nhap; Doicho; In_kq; END BÀI TẬP CHƯƠNG 10: ĐỒ HỌA Bài : Vẽ hình chữ nhật có tâm trùng với tâm ... Write(ch,' '); Readln; END BÀI TẬP CHƯƠNG 7: KIỂU RECORD Bài 1 : Thông tin về mỗi học sinh gồm : •  Họ đệm : một xâu 25 kí tự •  Tên : một xâu 10 kí tự BÀI TẬP PASCAL 8 35 TRƯỜNG THCS ÂN ... 'Tap S co ',Card(S),' phan tu.'); Readln; END BÀI TẬP PASCAL 8 31 TRƯỜNG THCS ÂN HẢO GV:CAO VĂN QUANG Bài 2 : Bạn hãy lập chương trình tạo một tập hợp các số nguyên chẵn kiểu Byte và loại

Ngày tải lên: 06/04/2016, 10:13

... readln; end Bt20 :Đệ qui quay lui và phương pháp nhánh cận Bài tóan tháp hà nội là một bài tóan cơ bản của thuật tóan đệ qui Bài tóan phát biểu đơn giản như sau : Cho 3 cọc A,B,C Coc A ... được sử dụng phép nâng lũy thừa lên 1/3.mở rộng bài tóan nhập vào n xuất ra tất cả các số có thể viết dưới dạng tổng của 2 số lập phương Giải bt14 program bt87_3; uses crt; var k,n,m,i,j,z:integer; ... (indirect recursion ) xảy hàm a() gọi hàm b() , sau hàm b() lại gọi hàm a() Pascal cho phép hàm đệ qui số trường hợp tỏ có ích Ví dụ phép đệ quy để tính giai thừa x!=x*(x-1)! program bt; uses crt;

Ngày tải lên: 20/04/2016, 14:58

... Bài thi tỉnh năm học 2014-2015 Bài tập: BOCSOI Bốc sỏi (6 điểm) Thầy Vinh thích sưu tầm sỏi Nhất viên có màu sắc rực rỡ, đẹp mắt Hiện thầy có n viên sỏi xếp thành hàng ... trinh co nghiem: x[...]... ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, bằng Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Function ... Trang End Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac') ; Readln; Bài 4: Viết chương trình giải phương trình bậc (ax + b = 0) Program GIAI_PHUONG_TRINH_BAC_NHAT; Var a,b,x:real;

Ngày tải lên: 25/11/2016, 10:27

... THPT Hoàng Văn Thụ Nha Trang Bài tập pascal đến nâng cao theo chương trình TIN HỌC lớp 11 không phân ban Nhằm giúp bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal cách dễ dàng vận dụng ... 3/2011 ĐT: 0972.311.481 Trang Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Phần I: CÁC BÀI TẬP CƠ BẢN Bài 1: Tìm giá trị lớn số a, b, c, d (a, b, c, nhập từ bàn phím) Program Program TIM_SO_LON_NHAT; ... THPT Hoàng Văn Thụ Nha Trang Bài 5: Nhập vào số nguyên gồm chữ số viết chương trình thực  Kiểm tra tình chắn lẻ  Kiểm tra xem có phải số nguyên tố không  Kiểm tra xem có phải số phương không Sau

Ngày tải lên: 22/07/2017, 17:32

... Bài 1: Với số thực x nhập vào từ bàn phím tính tổng sau: TONG = − x3 x6 x9 x 3n + − + + (−1) n ... ',S:0:3); WRITE('BAN CO MUON TIEP TUC KHONG? (C/K): '); READLN(CHON); UNTIL UPCASE(CHON)='K'; END Bài 2: Cho dãy số un mà phần tử xác định sau: xn un = n! un = ( x − 1) n n! Nếu n lẽ Nếu n chẵn ... ELSE BEGIN T2:=T2*((X-1)/N); S2:=S2+T2; END; INC(N); END; WRITE('S = ',S1+S2:0:3); READLN; END BÀI 3: Cho hai số tự nhiên k, n (kA[K,J] THEN BEGIN TG:=A[K,I]; A[K,I]:=A[K,J]; A[K,J]:=TG; END;

Ngày tải lên: 07/01/2020, 15:25