bai tập pascal cho cấp 3

... 31 , số nguyên tố) (In 233 3 233 9 239 3 239 9 2 939 31 19 31 37 37 33 3 739 37 93 3797 5 939 71 93 733 1 733 3 739 3) Biên soạn: Th.s Nguyễn Anh Việt Trang 10 Bài tập Pascal – Từ đến nâng cao WriteLn; End; ... Bài 3. 05 – In số siêu nguyên tố có chữ số Bạn tìm số siêu nguyên tố có chữ số Số siêu nguyên tố số nguyên tố bỏ chữ số bên phải số nguyên tố 31 37 (31 37, 31 3, 31 , số nguyên tố) (In 233 3 233 9 239 3 ... ma trận vuông (n> =3) , xoá dòng ma trận MT3.inp 987 654 32 1 MT3.out 987 32 1 Bài tập 14.05 Nhập vào ma trận vuông (n> =3) , xoá cột ma trận MT4.inp 1 23 456 789 MT4.out 23 56 89 Bài tập 14.06 Nhập vào

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

... 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 viết hàm... Write(ch,' '); 33 Bài tập ... ) ; 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 ... j]); 23 Bài tập ngôn ngữ lập trình PasCal a[j,i]:=a[i,j]; End; Readln ; END ; Biên soạn: Hoàng Đức Hà 24 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 5

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

... KHÁI NIỆM - ĐỊNH NGHĨA KIỂU PROCEDURE 1. KHÁI NIỆM Ngôn ngữ Pascal đã cung cấp cho chúng ta các kiểu dữ liệu từ đơn giản đến nâng cao như tập tin, con trỏ, . Bây giờ ta lại làm quen với một kiểu ... hoạ trong Pascal Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh Proc: AnyProc; DProc: DisplayProc; SProc: StrProc; SFunc: StrFunc; Một biến kiểu Procedure là một con trỏ 4 byte (32 bit) để ... gán các tên hàm cho biến FuncVar ứng với các giá trị chủa Ch. Và cuối cùng là hình thức xuất hiện của FuncVar trong câu lệnh. Phần 4, Đồ hoạ trong Pascal Pascal Nâng cao (Advanced Pascal) Hoàng

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

... cho 3 hay khơng? Program Chia_het _3; Uses crt; Var x:integer; Begin Clrscr; Write(‘nhap x=’); readln(x); If (x mod 3) = 0 then Writeln(‘x chia het cho 3: ’) Else writeln(‘x khong chia het cho 3: ’); ... Writwln(a2) Câu 36 IF a >8 THEN b: =3 ELSE b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị nào? a 0 b 5 c 8 d 3 Câu 37 Khi soạn thảo xong chương trình Pascal, ... Trong ngơn ngữ lập trình Pascal, ... Toàn Tin hoc 8 10 [...]... là a 32 7 68 b 32 767 c 2 tỉ d -32 7 68 +32 767 GV: Lê Bá Khánh Toàn 14 Tin hoc 8 Trường T H C S Đức Phú Năm học: 20 08- 2009 2 Câu 35 a là biến dữ liệu kiểu số ngun

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

