các bài tập pascal về mảng 1 chiều

... So:= So:= So:= 10 11 12 13 14 15 ; Ch, ' he ', m, ' doi sang he 10 la ', STP); Biên soạn: Th.s Nguyễn Anh Việt Trang 41 Bài tập Pascal – Từ đến nâng cao Các toán cổ Bài tập 12 . 01 Trăm trâu trăm ... End Bài tập 11 .02 – Đổi số thập lục phân (hệ 16 ) thành số thập phân: Để đổi số thập phân thành số hệ 16 ta thực sau: Tính luỹ thừa 16 16 16 = 16 F 15 9 Các giá trị A, B, …, F => 10 , 11 , … , 15 ... 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 tố nhỏ >= n TD: n = 10 k = 3,

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

... phím: 11 111 111 111 110 011 00 011 000000000 011 000000 011 00 011 110 000000 00 011 0000 011 0000 011 0 011 110 010 011 111 10 010 111 00000000000000 11 1 011 010 1 Kết cần đa h×nh: Tran 1: Sec 1: A -15 B-2 Sec 2: A-4 B -15 Sec ... 16 bảng có mặt tất số từ đến 25 Nếu bảng khơng tìm đợc cách điền ghi “KHONG CO LOI GIAI” B¶ng B¶ng B¶ng 16 ? 13 16 ? 13 17 24 ? ? 15 11 10 11 15 23 ? 14 16 ? ? ? 12 ? ? 13 20 22 ? 14 ... 6 1 2 10 3 11 4 10 0 5 10 000 011 0 10 0 Läc biÕn Bảng tra cứu mã trao đổi thơng tin ( Tut mËt) Dòng bít Giá trị 00000 000 01 00 010 00 011 0 010 0 0 010 1 0 011 0

Ngày tải lên: 13/04/2021, 23:03

... THC TIN 1. 1 C s lý lun v k nng 1. 1 .1 Khỏi nim v k nng 1. 1.2 Khỏi nim v k nng gii bi Tin hc 1. 1.3 Cỏc giai on ca vic hỡnh thnh k nng gii bi Tin hc 1. 1.4 Khỏi nim ... 35 16 12 15 17 83 35 10 15 13 15 - Khi cha dng k nng gii bi tin hc cho hc sinh hai lp l 81 v lp 83 thỡ: + lp 81: s s ca lp l 35, ban u s hc sinh gii l t 20%; s hc sinh khỏ l 16 t 45, 71% ; s hc ... THNG BI TP PASCAL 2 .1 Mc tiờu ca chng trỡnh Tin hc phn Pascal .9 2 .1. 1 Cu trỳc ca chng trỡnh Tin hc 2.2.2 Mc tiờu ca chng trỡnh Tin hc 10 2.2 Cỏc bc lm bi 10 2.4 Nhng

Ngày tải lên: 23/08/2017, 10:14

... Trường THCS Minh -Tân 10 0 bài tập Turbo Pascal - Đề xuất các bài tập hay hơn để thay thế cho các bài tập đã có ở tập tài liệu. Các bài tập mà tập tài liệu còn thiếu. CHƯƠNG I CÁC KIỂU DỮ LIỆU CƠ ... 4). 3. Kiểu 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 Giáo viên: ... + Đối với dạng 1: Không làm gì cả + Đối với dạng 2: thực hiện lệnh Sn +1 B BÀI TẬP: Giáo viên: Nguyễn Thị Nga - Trường THCS Minh -Tân 10 0 bài tập Turbo Pascal Bài tập 2 .1: Viết chương

Ngày tải lên: 24/11/2013, 03:11

... dụ, với N=5 ta có: 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 14 23 22 21 8 13 12 11 10 9 26 Giáo trình bài tập Pascal Chương 4 CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀM I KHÁI NIỆM VỀ CHƯƠNG TRÌNH ... 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 → 1. 1? ?10 +4932 10 byte Chú ý: Các kiểu số thực Single, ... Các phép toán xử lý bit: Trên các kiểu ShortInt, Integer, Byte, Word có các phép toán: • NOT, AND, OR, XOR. A B A AND B A OR B A XOR B NOT A 6 Giáo trình bài tập Pascal 1 1 1 1 0 0 1 0 0 1 1

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

