bài tập pascal hsg lớp 9

... soạn: Nguyễn Minh Đức 49 Bài tập Pascal Readln; End Bài 13 Mã số sách Để đánh mã số cho sách, cán thư viện dự định dùng từ có kí hiệu liên tiếp gồm : kí tự (A Z) kí số (001 99 9) Em lập trình tạo ... write(lop[i].Dtoan,' '); write(lop[i].Dvan, ' '); writeln; Sưu tầm biên soạn: Nguyễn Minh Đức 39 Bài tập Pascal end; readln; end Bài 5.Cho tệp văn có tên VANBAN.PAS gồm dòng chứa xâu ký tự S , S2 , S3 có độ dài ... '9' ])) and (not (a[i,k+length(s1)] in ['a' 'z','A' 'Z','0' '9' ])) then begin Delete(a[i],k,length(s1)); Insert(s2,a[i],k); end; end; end; end; Sưu tầm biên soạn: Nguyễn Minh Đức 41 Bài tập Pascal...

Ngày tải lên: 02/11/2014, 21:35

... length(s) if s[i] in ['0' '9' ] then begin dem:=dem+1; if dem=1 then vt:=i; s1:=copy(s,vt,3); Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN val(s1,x,c); end; until (c=0) and (x >99 ) and (dem=3); if ktranto(x) ... theo thứ tự tăng dần vò trí kí tự giữ nguyên? Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN Ví dụ: nhập: abc6ghj7kkkkk1hhhh9 Kết quả: abc1ghj6kkkkk7hhhh9 var a:array[1 100]of integer; s,s1,s2:string; ... nhập vào từ bàn phím? uses crt; Var s:array[1 9] of string; a,b,c,n:integer; begin clrscr; repeat write('nhap so nguyen n:');readln(n); until (n >99 )and(n

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

... upcase(s[i+1]; Writeln(‘xau sau dieu chinh la’,s); Readln End Bài tập phần ghi, file Bài tập 1: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp học sinh,in danh sách vừa nhập Program danh_sach; ... Writeln('Bam Enter de ket thuc!'); Readln; END ĐT : 097 2.311.481 Trang 35 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Bài tập chương trình Bài tập Dùng thủ tục chuyển số tự nhiên n cho trước ... Type Danhsach=record holot : string[25]; ĐT : 097 2.311.481 Trang 29 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ten : string[10]; tuoi : 99 ; lop : string[3]; End; Var ds : array [1 n] of...

Ngày tải lên: 30/10/2013, 08:49

... Ngày sinh 11-05- 199 6 09- 06- 199 6 23-03- 199 6 20-10- 199 6 6 /9/ 199 6 09- 01- 199 6 20-06- 199 6 3/ 19/ 199 6 27-06- 199 6 17-01- 199 6 6/28/ 199 6 10/25/ 199 6 5/25/ 199 6 19- 10- 199 6 9/ 5/ 199 6 20-01- 199 6 HS trờng THCS ... Thanh Vũ Ngày sinh 28-03- 199 6 29- 02- 199 6 03-07- 199 6 01-10- 199 6 09- 11- 199 6 12- 09- 199 6 12-03- 199 6 06-06- 199 6 09- 04- 199 6 19- 06- 199 6 10/24/ 199 6 9/ 2/ 199 6 10/20/ 199 6 6/7/ 199 6 (Danh sách có 14 em) HS ... 13-01- 199 6 7/25/ 199 6 5/25/ 199 6 10/22/ 199 6 6/3/ 199 6 15-11- 199 6 20-01- 199 6 13-04- 199 6 30-08- 199 6 12/24/ 199 6 8/10/ 199 6 7/20/ 199 6 06-08- 199 6 25-12- 199 6 14-03- 199 6 02-01- 199 6 16-02- 199 6 Trịnh Thị Kiều...

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

... ',so*7:3); Writeln(so:2,' lan = ',so*8:3); Writeln(so:2,' lan = ',so *9: 3); Writeln(so:2,' lan 10 = ',so*10:3); Readln End Bài rogram Cuu_chuong_2; Var so,i :Integer; Begin Write('-Bang cuu chuong ... soan thao'); Readln End Bài Program Doi_do_F_C; Var f,c:Real; Begin Writeln('DOI DO FAHRENHEIT SANG CELCIUS'); Write('-Cho biet Fahrenheit : '); Readln(f); c:=((f-32) * 5) /9; Writeln; Writeln(f:5:2,' ... ',c:5:2,#248); Writeln; Writeln(' Bam phim de ket thuc'); Readln End Bài Program Doi_do_Mile_Km; Const Km_Mile=1.6 093 44; Var m,k:Real; Begin Writeln('DOI MILE SANG Km'); Write('-Cho biet so...

Ngày tải lên: 03/07/2014, 13:20

... thời kì 199 1 – 2002 (%) Hãy vẽ biểu đồ thể cấu GDP Nước ta thời kì 199 1 – 2002 199 1 199 3 100,0 100,0 199 5 199 7 199 9 2001 2002 100,0 100,0 100,0 100,0 100,0 Tổng số Nônglâm-ngư 40,5 29, 9 27,2 25,8 ... giai đoạn 198 0- 199 7 theo bảng số liệu sau: Năm 198 0 198 5 199 0 199 5 199 7 Diện tích (nghìn 22,5 44,7 1 19, 3 186,4 270,0 ha) Sản lượng (nghìn 8,4 12,3 92 ,0 218,0 400,0 tấn) 6) Dạng biểu đồ ngang: a) ... DẪN HỌC SINH LÀM CÁC DẠNG BÀI TẬP THI HSG ĐỊA LÍ 0-0-0-0-0-0 - 150 199 5 100 2000 2002 50 199 0 Biểu đồ thể số tăng trưởng đàn gia súc,gia cầm giai đoạn 199 0 – 2002 Ví dụ 2: Dựa vào...