... C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; 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; ... % 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 gt(n:integer):longint; ... ,7*;5& /(,07"      ,7*;5& <(,& . B à i 3   Tính tam giácAB  + 'C*+*+D> EF  G(F, H

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

... 25:Trang 1 3Cho các số tự nhiên n (khai bảo longint), và cho biết: n có bao nhiêu chữ số, tổng các chữsố của n và số đảo ngược của n.VD: số 1 23 có 3 chữ số, tổng các chữ số bằng 6, số đảo ngược là 32 1Lời ... if i mod 2<>0 then s1:=s1+i; writeln('Tong S1 la: ',s1); readlnEND.Bài 20:Tính S2= 13+ 23+ 33+ …+n3 trong đó n nhập từ bàn phím.Lời giải:uses crt;var i,n:integer;s2:longint;BEGIN clrscr; ... readlnEND.Bài 21:Nhập 2 số n,m sao cho m<n lập trình tính S3= Cnm = (n(n-1)…(n-m+1))/m! (Tổ hợp chập m của n)Lời giải:uses crt;var i,m,n,tu,mau:integer; s3:longint;BEGIN clrscr; repeat write('Nhap

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

... lại cho tròn Ba mưoi sáu con Một trăm chân chẵn Lời giải: uses crt; var cho: byte; BEGIN clrscr; for cho: =1 to 25 do if 4 *cho+ (36 -cho) *2=100 then writeln('So ga la: ' ,36 -cho, ' ... 2<>0 then s1:=s1+i; writeln('Tong S1 la: ',s1); readln END. Bài 20: Tính S2= 13+ 23+ 33+ …+n3 trong đó n nhập từ bàn phím. Lời giải: uses crt; var i,n:integer;s2:longint; BEGIN ... Cho các số tự nhiên n (khai bảo longint), và cho biết: n có bao nhiêu chữ số, tổng các chữ số của n và số đảo ngược của n. VD: số 1 23 có 3 chữ số, tổng các chữ số bằng 6, số đảo ngược là 32 1

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

... Hay chon mot phuong an: '); readln(d); 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 : ... End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -'); Write('... dien tich hinh vuong'); Writeln('2: Tinh dien tich hinh tron'); Writeln( '3: tinh dien tich tam giac'); Writeln('4: ... % 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 gt(n:integer):longint;

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

... {Bai 2 .33 } Program Tinh_tong; var n,s,i:integer; BEGIN write(Nhap vao n: '); readin(n); S:=0; for Ï:=1 to n do s:=s+i; if s=n& #34 ;(n+1)/2 then write('Cong thuc dung va ='s); readin; END {Bai ... readin end {Bai 2.27} Program Phuong_trinh_bac_hai_nghiem_phuc; var a,b,c,delta:real, BEGIN write(‘Nhap vao he so (a,b,c): ');readin(a,b,c); 'writeln(Phuong trinh: f(x)= (‘,a,& #34 ;)& #34 ;x& #34 ;x + ... ',e); readin; END {Bai 2 .38 } Program HCN_sao; var d,r,ij:integer; BEGIN 'write('Nhap chieu dai, rong (d,r) = ');readin(d,r); for i:=1 to d do write(*');writeln; Trang 7 {Bai 2 .39 } Program GT;

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

... 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' :26); readin; END {Bai 1 .3 Ban ... ');readIn(x2,y2); write(Nhap vao toa do x3,y3 (0,1): );readIn(x3,y8); a:=sqrt(sqr(x1-x2)+sqr(y1-y2)); qrt(sqr(@x1-x3)+sqr(y1-y3)); qrt(sqr(x3-x2)+sqr(y3-y2)); p:= (atb+©)/2; s := sqrt(p*(p-a)*(p-b)*(p-c)); ... = ',$); readin; END {Bai 1.11} Program Tam_giac _cho_ canh_abc; var ha,hb,he, (*do dai 3 duong cao”) ma,mb,mc, (*do dai 3 duong trung tuyen*) Trang 5 la,Ib,lc, (“do dai 3 duong phan giac*) s\p.a.b,c.ri,R:

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

... tiếp A 2 lần, . ., S P A P lần Ví dụ với P =3, A1 =3, S1=1 23, A2=4, S2=0, A3=2, S3=45 thì ta có N = 1 231 231 230 0004545 Giả sử số N đợc cho nh vậy và cho một số nguyên dơng K không vợt quá số chữ ... cản. 1 2 3 4 5 6 1 2 X X 3 X 4 5 X X 6 Nếu xâu ký tự là C-4-6 thì hành trình của quả bóng sẽ là: 6 4 6 3 Nếu xâu ký tự là D -3- 6 thì hành trình của quả bóng sẽ là 3 6 3 5 4 5 3 5 4 6 Bài 26. Cho một ... số hiệu ghi theo thứ tự tăng dần cho tới hết. Ví dụ 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

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

... nhiều 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ỏ ... tập 5.10 Viết chương trình cho phép nhập a Hướng dẫn: b Mã chương trình: CHƯƠNG VI CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀM Trang: 26 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG B BÀI TẬP Bài tập ... tạm để chứa tạm thời giá trị được nhập từ bàn phím. Trang: 3 GV: LÊ THANH TÙNG BÀI TẬP PASCAL BDHSG Bài tập 1.7: Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ được

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

... kết thúc không trùng nhau Bài 23/ 2000 - Quay Rubic (Dành cho học sinh THPT) Rubic là một khối lập phương gồm 3? ?3? ?3 = 27 khối lập phương con. Mỗi mặt rubic gồm 3? ?3 = 9 mặt của một lớp 9 khối lập ... dựng số (Dành cho học sinh THCS) Cho các số sau: 1, 2, 3, 5, 7 Chỉ dùng phép toán cộng hãy dùng dãy trên để tạo ra số: 43, 52. Ví dụ để tạo số 130 bạn có thể làm như sau: 1 23 + 7 = 130 . Bài 26/2000 ... áp dụng xâu vào đó cho trạng thái đầu rubic để lại nhận được trạng thái đầu đó. Bài 24/2000 - Sắp xếp dãy số (Dành cho học sinh Tiểu học) Cho dãy số: 3, 1, 7, 9, 5 Cho phép 3 lần đổi chỗ, mỗi,

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