... dụ, với N=5 ta có: 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 14 23 22 21 8 13 12 11 10 9 26 Giáo trình bài tập Pascal Chương 4 CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀM I KHÁI NIỆM VỀ CHƯƠNG TRÌNH ... 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 → 1. 1? ?10 +4932 10 byte Chú ý: Các kiểu số thực Single, ... Các phép toán xử lý bit: Trên các kiểu ShortInt, Integer, Byte, Word có các phép toán: • NOT, AND, OR, XOR. A B A AND B A OR B A XOR B NOT A 6 Giáo trình bài tập Pascal 1 1 1 1 0 0 1 0 0 1 1

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

... sau có hợp lý không a For i = 1 to 10 0 do writeln(‘A’) b For i = 1. 9 to 1 do writeln(‘A’) c For i = 10 to 1 do writeln(‘A’) d For i = 1 to 10 .8 do writeln(‘A’) Câu 12 : Điền vào những chỗ trỗng ... Begin Clrscr; Tich: =1; For i: =1 to 10 do begin tich:=tich*i; i:=i +1; end; writeln(‘tich cua 10 so tu nhien dau tien la=’,tich); readln; End. Bài 21: Viết chương trình tính tổng của 10 0 số tự nhiên ... tệp này d) Cà hai cách ở hai câu a và c Câu 7: Trong các tên sau, tên nào là hợp lệ trong ngôn ngữ Pascal: ... do ( giá trị đầu) to ( giá trị cuối) for; Câu 11 : Các câu lệnh pascal sau có hợp

Ngày tải lên: 02/12/2013, 07:11

... chương trình Sau đó hỏi chọn một trong các phương án tính diện tích bằng cách.. .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 ... Trang 14 Bài 31: Tính các số Fibonacci: - F1=F2 = 1 - Fn = Fn -1 + Fn-2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F(n:integer):integer; Begin If (n =1) or (n=2) then F: =1 Else ... ');readln(st); If st [1] =' ' then dem:=0 Else dem: =1; Trang 33 For i: =1 to length(st ) -1 do If (st[i] = ' ')and (st[i +1] ' ') then dem:=dem +1; Writeln('So tu trong chuoi la: ',dem); Readln; End Bài 57:...

Ngày tải lên: 18/04/2014, 15:00

... dem:=dem +1; c. C¸c thao t¸c xö lÝ kh¸c VÝ dô : §Õm sè ngµy cã nhiÖt ®é cao h¬n nhiÖt ®é TB cña tuÇn. TB = 18 .7 Dem=0 76543 21 i 19 1 719 211 82 017 A[i] 0 1 1 2 3 3 4 20 21 19 19 +1 +1 +1+ 1 Program ... readln(A[i]); end; Các bớc Thể hiện bằng pascal a. Nhập mảng một chiều với n = 7 19 1 719 211 82 017 Ví dụ: Nhập nhiệt độ n ngày. b. In mảng một chiều Writeln( Mang vua nhap : ); For i: =1 to n do Write(A[i]:5); ... 16 25 18 12 19 S = 45 Thông thường, các thao tác xử lí trong mảng một chiều đều dùng câu lệnh FOR DO Hãy nhớ! 15 20 19 25 18 12 16 Mảng một chiều là một dãy hữu hạn các phần tử cùng

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

