1 số bài tập pascal cơ bản

... 10 0 bài tập Turbo Pascal BÀI TẬP TURBO PASCAL 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 ... end Trang 22 10 0 bài tập Turbo Pascal Bài tập 4.6 Dãy Fibonacy có hai phần tử đầu là 1, 1 Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13 , 21, Viết chương ... sắp xếp. Bài tập 1. 10: Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị của một số có ba chữ số. Ví dụ khi nhập số 357 thì máy in ra: - Chữ số hàng trăm: 3. - Chữ số hàng chục:

Ngày tải lên: 08/06/2015, 23:27

... Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write('.. .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 BANG_SO; Uses crt; Var i,j,n:integer; Begin Clrscr; ... kq: =1; For i: =1 to n do kq:=kq*i; gt:=kq; End; Function C(k,n:integer):real; Begin C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write('.. .Bài ... [...]... ',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 gt(n:integer):longint;

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

... 18 4 96 12 8 ô i,j 8 0 1 1 58 10 9 19 4 64 32 16 1 1 0 12 13 4 13 1 Hình 1 Hình 2 (bên trái: MIN1, bên phải: MIN2) - 3 Bài tập cơ bản Tập I Ta ứng các ô này với các số 1, 2, 4, 8, 16 , 32, 64, 12 8 nh ... A [1] A[2]A[3] 11 A [1] A[2]A [10 ]A [11 ] ab A [1] A[8]A[5] cd A [1] A[8]A[9]A[3] ef A [1] A[8]A[9]A [10 ]A [11 ] abc A[4]A[5] def A[4]A[9]A[3] a b c d e f A[4]A[9]A [10 ]A [11 ] A[6]A[7]A[2]A[3] A[6]A[7]A[2]A [10 ]A [11 ] ... 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< =10 00 và N số nguyên A [1] , . . ., A[N]. Hãy thông báo ra màn hình các số sau: - Giá trị

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

... 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 15 16 17 18 19 Program BANG_SO; ... %*&69O  C  6  e Z> **#  ? ?1? ??/0H/D)/? ?1? ??)2 03*%2 4*56*32 3 **2 8*%39@ )1) ? ?1? ??  0H  D)? ?1? ??  ? ?1? ??1cCWAZ@>2 8*%39@??????????????????????????????????????????????????????????????????????@>2 ... %*&  69O  C  6AZ> **#   )1) /0H/D)/? ?1? ??/? ?1? ??2 4*  565O*32 3 **2 8*%39@ )1) 0HD)? ?1? ??? ?1? ??1cC  AZ@>2 8*%39@????????????????????????????????????????????????????????????@>2

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

... 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 BANG_SO; Uses crt; Var i,j,n:integer; Begin Clrscr; Writeln(' ... trong bảng chọn lệnh sau: 0 Không làm gì hết và trở về màn hình soạn thảo 1 Tính diện tích hình vuông 2 Tính diện tích... menu; Readln; End Trang 14 Bài 31: Tính các số Fibonacci: - F1=F2 = 1 - ... trận a 11. x + a12.y = c1 a 21 + a22.y = c2 Bài 37: Hãy viết chương trình nhập giá trị cho ma trận vuông cấp n a Tính tổng các phần tử nằm trên đường chéo chính b Tính tổng bình... Readln; End Bài

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

... 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; ... Trang 15 Bài 33: Tính tổng S =  1 n (dùng chương trình con) i=0 i! Program TONG1; Uses Crt; Var i,n:integer; s:real; Function gt(n:integer):longint; Var kq,i:integer; Begin kq: =1; For i: =1 to ... Begin kq:=0; For i: =1 to n do For j: =1 to n do If (j mod 2 =1) and (a[i,j]>=0)then kq:=kq + SQRT(a[i,j]); Sum3:=kq; End; Trang 18 {So phan tu cua ma tran co gia tri nam trong [1 5]} Function Count(a:MT;n:integer):integer;

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

... 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 a,b,s,c: ... 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 ' Khong la ba canh ... 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

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

... X,S1,S2,T1,T2:REAL; N:WORD; BEGIN CLRSCR; WRITE('X = '); READLN(X); S1:=0; S2:=0; T1:=X; T2: =1; N: =1; WHILE (ABS(T1)>=0.0000 01) AND (ABS(T2)>=0.0000 01) DO BEGIN IF ODD(N) THEN BEGIN S1:=S1+T1; ... BEGIN FOR J: =1 TO M DO WRITE(B[I,J]:8 :1) ; WRITELN; END; READLN; END Bài 14 : Cho ba số tự nhiên M, P, N ba mảng hai chiều số thực A [1 M ,1 P], B [1 P ,1 N] C [1 M ,1 N] Hãy thực công việc sau: - Nhập ... LY'); FOR I: =1 TO M DO BEGIN FOR J: =1 TO N DO WRITE(A[I,J]:8 :1) ; WRITELN; END; READLN; END Bài 13 : Cho số tự nhiên N mảng hai chiều số thực A [1 N ,1 N] Hãy chuyển vị ma trận A PROGRAM BAI _13 ; USES

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

... cho các? ?bài? ?kiểm tra về mơn tin học Nha trang tháng 3/2 011 ĐT  :  0972. 311 .4 81 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) ... 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  ... 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ố 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 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 ... 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 : In phiếu báo điểm Bài 20: Nhập số thực tính phép tính theo yêu cầu Bài 1: In số chẵn ... 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 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

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

... For tg:=0 to 10 0 If ((5*td+3*tn+tg/3 =10 0)and (td+tn+tg =10 0)) then Writeln(td:6, tn :12 , tg :15 ); Readln; End (10 )Bài 23: Tạo bảng số dạng sau: 0 10 11 12 13 14 15 16 17 18 19 Program ... gt: =1; lt: =1; For i: =1 to n Begin End; lt:=lt*x ; gt:=gt*i; s:=s+lt/gt ; End Writeln('Tong S = ',s:8:2); Readln; Bài 18 : Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( ... S:=S+ (1+ lt(x,i))/gt (1+ i); Writeln('Tong la: ',s:6:2); Readln; Bài 36: Giải hệ phương trình: Viết chương trình giải hệ phương trình tuyến tính ẩn dùng ma trận a 11. x + a12.y = c1 a 21 + a22.y

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

... ok:=true; For i: =1 to n For j:=i +1 to n (10 3) (10 4) (10 5) (10 6) (10 7) (10 8) (10 9) (11 0) (11 1) (11 2) (11 3) (11 4) (11 5) (11 6) (11 7) (11 8) (11 9)End; Clrscr; (12 0)khong doi xung'); End Writeln('KIEM TRA MA TRAN ... For tg:=0 to 10 0 If ((5*td+3*tn+tg/3 =10 0)and (td+tn+tg =10 0)) then Writeln(td:6, tn :12 , tg :15 ); Readln; End (19 )B i : Tạo bảng số dạng sau: 0 10 11 12 13 14 15 16 17 18 19 Program BANG_SO; ... If a[i].tuoi>a[j].tuoi then Begin (12 8) (12 9) (13 0) (13 1) (13 2) (13 3) (13 4) (13 5) (13 6) (13 7) (13 8) (13 9) (14 0)End; t:=a[i]; a[i]:=a[j]; a[j]:=t; Trang 36 (14 1)W r i t e l n ( ' S A P X E P D A N H

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

... 4: 11 1 11 2 11 3 11 4 12 1 12 2 12 3 12 4 … Chú ý: số chỉnh hợp lặp chập k n phần tử = nk. b) Hãy liệt kê tất chỉnh hợp không lặp chập n phần tử (1, 2, 3, …, n) Ví dụ với n = 4: 12 3 12 4 13 2 13 4 14 2 ... có n số ngun cách nhiều dấu cách Ví dụ: Tập tin MaTran.Inp Ma trận tam giác Ma trận tam giác 12 18 12 18 12 -3 21 54 39 21 54 39 -3 21 -2 61 48 32 48 32 -2 61 48 19 16 33 33 19 16 33 ... số hình 4 .10 Đọc từ bàn phím dãy n số thực (n < 10 ) Xếp số lớn lên đầu dãy, số bé nhất, đến số lại Đưa hai dãy số hình 4 .11 Nhập dãy n số nguyên (n < 30) số ngun x Tìm dãy có số bằng x

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

... check:=(a=b); If check then Write(' (1+ 1/2 016 ) mu 2 017 bang (1+ 1/2 017 ) mu 2 016 ') Else Write(' (1+ 1/2 016 ) mu 2 017 nho hon (1+ 1/2 017 ) mu 2 016 '); End; Readln; End 10 - Không dùng thuật toán xử lý mảng ... dùng biến đơn, lập trình in lên hình bảng ziczac chứa 10 0 số tự nhiên (Bạn có làm 10 phút không?) 012 3456789 10 11 12 13 14 15 16 17 18 19 -90 91 92 93 94 95 96 97 98 99 KHÔNG THỂ CÓ ... 250000, Vatly1 10 0000, Anh2 15 0000, MachIC 80000'; Var so1,so2,so3,so4:longint;k1,k2,k3,k4:integer; Begin Clrscr; Writeln('Xau cho truoc:',s); val('250000',so1,k1); val( '10 0000',so2,k2); val( '15 0000',so3,k3);

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

... Write(' (1+ 1/2 016 ) mu 2 017 lon hon (1+ 1/2 017 ) mu 2 016 ') Else Begin check:=(a=b); If check then Write(' (1+ 1/2 016 ) mu 2 017 bang (1+ 1/2 017 ) mu 2 016 ') Else Write(' (1+ 1/2 016 ) mu 2 017 nho hon (1+ 1/2 017 ) ... lên hình bảng ziczac chứa 10 0 số tự nhiên (Bạn có làm 10 phút không?) 012 3456789 10 11 12 13 14 15 16 17 18 19 -90 91 92 93 94 95 96 97 98 99 KHÔNG THỂ CÓ CODE NÀO NGẮN HƠN CODE DƯỚI ĐÂY! ... 250000, Vatly1 10 0000, Anh2 15 0000, MachIC 80000'; Var so1,so2,so3,so4:longint;k1,k2,k3,k4:integer; Begin Clrscr; Writeln('Xau cho truoc:',s); val('250000',so1,k1); val( '10 0000',so2,k2); val( '15 0000',so3,k3);

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

... 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 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 : Tìm giá trị lớn số Bài 18 : Xem ngày thứ tuần Bài 19 : In ... 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 số chẵn

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

... 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 a,b,s,c: ... 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 ' Khong la ba canh ... 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;

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

... 18 4 96 12 8 ô i,j 8 0 1 1 58 10 9 19 4 64 32 16 1 1 0 12 13 4 13 1 Hình 1 Hình 2 (bên trái: MIN1, bên phải: MIN2) - 3 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập cơ bản Tập I 10 1 2 3 4 ... dụ: DÃy số 1 5 9 13 12 8 4 2 3 7 11 15 14 10 6 là dÃy hình sin bậc M=3, dÃy đó đợc phân chia thành 4 đoạn: Đoạn 1: 1 5 9 13 Đơn điệu tăng Đoạn 2: 13 12 8 4 2Đơn điệu giảm Đoạn 3: 2 3 7 11 15 Đơn ... tập cơ bản Tập I Ví dụ với file INP.TXT 4 1 1 4 4 31 27 26 1 27 26 22 5 8 22 13 4 12 20 14 3 file OUT.TXT sẽ là 3 3 3 4 Với file INP.TXT 4 1 1 3 4 1 29 26 1 29 26 19 5 8 19 14 7 12 20 14 5 file...

Ngày tải lên: 24/06/2013, 01:28

... Readln(n); Write('Nhap vao x= '); Readln(x); 11 Giáo trình bài tập Pascal A B A AND B A OR B A XOR B NOT A 1 1 1 1 0 0 1 0 0 1 1 0 0 1 0 1 1 1 0 0 0 0 0 1 • SHL (phép dịch trái): a SHL n ⇔ a × 2 n • ... giai thừa} S1 = 1 + 1/ 2 + + 1/ n S2 = 1 + 1/ 2! + + 1/ n! S3 = 1 + x + x2/2! + x3/3! + + xn/n! S4 = 1 - x + x2/2! - x3/3! + + ( -1) n x n /n! S5 = 1 + sin(x) + sin 2 (x) + + sin n (x). Bài tập 3.20: ... số thực 3 .1. Các kiểu số thực : Tên kiểu Phạm vi Dung lượng Single 1. 5 10 -45 → 3.4 10 +38 4 byte Real 2.9 10 -39 → 1. 7 10 +38 6 byte Double 5.0 10 -324 → 1. 7 10 +308 8 byte Extended 3.4 10 -4932 ...

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

... 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 dương ... duong e<0. 01: '); readln(e); until (e>0) and (e<0. 01) ; s5: =1; i: =1; while 1/ (2*i +1) >e do begin if i mod 2=0 then s5:=s5 +1/ (2*i +1) else s5:=s5 -1/ (2*i +1) ; i:=i +1; end; writeln('ket ... qua la: ',s4:0:4); readln END. Bài 23: Nhập số thực dương e(e<0. 01) rồi tính tổng S5= 1- 1/ 3 +1/ 5 -1/ 7+…+( -1) n /(2*n +1) (dừng khi 1/ (2*n +1) <e) Lời giải: uses crt; var s5,e:real;i:integer; BEGIN ...

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