Ngày tải lên: 04/09/2014, 14:50

... Ic= U = 2,84(A) Rm I R x + R a + R 19 = = R2 - Ta có: I a I + I = 2,84 a - Giải hệ phơng trình ta đợc Ia = 0, 49( A) Bi 3: (7 im) Cho búng ốn: (12V - 9W) v (6V - 3W) a) Cú th mc ni tip búng ... =1 RCA 6,828 hoc RCA 1,172 Cõu3: (3,5 im) Cho mch in nh hỡnh v: C cỏch A on 17,07cm hoc 2 ,93 cm R M D A3 N _ A2 + A1 C A4 Cỏc ampe k ging v cú in tr RA, ampe k A3 ch giỏ tr I3= 4(A), ampe ... = = 24 ( ) Ib 0,25 0,25 c Theo bi ta cú: P1 = 3P2 I12.R1 = 3I22.R2 2 3R2 I1 U dm Pdm1 I1 2 .9 = = = = = 2I1 = 3I2 R1 I2 U dm1 Pdm 12 I2 M I1 = I2 + IR nờn (1) 2(I2 + IR) = 3I2 2I2...

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

... R = 39Rđ = 156 ( Ω ) Dòng điện qua đèn bây giờ: I= U 240 = = 1,54( A) R 156 Công suất tiêu thụ bóng là: Pđ = I2.Rđ = 9, 49 (W) Công suất bóng tăng lên so với trước: Pđm - Pđ = 9, 49 - = 0, 49 (W) ... riêng D2 = 20 D1l 20.1120.40 = = 99 5,5kg / m3 x ( 60 − x ) 30 ( 60 − 30 ) Vậy, Để thực thí nghiệm, chất lỏng để vào chậu phải có khối lượng riêng D2 ≥ 99 5,5kg / m3 Bài 7: Một cục nước đá tan có ... => Q = = = 892 500 (J) Q H 80% - Nhiệt lượng điện chuyển thành từ dây xoắn Vậy thời gian cần thiết cho nước sôi : Q 892 500 = = 497 ,9( s) = 8,3(phút) Q = A = U.I.t = >t = UI 220.8,14 Bài 18: Cho...

Ngày tải lên: 27/07/2015, 09:32

... Readln; END BÀI TẬP CHƯƠNG 6: DỮ LIỆU KIỂU TẬP Bài : Bạn viết hàm Card(A) đếm số phần tử tập hợp A cho trước có kiểu Set Of 99 (* hàm đếm số phần tử tập hợp *) Uses Crt; Bài tập Pascal có lời ... 'z' Bài tập Pascal có lời giải 39 Thầy gửi tài liệu em xem để học ( 094 6873510-Hồng Nam Trung-mientrung 19@ gmail.com) If ch in tap then Write(ch,' '); Readln; END BÀI TẬP CHƯƠNG 7: KIỂU RECORD Bài ... Writeln(' x=',X,' y=',Y, 'z=',Z); Readln; End Bài tập Pascal có lời giải 16 Thầy gửi tài liệu em xem để học ( 094 6873510-Hồng Nam Trung-mientrung 19@ gmail.com) Bài : Cho trước số N , a , b , c tự nhiên...

Ngày tải lên: 01/08/2015, 23:11

Ngày tải lên: 17/10/2015, 14:35

Ngày tải lên: 04/10/2016, 17:59

... upcase(s[i+1]); Writeln(‘xau sau dieu chinh la’,s); Readln End Bài tập phần ghi, file Bài tập 1: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp học sinh,in danh sách vừa nhập Program danh_sach; ... n Do Write(a[i]: 8); Writeln; Writeln(' Bam phim de ket thuc '); Readln End Bài tập phần xâu: Bài tập1 : Chương trình nhập từ bàn phím ký tự chương trình đếm số lần xuất ký tự Program ... Readln; END Bài tập 3: Thông tin học sinh ghi gồm trường: Họđệm: xâu 25 kí tự Tên: xâu 10 kí tự Tuổi: số nguyên hai chữ số Lớp: xâu hai chữ số chữ viết hoa Một file ghi chứa danh sách lớp gồm 20...

Ngày tải lên: 07/10/2016, 21:43