... Bài 3 :Cho số tự nhiên n , hãy lập trình để tính các tổng sau : a. 1 + 1/ 2 2 + 1/ 3 2 + … + 1/ n 2 b. 1 + 1/ 2! + 1/ 3! + … + 1/ n! Bài 4 :Tính giá trò của biểu thức sau : ( 1 + 1/ 1 2 ) ( 1 ... 1 + 1/ 1 2 ) ( 1 + 1/ 2 2 ) … ( 1 + 1/ n 2 ) Sử dụng lệnh While Bài 5 :Lập trình tính tổng : A = 1 + 1/ 2 + 1/ 3 + … + 1/ n ở đây n là số tự nhiên được nhập vào từ bàn phím . Bài 6 :Tính hàm lũy ... tích các số nguyên tố ) 3. Thoát khỏi chương trình . CÊU TRóC D÷ LIƯU KIĨU M¶NG Bài 1 :Giải hệ phương trình tuyến tính hai ẩn dùng ma trận : a 11 x + a 12 y = c 1 a 21 x + a 22 y = c 2 Bài

Ngày tải lên: 09/05/2015, 16:00

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

... 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 ... 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 ... st [1] =' ' then dem:=0 Else dem: =1; (34)End For i: =1 to length(st) -1 If (st[i] = ' ')and (st[i +1] <>' ') then dem:=dem +1; Writeln('So tu chuoi la: ',dem); Readln; Bài 57: Trộn hai mảng

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

... 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 BANG_SO; Uses crt; Var i,j,n:integer; ... đầu danh sách theo thứ tứ tăng dần, sắp xếp các phần tử chẵn... menu; Readln; End Trang 14 Bài 31: Tính các số Fibonacci: - F1=F2 = 1 - Fn = Fn -1 + Fn-2 Program FIBONACII; Uses Crt; Var n,kq:integer; ... S:=S+ (1+ lt(x,i))/gt (1+ i); Writeln('Tong la: ',s:6:2); Readln; End 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 2 ẩn dùng ma trận a 11. x + a12.y = c1 a 21 + a22.y

Ngày tải lên: 24/11/2013, 09:11

... . Bài 3 :Cho số tự nhiên n , hãy lập trình để tính các tổng sau : a. 1 + 1/ 2 2 + 1/ 3 2 + … + 1/ n 2 b. 1 + 1/ 2! + 1/ 3! + … + 1/ n! Bài 4 :Tính giá trị của biểu thức sau : ( 1 + 1/ 1 2 ) ( 1 + 1/ 2 ... tích các số nguyên tố ) 3. Thoát khỏi chương trình . CẤU TRÚC DỮ LIỆU KIỂU MẢNG Bài 1 :Giải hệ phương trình tuyến tính hai ẩn dùng ma trận : a 11 x + a 12 y = c 1 a 21 x + a 22 y = c 2 Bài 2 ... phím các phần tử của một mảng hai chiều . Kích thước của mảng được nhập trước từ bàn phím . Bài 5 :Dãy số sau được gọi là dãy Fibonaci : a 1 = 1 a 2 = 1 a 3 = 2 a 4 = 3 . . . a n = a n -1 + a

Ngày tải lên: 26/12/2013, 19:57