... st:');readln(st); while st[1]= #32 do delete(st,1,1); while st[length(st)]= #32 do delete(st,length(st),1); while pos( #32 #32 ,st)<>0 do delete(st,pos( #32 #32 ,st),1); st:= #32 +st; writeln('liet ... st:');readln(st); while st[1]= #32 do delete(st,1,1); while st[length(st)]= #32 do delete(st,length(st),1); while pos( #32 #32 ,st)<>0 do delete(st,pos( #32 #32 ,st),1); st:=st+ #32 ; writeln('liet ... rieng:');readln(s); while s[1]= #32 do delete(s,1,1); while s[length(s)]= #32 do delete(s,length(s),1); while pos( #32 #32 ,s)<>0 do delete(s,pos( #32 #32 ,s),1); for i:=1 to length(s) do

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 em xem để học (09468 735 10-Hồng ... tài liệu này các em xem để học (09468 735 10-Hồng Nam Trung-mientrung19@gmail.com) Bài tập Pascal có lời giải 3 2 : Writeln (' Thu Ba ') ; 3 : Writeln (' Thu Tu ') ; ... = #32 ) do Delete(S,length(S),1); Write('Chuoi sau khi da bien doi la: ', S); Readln; END BÀI TẬP CHƯƠNG 6: DỮ LIỆU KIỂU TẬP Bài 1 : Bạn hãy viết hàm Card(A) đếm số phần tử của tập hợp A cho

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

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

... 5 43 4 43 -34 2 721 621 Gii: 246 427 -100 246 427 32 7 246 427 32 7 -4 1014 5 43 4 43 = 1014 5 43 4 43 -5 43 = 1014 5 43 -100 -34 2 721 621 721 621 -721 -34 2 721 -100 427 246 I = -100 1014-246 -3 -2 5 43 ... 28 x = 31 Ph thuc 32 c lp 35 c lp 29 X *12 30 Khng tn ti X 33 Ph thuc 34 c lp 36 Ph thuc 37 c lp 39 Ph thuc tuyn tớnh vi X = -6 40 Ph thuc tuyn tớnh vi X = 41 Ph thuc tuyn tớnh vi X = -3 42 ... =(4 ,3, 2), X, = (-1 ,-1 , -3 ) 28 x = (1,2 ,3) , X, = (-!,2 ,X ), X, = (3 ,-2 , -3 ) 29 X = (1 ,3, 5), X, = (3, 2,5), X, =(2,4,7), x ,= (5 ,6 ,x ) 30 x = (2,5,x), X, = (3, 2,6), x , = (7 ,3, 9), X, =(5,1 ,3) ...

Ngày tải lên: 24/09/2014, 22:31

... P2 + P3 + P4 + P5 90 = = = 3( A) U U 30 P P P 3 1 I = I1 + I3 → = U + U → U = − U = 3 → U1 = P U 24.U 8U = = 3U − P3 3U − 18 U − 3. U − P3 U3 (*) Giả sử chiều từ M đến N Ta có : U1 + U5 = U3 → ... Xuân Học 23 Trường THCS Hồng Dương Tháo gỡ số vướng mắc cho học sinh giải tập Vật lý cấp THCS 3= P2 P4 18 24 18 24 + = + → = 3 U U U − U1 U − U 30 − U1 30 − U Từ rút U1 = qua U3 kết hợp với ... Trường THCS Hồng Dương Tháo gỡ số vướng mắc cho học sinh giải tập Vật lý cấp THCS I1 I2 A• • B I5 R5 I3 R3 N R4 I4 Biết : UAB = 30 (V); P1 = 24 W; P2 = 18W; P3 = 18W; P4 = 24W; P5 = 6W Tính UAN Gọi...

Ngày tải lên: 14/11/2014, 14:34

... Ta cú : X = 3vi + v2 + 2v3 - v4 Ui = 4v2 + v4 ; u2 = Vi + 3v2 + v3 + 2v4 u3 = 2vi + v3 + 3v4 ; u4 = -2vi + v2 + v3 + 2v4 Ma tr n chuyn t c s n v V v2, v3, v4 sang x, c s Ui, u2, u3, u4 l : 49 ... u2, u3, u4 vect X cú biu din l: -22 59 X = - u, + u2 13 13 - 43 10 u Uo + 13 13 -2 59 - 43 10 ) l k t qu vic thc 13 13 13 hin tớch (3, 1, 2, -1).T Vúi ( V n l ụ CHNG M INH MT T P H P VI ... = -2 -1 ,0 Tih IAI = - ly -1 =3* 0 (Vy A l ma tr n khụng suy bin, tng ti A l) ằ Lp ma trn ph hp A \ An =' Aj2 = A i3 = -4 A21 = A22 = A 23 = A31 = -3 A32 = -1 A 33 = 39 Phn - Túm tt tý thuyt (Cỏc...

Ngày tải lên: 20/05/2015, 14:58