tuyển tập 61 bài tập pascal cơ bản

... Tổng Hợp 61 Bài Tập Pascal Có Lời Giải ST Bài 1: Nhập vào cạnh hình chữ nhật In hình diện tích chu vi Program HINH_CHU_NHAT; ... Write('Nhap bac cua da thuc a=... ',c(n,k):6:0); Readln; End k Bài 29: Lập tam giác PASCAL, bằng Cn (dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Function gt(n:integer):longint; ... Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write(' Nhap n = '); readln(n); For i:=0 to n do Begin For j:=0 to i do Write(C(j,i):3:0); Writeln; Readln; End; End Bài 30: Viết các chương

Ngày tải lên: 02/06/2016, 16:52

... Writeln('C(',n,',',k,') = ',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 ... C(k,n:integer):real; Begin C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' .. .Bài 23: Tạo bảng số dạng sau: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Program ... Begin If (i mod 10 = 0) then Writeln; Write(i:3) End; Readln; End Bài 24: Tạo hình a) * ** *** **** ***** b) *****... End Bài 26: Tính an (dùng chương trình con) Program LUY_THUA; Uses Crt;

Ngày tải lên: 02/11/2015, 17:33

... ');readln(k); Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; Bài 29: Lập tam giác PASCAL, Cnk(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; (13)Function gt(n:integer):longint; ... not eof(f) Begin End End; Readln; read(f,i); write(i:3); Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình Program COPY_FILE; (38)Uses Crt; Var ... Close(f2); Readln; Read(f2,i); Write(i:3); Bài 61 Viết chương trình tạo file F3 chứa số nguyên cách nối hai file số nguyên F1 F2 có đĩa In nội dung tập tin hình Program GHEP_FILE; Uses Crt;

Ngày tải lên: 09/02/2021, 13:06

... not eof(f) Begin End End; Readln; read(f,i); write(i:3); Bài 60 : Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình Program COPY_FILE; (143)Uses Crt; ... Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; B i : Lập tam giác PASCAL, Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; (25)Function gt(n:integer):longint; ... (100*i+10*j+k)=(i*i*i + j*j*j + k*k*k) then Writeln(i,j,k,' = ',i,'^3 + ',j,'^3 + ',k,'^3'); End Readln; Bài 19 : Nhập vào số ngun khơng âm, kiểm tra xem có phải số nguyên tố hay không? Program SO_NGUYEN_TO;

Ngày tải lên: 02/04/2021, 08:46

... Bài 1: Nhập vào cạnh hình chữ nhật In hình diện tích chu vi Program HINH_CHU_NHAT; Uses Crt; Var ... 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 hình trịn In hình diện tích chu vi Program HINHTRON; Uses Crt; Var r,dt,cv:real; ... Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2); Readln; End Bài : Tính tam giác: Nụâp vào ba số a,b,c Kiểm tra xem độ dài ba cạnh hay khơng, khơng in hình '

Ngày tải lên: 25/03/2022, 09:18

...  " # $%45& /(,01666666666666666666666666666666666666666666666666666666666666 6615 & /(07  (  875&  (,05& /(07  (  875&(,0+5& ... +QG(G8+& P  QG(G8& /(,07`  ,  ,7*GT5& <(,& Bài 8 : %=]  b  DT  'C*+*  *0*+**  HLM_+  ... (  (  75& /(,07G87*GRT*7    I87*IRT5& . <(,& Bài 10     dUJ     H   ,GBI eIIF Hf K

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

... Trang 1Bài tập pascal cơ bản dành cho hs-svthiết kế bởi: Vũ Đức Quang for i:=1 to n do begin if i mod 2=0 then ... 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ố nguyên ... 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

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

... Bài tập pascal cơ bản dành cho hs-sv thiết kế bởi: Vũ Đức Quang Bài 1: Viết chương trình nhập vào 1 số N nguyên dương và in ra ... 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 số nguyên ... ',s,' co ',dem1,' nguyen am va co ',dem2,' ki tu so'); readln END. Bài 15: bài toán cố sau Vừa gà vừa chó Bó lại cho tròn Ba mưoi sáu con Một trăm chân chẵn Lời

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

... 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], ... hình các ô vuông có điểm chung - 1 Bài tập cơ bản Tập I với đờng chéo của hình chữ nhật đi từ góc trái trên của ô [1,1] đến góc phải dới của ô [M,N]. Bài 9. Viết chơng trình nhập số nguyên ... 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 nhập số nguyên dơng

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