... 13 0/ Viết hàm xuất mảng 1 chiều các số thực void XuatMang(float a[], int n) { for (int i=0;i<n;i++) { printf(" %.2f ", a[i]); } } 13 1/ Viết hàm xuất mảng 1 chiều ... return -1; } 13 6/ Tìm Số chẵn cuối cùng trong mảng 1 chiều các số nguyên. Nếu mảng ko có giá trị chẵn thì trả về giá trị -1 . int chancuoi(int a[] , int n) { for(int i=n -1; i>=0; ... return -1; } 14 8/ Tìm số nguyên tố cuối cùng trong mảng 1 chiều các số nguyên. Nếu mảng ko có số nguyên tố thì trả về giá trị -1 . int nguyentocuoi(int a[],int n) { for(int i=n -1; i>=0;

Ngày tải lên: 29/07/2014, 21:20

... 0 0 0 0 1 2 3 a int a[] = {2 912 , 17 06, 15 06, 19 04}; 2 912 2 912 17 06 17 06 15 06 15 06 19 04 19 04 0 1 2 3 a [...]... {2 912 , 17 06, 15 06, 19 04}; => int a[4] = {2 912 , 17 06, 15 06, 19 04}; ... 17 06, 15 06, 19 04}; 2 912 2 912 17 06 17 06 15 06 15 06 19 04 19 04 0 1 2 3 a int a[4] = {2 912 , 17 06}; 2 912 2 912 17 06 17 06 0 0 0 0 0 1 2 3 a VC VC & & BB BB 10 VC VC & & BB BB 10 VC VC & ... 2 mảng b (chứa số nguyên tố) và mảng c (các số còn lại)  Ý tưởng  Cách 1: viết 1 hàm tách các số nguyên tố từ mảng a sang mảng b và 1 hàm tách các số không phải nguyên tố từ mảng

Ngày tải lên: 23/10/2014, 08:25

... } 10 [...]... tìm x =10 10 7 5 12 41 10 10 32 13 9 15 3 10 1 2 3 4 5 6 7 8 9 10 11 Minh họa tìm x = 25 25 7 5 12 41 10 32 13 9 15 3 25 25 1 2 3 4 5 6 7 8 9 10 ... 14 Minh họa tìm x = 41 x x x 3 14 16 19 22 41 46 51 63 71 1 2 3 4 5 6 7 8 9 10 l m m Tìm thấy x tại vị trí 6 r m 15 Minh họa tìm x = 45 x x x x 3 14 16 19 22 41 46 51 ... 15 3 1 2 3 4 5 6 7 8 9 10 7 5 12 41 10 32 13 9 15 3 1 2 3 4 5 6 7 8 9 10 10 10 25 Chưa hết mảng Đã m thấy tại vị trí 5 Đã hết mảng Giải thuật Bước 1:  i=? ?1; //bắtđầutừphầntửđầutiêncủadãy

Ngày tải lên: 04/09/2015, 15:14

... ) ; 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ủ tục ... lần xuất hiện *) Readln ; END . Bài 3 : Cho số tự nhiên n , hãy lập trình để tính các tổng sau : a. a. 1 + 1/ 2 2 + 1/ 3 2 + + 1/ n 2 b. b. 1 + 1/ 2! + 1/ 3! + + 1/ n! Bài giải: a) Var n , i : Word ... liƯu kiĩu m#ng: Bài 1 : Giải hệ phơng trình tuyến tính hai ẩn dùng ma trận : a11x + a12y = c1 a21x + a22y = c2 Bài giải: Uses Crt; Var a: array [1 2, 1 2] of real; c: array [1 2] of real; d,

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

... [...]... ',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; ... & /(,072(      7*'T5& % U . /(,0*4*? ?1*  +*4*? ?1*  *  1  >,  +    75& <(,& B à i 4 )KLV ... ",'& /(, 01? ??% 2.%" 3" #)  " # $%45& /(, 016 666666666666666666666666666666666666666666666666666666666666 615 & /(07  (

Ngày tải lên: 04/08/2013, 01:27

... Thanhtien:= (Tieuthu – 10 0)*LongInt(500) + 10 0*250; Ví dụ 2: CONST A: Array[0 10 ] of Byte = (05, 84, 11 7, 11 4, 98, 11 1, 0, 0, 0, 0, 0); TYPE St10 = STRING [10 ]; BEGIN WriteLn(St10(A)); ReadLn; END. ... sẽ là: 0 1 2 3 4 5 6 7 8 9 10 05 85 11 7 11 4 98 11 1 Nếu ta xem vùng nhớ trên là một chuối thì nó sẽ trở thành chuỗi ‘Turbo’, ngược lại với vùng nhớ của St ta có thể xem đó là một mảng các số kiểu ... và Ord để xác định chiều dài chuỗi và lấy mã ASCII của ký tự trong chuỗi. Ta tiến hành xem xét vùng nhớ St, được mô hình hóa như sau 0 1 2 3 4 5 6 7 8 9 10 05 85 11 7 11 4 98 11 1 ‘T’ ‘u’ ‘r’ ‘b’

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