Một số bài tập pascal cơ bản lớp 8

... phần 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ị số có ba chữ số Ví dụ nhập số 357 máy in ra: - Chữ số hàng trăm: - Chữ số hàng chục: - Chữ số hàng đơn ... Trang 19 100 tập Turbo Pascal IV Cấu trúc lặp với số lần lặp chưa biết Bài tập 4.1: Viết chương trình in số lẻ nhỏ n ( Với n nhập) a Hướng dẫn: - Sử dụng kiến thức số...

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

... PHANTICH(n); Readln; End BÀI TẬP TỰ GIẢI Bài tập 4.7: Viết hàm tìm Max , số thực Bài tập 4.8: Viết hàm PERFECT(n:Word):Boolean; để kiểm tra số nguyên n có phải số hoàn thiện hay không? Bài tập 4.9: Viết ... kiểu Boolean để kiểm tra số nhập vào có phải số nguyên tố hay không Bài tập 3.23: Viết chương trình nhập vào số nguyên dương Hãy thông báo lên hình số có...

Ngày tải lên: 28/07/2014, 19:20

... Viết chương trình tìm tất ư c số số nguyên cho trư c nhập từ bàn phím Viết chương trình cho dòng chữ chạy ngang hình Bài tập th c hành số (mảng chuỗi) (*)Cho số nguyên n nhập từ bàn phím Viết chương ... Bài tập th c hành ngôn ngữ C Nguyễn Trần Thi Văn Bài tập th c hành số (c c cấu tr c điều khiển) (*)Cho số nguyên n nhập từ bàn phím Kiểm tra xem n c phải số n...

Ngày tải lên: 14/04/2015, 22:54

... DỤNG MỘT SỐ BĐT THÔNG DỤNG Bất đẳng thức Cô-si (Cauchy) BĐT Cauchy áp dụng cho số không âm a +b ³ ab dấu “=” xảy a=b a +b+c Cho ba số: ³ abc dấu “=” xảy a=b=c a + a + + an n Tổng cho n số: ³ ... n Cho hai số: Ví dụ: Cho a, b, c số dương Chứng minh rằng: æ 1 1ö ( a + b + c) ç + + ÷ ³ èa b cø Bất đẳng thức Bunhiacopski: Bất đẳng thức Bunhiacopski áp dụng cho số thực Cho cặp số tùy ý...

Ngày tải lên: 15/05/2015, 07:14

... ĐT : 0972. 311. 481 Trang 30 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Bài tập 2: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp Chương trình in danh sách sau xếp theo thứ tự ... 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...

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

... Khong co - 14 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập Tập I Ví dụ với file INP.TXT 31 27 27 26 22 12 20 file OUT.TXT 3 Với file INP.TXT 1 29 29 26 19 12 20 file OUT3.TXT Khong co ... ghi file OUT.BL nh sau: -7 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập Tập I - Nếu đờng đi, ghi dòng chữ KHONG CO DUONG DI, - Nếu có đờng đi, ghi hai dòng: dòng thứ ghi số cung, dòng ....

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

... Bài tập 3: Viết chương trình nhập vào dãy số nguyên (a) n (b)m, m≤n Kiểm tra xem dãy {b} có phải dãy dãy {a} không? Bài tập 4: Viết chương trình nhập vào dãy số nguyên a 1, a2, ... A[n,n] Bài 10: Tìm phần tử cảu ma trận vuông MIN MAX phần tử nằm đường chéo Bài 11: Viết chương trình xếp phần tử ma trận vuông A[n,n] cho phần tử tăng dần theo đường zigzag hình vẽ Bài tập 11:...

Ngày tải lên: 16/07/2013, 01:26

... giay: ');readln(x); gio:= x div 3600 ; x:=x mod 3600 ; phut:=x div 60; x:=x mod 60; Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); Readln; End Bài 11: Nhập vào tâm bán kính đường ... While not eof(f) Begin read(f,i); write(i:3); End; Readln; End Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình Program COPY_FILE; Trang...

Ngày tải lên: 26/07/2013, 01:27

... chấm phẩy (;) 1.2 Lệnh CASE Cú pháp: Dạng CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; END; Dạng CASE B OF Const 1: S1; Const 2: S2; Const n: Sn; ELSE Sn+1; END; Trong đó:  B: Biểu thức ... tên BAI1 .PAS Thoát khỏi Pascal Khởi động lại Turbo Pascal Mở file BAI1 .PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa 11 Thoát khỏi...

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

... ');readln(k); Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, 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; ... While not eof(f) Begin read(f,i); write(i:3); End; Readln; End Bài 60: Mở file số nguyên có đĩa, chép nội dung sang tập tin in nội dung tập tin sau chép hình...

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

... là: A Akan B Anken C Ankin D Aren Câu 16: Đốt cháy hỗn hợp gồm đồng đẳng ankin thu 3,36lit khí CO (đktc) 1,8gam nước Vậy số mol ankin bị đốt cháy là: A 0,1mol B 0,15mol C 0,05mol D Không xác ... C4H6 Câu 18 Đốt cháy hoàn toàn hỗn hợp hiđrocacbon có khối lượng phân tử 14 đvc m gam nước 2m gam CO2 Hai hiđrocacbon là: A Hai anken B C4H10 C5H12 C C2H2 C3H4 D C6H6 C7H8 Câu 19 Đốt cháy hoàn toàn...

Ngày tải lên: 15/09/2013, 00:10

Ngày tải lên: 30/09/2013, 05:10

... Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, 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; ... ((5*td+3*tn+tg/3=100)and (td+tn+tg=100)) then Writeln(td:6, tn:12, tg:15); Readln; End Trang Bài 23: Tạo bảng số dạng sau: 10 11 12 13 14 15 16 17 18 19 Program BANG_SO; Uses crt;...

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

... Tương tự với xếp với dãy giảm dần Bài 28: Cho dãy số a1, ,an; b1, ,bm xếp theo thứ tự tăng dần Lập trình để từ dãy xây dựng dãy theo thứ tự tăng dần Lời giải: Bài 29: Nhập số nguyên dương n dãy ... can'); if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a)then writeln('Tam giac vuong'); readln END Bài 4: Lập trình giải phương trình bậc 2: Lời giải: uses crt; var a,b,c,x1,x2,d:real; BEGIN...

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