... Writeln('C(',n,',',k,') = ',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 ... C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' ... Writeln(td:6, tn:12, tg:15); Readln; End Trang 9 Bài 23: Tạo bảng số dạng sau: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ... Write(i:3) End; Readln; End Bài 24: Tạo hình a) * ** *** **** ***** b) *****... readln(n); For i:=0 to n do Begin For j:=0 to i do Write(C(j,i):3:0); Writeln; End; Readln; End Bài 30: Viết các chương

Ngày tải lên: 06/02/2015, 08:00

... 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 ... C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write('... Writeln; End; Readln; End Bài 30: Viết các chương trình con tính diện tích tam giác, tròn, ... Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2); Readln; End Bài : Tính tam giác: Nụâp vào ba số a,b,c Kiểm tra xem độ dài ba cạnh hay không, không in hình '

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

... tich tam giac:',s:4:2); End Else Học Tập Long An – HocTapLongAn.Com 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 ... 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 hình tròn In hình diện tích chu vi Program HINHTRON; Uses Crt; Var r,dt,cv:real; ... Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2); Readln; End Bài : Tính tam giác: Nụâp vào ba số a,b,c Kiểm tra xem độ dài ba cạnh hay không, không in hình '

Ngày tải lên: 17/07/2017, 13:26

... 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

... Trần Văn Chung trường THPT Hồng Văn Thụ Nha Trang Bài? ?tập? ?pascal? ?cơ? ?bản? ?đến nâng cao theo chương trình TIN  HỌC lớp 11 khơng phân ban Nhằm giúp các bạn học sinh lớp 11 tiếp cận với ngơn ngữ lập trình? ?Pascal? ?một cách dễ  dàng và vận dụng vào các ngơn ngữ lập trình khác trong tin học, tơi sưu tầm và biên soạn một  ... ĐT  :  0972.311.481 Trang 1 Trần Văn Chung trường THPT Hồ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 nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím)  Program Program TIM_SO_LON_NHAT; ... dàng và vận dụng vào các ngơn ngữ lập trình khác trong tin học, tơi sưu tầm và biên soạn một  số? ?bài? ?tốn? ?cơ? ?bản? ?đến nâng cao có trong chương trình của lớp 11 khơng  phân ban. Các  chương trình nhằm mục đích tham khảo cho các bạn ham mê tin học và là tài liệu chuẩn bị  cho các? ?bài? ?kiểm tra về mơn tin học

Ngày tải lên: 30/01/2020, 16:57

... số tập Pascal từ đến phức tạp mà Quantrimang.com tổng hợp lại, hy vọng việc học bạn dễ dàng đơi chút Bài tập Pascal có giải Bài 1: In số chẵn hình Bài 2: Tính, in tổng, hiệu, tích, thương số Bài ... khơng Bài 4: Giải phương trình bậc Bài 5: Kiểm tra số chẵn lẻ, ngun tố, hồn hảo Bài 6: Tính ăn bậc n số Bài 7: Tỉnh tổng chữ số số Bài 8: Hoán vị số Bài 9: In bội Bài 10: In tổng chữ số số Bài ... nguyên tố Bài 12: Kiểm tra số hoàn hảo Bài 13: Kiểm tra số phương Bài 14: Đếm nguyên âm, số chuỗi Bài 15: Kiểm tra số có độ dài cạnh tam giác không Bài 16: Đếm số theo điều kiện tính tổng Bài 17:

Ngày tải lên: 04/07/2020, 20:33

... * Tập H chứa chữ hoa * Tập S chứa chữ số * Tập C chứa kí tự cịn lại c) Đưa hình số lượng phần tử liệt kê phần tử tập hợp 6.3 Tìm số ngun tố khơng vượt N (N < 255) sàng Eratosthene với tập ... kiểu liệu tập hợp số nguyên dương, với phép tính: a) Kiểm tra phần tử có thuộc tập hợp hay khơng b) Kết nạp phần tử vào tập hợp loại bỏ phần tử khỏi tập hợp c) Tìm phần hợp, giao, bù hai tập hợp ... KIỂU TẬP HỢP (SET) (10)6.2 a) Nhập số nguyên dương N (N < 30) Nhập từ bàn phím N kí tự, cho khơng có hai kí tự trùng Nếu gõ trùng thơng báo kí tự có b) Phân N kí tự nói vào tập con: * Tập

