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 ... sau: TD: Đổi số 10 0 010 01 Tính luỹ thừa = 27 12 8 26 64 25 32 Nhân tương ứng với giá trị luỹ thừa Cộng giá trị lại 12 8 0 24 16 23 8 12 8 + + = 13 7 22 21 20 1 0 Kết 10 0 010 01 = 13 7 10 Var So: Integer;

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

... ) ; 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 ... 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, ... 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

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

... 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’ ‘o’ Biến St được lưu trữ như một mảng 11 phần tử ( 0 10 ) mà mỗi phần tử là một số kiểu Byte ... 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. ... A 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ố

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

... các phép toán: • NOT, AND, OR, XOR. 6 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 • SHR ... 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 → 1. 1? ?10 ... Tại sao? 14 Giáo trình bài tập Pascal Chương 3 CÁC CÂU LỆNH CÓ CẤU TRÚC I CÂU LỆNH RẼ NHÁNH... Else Writeln('So vua nhap vao la so le'); Readln; End 17 Giáo trình bài tập Pascal Bài tập 3.2:

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

... n=’);readln(n); Gt: =1; For i: =1 to n do Gt:=gt*i; GV: Lê Bá Khánh Toàn Tin hoc 8 6 Trường T H C S Đức Phú Năm học: 2008-2009 Writeln(n,’!=’,gt); Readln; End. Bài 15 : Viết chương trình nhập vào 1 số ngun ... Readln; End. Bài 16 : Viết chương trình nhập chiều dài ,chiều rộng hình chữ nhật,bán kính hình tròn. So sánh diện tích của hình chữ nhật và hình tròn. Program so_sánh; Uses crt; Var a,b,r,s1,s2:real; ... khơng cắt nhau) Program bai18; Uses crt; Var r1,r2,d:real; Begin Clrscr; Writeln(‘vi tri tuong doi giua 2 duong tron’); Write(‘nhap ban kinh duong tron 1, r1=’); readln(r1); Write(‘nhap ban kinh

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

... 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(' TAO BANG SO TU 0-99'); Writeln(' ... Writeln; End; Readln; End Bài ... 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

... (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; Trang 12 end; writeln('ket qua la: ',s5:0:4); readlnEND .Bài 24:Lập ... (e<0. 01) ; s4:=0;i: =1; while 1/ (i*i)>e do begin s4:=s4 +1/ (i*i); i:=i +1; end; writeln('Ket qua la: ',s4:0:4); readlnEND .Bài 23:Nhập số thực dương e(e<0. 01) rồi tính tổngS5= 1- 1/ 3 +1/ 5 -1/ 7+…+( -1) n/(2*n +1) ... trình tính: S1= 1+ 3+5+7+…+(2*n +1) Lời giải:uses crt;var i,n,s1:integer;BEGINTrang 10 clrscr; write('Nhap n: ');readln(n); s1:=0; for i: =1 to 2*n +1 do if i mod 2<>0 then s1:=s1+i; writeln('Tong

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

... 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 ... ',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 ... tính: S1= 1+ 3+5+7+…+(2*n +1) Lời giải: uses crt; var i,n,s1:integer; BEGIN clrscr; write('Nhap n: ');readln(n); s1:=0; for i: =1 to 2*n +1 do if i mod 2<>0 then s1:=s1+i;

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

... Writeln('===================================='); Writeln; Case d of 0: Exit; 1: HV; 2: HT; 3: TG; 4: CN; End; End; Begin 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 ... [...]... ',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; ... MA_TRAN_DOI_XUNG; Uses Crt; Type MT=array [1 20 ,1 20] of integer; Var a: MT; n:integer; Procedure Input(var a:MT; n:integer); Var i,j:integer; Begin For i: =1 to n do For j: =1 to n do

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

... ');readIn(I2), if 12 < ;11 then writeln(‘Nhap lai l2 sao cho l2> ;11 '); until 12 > ;11 ; Trang 15 for begin if odd(i) then S:=S+i; end; writeln('Tong gia trỉ tìm duoc = ',S); readin; END +1 to 12 -1 do ... 2.52} Program Tinh_I1_I2; var I1 ,12 ,i,S:integer; BEGIN repeat write('Nhap so nguyen I1 ');readIn(l1); if I1<=0 then writeln(Nhap lai I1 sao cho I1>0!); until 11 >0; repeat 'write(Nhap so ... i: =1 to 10 0 do write(' 'i, la ',sqrt():4:2); readin; 'writeln(Can bac 3 cua’); for i: =1 to 10 0 do write(' 'j" la ',exp( (1/ 3)*In():4:2); readin; writeln('Can bac 4 cua '); for i: =1 to 10 0

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

... ABS(A*A1+B*B1+C*C1)/ (sqrl(A*A+B*B+C*C)*sqrt(A1*A1+B1*B1+C1*C1)); Readin; END Trang 9 {Bai 1. 23} Program so_phuc; var a1,b1,a2,b2:real; BEGIN write(Nhap so phuc 1( a1,b1): );readin(a1,b1); write(Nhap ... Readin; END {Bai 1. 22} Program Goc_cos; var A,B,C,D, A1,B1,C1,D1:real; BEGIN write(Nhap tham so(A,B,C,D): );readin(A,B,C,D); write(Nhap tham so(A1,B1,C1,D1): ');readin(A1,B1,C1,D1); writeln(Khoang ... Trang 1 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) ;

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

... 4 1 0 1 16 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, ... quy cách nh ví dụ. Ví dụ về hai file dữ liệu vào và ra: XAU.TXT KQ.TXT abcdef 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] ... INP.BL2 14 6 5 1 3 4 2 8 10 7 9 3 2 1 9 OUT.BL2 10 - 6 Bài tập cơ bản Tập I 1 2 3 4 5 6 7 8 9 10 Bài 30. Bắt đầu từ thời điểm 0, một ngời làm N việc với số hiệu từ 1 đến N, N<=200. Với 1& lt;=i<=N,

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

... TÙNG BÀI TẬP PASCAL BDHSG 1 1 1 2 1 1 3 3 1 1 4 6 4 1 Hàng thứ n được xác định từ hàng n -1: - Phần tử đầu tiên và phần tử cuối cùng đều bằng 1 - Phần tử... HẾT – SỐ NGUYÊN TỐ B BÀI TOÁN: Bài ... nghiem'); readln end. Trang: 10 [...]... TÙNG BÀI TẬP PASCAL BDHSG F _1: =1; F_2: =1; Write(F_2,';',F _1, ';'); Repeat F:=F_2+F _1; if F< n then Write(F,';'); F_2:=F _1; F _1: =F; Until F>n; Readln; End ... GV: LÊ THANH 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

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

... P3.INP P3.OUT 2 2 5 10 1XX 2 4 2 1 11 01 Quá trình biến đổi trạng thái được diễn tả trong hình dưới đây: 0 0 1 0 0 1 1 0 1 1 1 1 0 0 0 0 0 0 0 1 1 0 0 1 Bài 4 /19 99 - Trò chơi bốc sỏi (Dành cho ... và An nhé. Bài 10 /19 99 - Dãy số nguyên (Dành cho học sinh THCS) Dãy các số tự nhiên được viết ra thành một dãy vô hạn trên đường thẳng: 12 345678 910 111 213 14 (1) Hỏi số ở vị trí thứ 10 00 trong ... 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 và trình bày đẹp. Tin học & Nhà trường 10 0 Đề Toán - Tin học 10 0 Problems & Solutions Page 7 Bài 13 /19 99 -

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

... ',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ổ: 10 0 trâu 10 0 bó cỏ và vừa gà vừa chó 36 con 10 0 chân? var d,n,g:integer; begin for d: =1 to 20 ... 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 Toán, Lý , Hoá theo hệ số 2 ,1, 1 sau đó xếp loại như ... a[i]:=random (10 00); Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN for i: =1 to n -1 do for j:=i +1 to n do if a[i]<a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end; for i: =1 to n do

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

... dùng ma trận : a11x + a12y = c1 a21x + a22y = c2 GIẢI Uses Crt; Var a: array [1 2, 1 2] of real; c: array [1 2] of real; d, dx, dy, x, y: real; Bài tập Pascal có lời giải 21 Thầy gửi tài ... ( 1 + 1/ 1 2 ) ( 1 + 1/ 2 2 ) … ( 1 + 1/ n 2 ) GIẢI Var i , n : Byte ; p : Real ; Begin Write(' Nhap n : ') ; Readln (n) ; p := 1 ; For i := 1 To n Do p := p * ( 1 + 1/ sqr(i) ... liệu này các em xem để học (0946873 510 -Hồng Nam 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

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

... * 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 ( So < 20 ) Then Begin Tong := Tong + So ; Dem := Dem + ; End ; End ; Writeln (' So cac so >10 ... 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 ... va [...]... + 1 ; until tien >= x ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ', thang mod 12 ,' thang ') ; writeln (' Khi do so tien ban rut ra duoc la ', tien :12 :2 ,' dong ')

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

... Case s [1] of ' ': While (s [1] =' ')and(length(s)>0) Delete(s ,1, 1); Else BÀI TẬP PASCAL 48 TRƯỜNG THCS ÂN HẢO GV:CAO VĂN QUANG Begin inc(dem); While (s [1] ' ')and(length(s)>0) Delete(s ,1, 1); End; ... (a>=0)and(a1 then for k: =1 to j -1 do if a[i,k]=ba then d:=true; if i >1 then for k: =1 to i -1 do if a[k,j]=ba then d:=true; ba:=ba +1; until not d; a[i,j]:=ba -1; end; for i: =1 to n do for j: =1 to n ... 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

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

... begin dem1:=dem1 -1; b[dem1]:=a[i]; end; for i:=dem1 to n -1 for j:=i +1 to n if(b[i]>b[j]) then begin tam:=b[i]; b[i]:=b[j]; b[j]:=tam; end; for i:=dem1 to n write(b[i]:4); dem2:=dem; for i: =1 to n ... b[dem]:=a[i]; end; for i: =1 to dem -1 for j:=i +1 to dem if(b[i]>b[j]) then begin tam:=b[i]; b[i]:=b[j]; b[j]:=tam; end; for i: =1 to dem write(b[i]:4); dem1:=n +1; for i: =1 to n if (a[i] mod 3=0) ... thu hai : a[',i +1, ' ',n,']'); end; write('tiep tuc ');readln(ok) until upcase(ok)='K'; end; begin test; 35 end Bài 1. 6 (Chia mảng tỷ lệ 1: k) Tìm cách chia mảng nguyên dương a [1 n] cho trước

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