Ngày tải lên: 28/04/2021, 14:20

... Các tập Pascal bản, KINH ĐIỂN, khó, RẤT KHÓ & RẤT THÚ VỊ (Đặc biệt phần GRAPHIC phần GRAPH THEORY ) PHẦN I- CÁC BÀI TOÁN CƠ BẢN A/ LẬP TRÌNH KHƠNG DÙNG CẤU TRÚC ... Ans In ['n','N']; End 8- (BÀI TOÁN NGƯỢC CỦA BÀI 7) Lập trình cho viết số Thập Phân tương ứng số La Mã đọc từ bàn phím vào Ví dụ vào: MMXVII, ra: 2017 (BÀI NÀY KHĨ HƠN BÀI TRÊN) Program LaMa_ThapPhan; ... Readln; End 3-Không dùng cấu trúc nào, so sánh hai số đọc từ bàn phím vào Thầy Trần Thông Quế (Bài kiểm tra hiểu biết hs cách dùng toán tử gán đồng thời với toán tử quan hệ dòng lệnh) Uses crt;

Ngày tải lên: 20/05/2021, 02:07

... Các tập Pascal bản, KINH ĐIỂN, khó, RẤT KHÓ & RẤT THÚ VỊ (Đặc biệt phần GRAPHIC phần GRAPH THEORY ) PHẦN I- CÁC BÀI TOÁN CƠ BẢN A/ LẬP TRÌNH KHƠNG DÙNG CẤU TRÚC ... Ans In ['n','N']; End 8- (BÀI TOÁN NGƯỢC CỦA BÀI 7) Lập trình cho viết số Thập Phân tương ứng số La Mã đọc từ bàn phím vào Ví dụ vào: MMXVII, ra: 2017 (BÀI NÀY KHĨ HƠN BÀI TRÊN) Program LaMa_ThapPhan; ... sach:',so1+so2+so3+so4); Readln; End 3-Không dùng cấu trúc nào, so sánh hai số đọc từ bàn phím vào (Bài kiểm tra hiểu biết hs cách dùng toán tử gán đồng thời với toán tử quan hệ dịng lệnh) Thầy Trần

Ngày tải lên: 20/05/2021, 02:07

... Bài tập Pascal có giải Bài 1: In số chẵn hình Bài 2: Tính, in tổng, hiệu, tích, thương số Bài 3: Kiểm tra xem tam giác có cân, vng khơng Bài 4: Giải phương trình bậc Bài 5: Kiểm tra ... tố, hồn hảo Bài 6: Tính ăn bậc n số Bài 7: Tỉnh tổng chữ số số Bài 8: Hoán vị số Bài 9: In bội Bài 10: In tổng chữ số số Bài 11: Kiểm tra số nguyên tố Bài 12: Kiểm tra số hoàn hảo Bài 13: Kiểm ... số phương Bài 14: Đếm nguyên âm, số chuỗi Bài 15: Kiểm tra số có độ dài cạnh tam giác không Bài 16: Đếm số theo điều kiện tính tổng Bài 17: Tìm giá trị lớn số Bài 18: Xem ngày thứ tuần Bài 19:

Ngày tải lên: 24/10/2021, 16:32

... b:=tam; writeln(‘gia tri a=’,a); writeln(‘gia tri b=’,b); readln; end Bài 6: Viết chương trình nhập số a b Tìm giá trị lớn nhỏ số Bài 7: Viết chương trình nhập số từ bàn phím, tìm số lớn số đó, in ... s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(‘chu vi=’,cv:9:2); writeln(‘dien tich=’,s:9:2); readln; end Bài 5: Viết chương trình nhập vào hai số a, b sau hoán đổi giá trị hai số var a,b,tam:integer; begin ... max:=a; if b>max then max:=b; if c>max then max:=c; writeln(‘so lon nhat la:’,max); readln; end Bài 8: Viết chương trình nhập vào số N Kiểm tra N chẵn hay lẻ var N:Integer; begin write(‘nhap N):’);readln(N);

Ngày tải lên: 07/08/2022, 07:48