... Bài 19 Số siêu nguyên tố Số siêu nguyên tố số nguyên tố mà bó số tuỳ ý chữ số bên phải phần lại tạo thành số nguyên tố Ví dụ: 7333 số siêu nguyên tố có chữ số 733; 73; số nguyên tố Hãy lập chương ... End Bài 18 Bài toán số nguyên tố tương đương Hai số tự nhiên gọi nguyên tố tương đương chúng có chung ước số nguyên tố Ví dụ số 75 15 nguyên tố tương đương có ước nguyên tố Cho trước hai số tự ... cho chương trình đọc giátrị phần tử nhập - Một thủ tục (Procedure) làm công việc xếp sau : đưa phần tử thứ so sánh với phần tử tiếp theo, lớn phần tử so sánh đem đổi chổ giátrị hai phần tử với...
... hình: a Chữ nhật đặc c Tam giác cân đặc e Tam giác vuông đặc b Chữ nhật rỗng d Tam giác cân rỗng f Tam giác vuông rỗng (Hình chữ nhật: nhập chiều dài chiều rộng, Tam giác: nhập chiều cao; vẽ hình ... rong, nhap:2'); writeln(' Ve tam giac can dac, nhap:3'); writeln(' Ve tam giac can rong, nhap:4'); writeln(' Ve tam giac vuong dac, nhap:5'); writeln(' Ve tam giac vuong rong, nhap:6'); writeln; ... có chữ số (vd: fffhgj234fgg)- có kiểm tra việc nhập sai (vd: jghjg45jk ggdg012gdg ggdgg34hjhh3…) cho phép nhập lại Kiểm tra cho biết số có phải số nguyên tố không? var s,s1:string; x,vt,c,dem,i:integer;...
... ( giátrị đầu) to ( giátrị cuối) do; b Cấu trúc lệnh lặp : for ( giátrị cuối) to ( giátrị đầu) do; c Cấu trúc lệnh lặp : ( giátrị cuối) to ( giátrị đầu) for; d Cấu trúc lệnh lặp : ( giátrị ... đếm>= to B For := to C For := downto D For :
... thực in kết phép tính Nếu “+”, in kết tổng lên hình Nếu “-”, in kết hiệu lên hình Nếu “/”, in kết thương lên hình Nếu “*”, in kết tích lên hình Nếu “+”, in kết tổng lên hình Nếu “+”, in kết tổng ... :=1; giatri :=1; While i
... Đào Linh Giang Trịnh Quỳnh Anh Phan Thanh Thái Vũ Thị Tú Anh Lê Thị Hơng Lê Đình Quân Lê Thị Vân Anh Hoàng Văn Thiết Bùi Văn Tiến Nguyễn Văn Tùng Trịnh Quang Huy Vũ Văn Cờng Nguyễn Đình Nhạ Phạm ... 14-03-1996 02-01-1996 16-02-1996 Trịnh Thị Kiều Oanh ĐinhVăn Tâm Lữ Đăng Trờng Nguyễn Huy Vinh Trịnh Văn Nam Khơng Bá Duy Nguyễn Thị Chinh Trần Việt Anh Lê Đình Chức Nguyễn Duy Khang Lê Việt ... Hng Nguyễn Thị Cúc Hà Thị Hiền Trịnh Thị Hiền Lê Thị Thùy Dung Phạm Vn Sơn Lý Trờng Tùng Lê Văn Cân Lê Thị ánh Ngô Xuân Tuấn Nguyễn Mậu Hng Hà Duyên Đồng Phạm Văn Nam Ngày sinh 11-05-1996 09-06-1996...
... phím; - Gán cho biến tam giátrị a - Gán giátrị b cho a (Sau lệnh a có giátrị b) - Gán giátrị tạm cho cho b (Sau lệnh b có giátrị tam = a) b Mã chương trình: Program Doi _Gia_ Tri; uses crt; var ... bậc số Để cộng dồn giátrị vào biến biến có giátrị ban đầu Để nhân dồn giátrị ban đầu vào biến biến cần có giátrị ban đầu Bài tập 1.8: Viết chương trình nhập hai số, đổi giátrị hai số in hai ... thêm b vào a (Giá trị hai biến sau lệnh là: a+b, b) - Gán b tổng trừ b (Sau lệnh b có giátrị a); - Gán giátrị a tổng trừ b (Sau lệnh a có giátrị b) b Mã chương trình: Program Doi _Gia_ Tri; uses...
... thực in kết phép tính Nếu “+”, in kết tổng lên hình Nếu “-”, in kết hiệu lên hình Nếu “/”, in kết thương lên hình Nếu “*”, in kết tích lên hình Nếu “+”, in kết tổng lên hình Nếu “+”, in kết tổng ... Readln(n); i:=1; giatri:=1; While i
... trị lớn diện tích tam giác AMN - Dòng thứ năm giátrị nhỏ diện tích tam giác AMN (Các giátrị diện tích ghi dạng thập phân với chữ số sau dấu phẩy) Ví dụ: DIENTICH.INP Kết hình (hoặc file DIENTICH.OUT) ... cầu: Biết độ dài BM, tính diện tích hình chữ nhật ABCD diện tích tam giác MCN 2.Tìm giátrị lớn giátrị nhỏ diện tích tam giác AMN M, N thay đổi Dữ liệu vào: Dữ liệu tốn cho tệp tin DIENTICH.INP ... Dữ liệu ra: Kết ghi hình (hoặc ghi file DIENTICH.OUT) dòng: - Dòng đầu ba số a, b x - Dòng thứ hai diện tích hình chữ nhật ABCD - Dòng thứ ba diện tích tam giác MCN - Dòng thứ tư giátrị lớn diện...
... sogiay,gio,phut,giay:Integer; Begin Writeln('TINH GIO:PHUT:GIAY'); Writeln(' '); Write('-Nhap so giay can tinh: '); Readln(sogiay); gio:=sogiay DIV 3600; sogiay:= sogiay MOD 3600; phut:=sogiay DIV ... phut:=sogiay DIV 60; giay:=sogiay MOD 60; Writeln; Writeln('KET QUA CHUYEN DOI'); Writeln('+Neu nhap vao: ',sogiay,' giay'); Writeln('+Doi thanh: ',gio,' gio, ',phut,' phut, ',giay,' giay'); Readln ... Writeln(' *Gia xuat xuong = ',pe:10:2,' dong'); Writeln(' *Gia ban de hoa von la : ',pc:10:2,' dong'); Writeln(' Bam phim de ket thuc'); Readln End Chương Bài Program Tinh_Gio_Phut_Giay; Var sogiay,gio,phut,giay:Integer;...
... đồ đường: + Trục tung: Thể trị số đối tượng (trị số %), góc tọa độ 0, trị số ≤ 100 Hoặc trục tung trị số % mà giátrị khác tùy theo yêu cầu đề + Trục hoành: Thể thời gian (năm), góc tọa độ trùng ... điểm giátrị năm tương ứng + Nếu có hai đường trở lên, phải vẽ hai đường phân biệt thích theo thứ tự đề cho + Ghi tên biểu đồ bên Ví dụ 1: Cho bảng số liệu số lượng gia súc ,gia cầm số tăng trưởng(năm ... 182,6 130,4 23169,5 189,0 233,3 217,2 tăng trưởng đàn gia súc ,gia cầm qua năm 1900, Trâu Chỉ số Bò Chỉ số (nghìn tăng (nghìn tăng con) trưởng(%) con) trưởng(%) Lợn (nghìn con) 1990 1854,1 100,0 3116,9...
... Ampe kế A1 có điện trở không đáng kể, đèn Đ ghi 20V- 10W Ngời ta thấy để đèn sáng bình thờng chạy C vị trí mà điện trở đoạn CM gấp hai lần điện trở đoạn CN ampe kế A1 0,75A a Tìm giátrị biến trở ... Ampekế có điện trở R a=1 , Rx biến trở, U không đổi Bỏ qua điện trở dây nối khóa K a K đóng, thay đổi giátrị R x đến công suất tiêu thụ A Rx đạt cực đại ampekế 3A Xác định hiệu điện U b K mở, ... Tìm giátrị biến trở RMN b Thay đèn Đ ampe kế A2 có điện trở 10 Dịch chuyển vị trí chạy C đoạn MN đến vị trí mà ampekế A giátrị cực đại Tính giátrị cực đại Câu (3,0 điểm) Cho mạch điện nh...
... phím; - Gán cho biến tam giátrị a - Gán giátrị b cho a (Sau lệnh a có giátrị b) - Gán giátrị tạm cho cho b (Sau lệnh b có giátrị tam = a) b Mã chương trình: Program Doi _Gia_ Tri; uses crt; var ... bậc số Để cộng dồn giátrị vào biến biến có giátrị ban đầu Để nhân dồn giátrị ban đầu vào biến biến cần có giátrị ban đầu Bài tập 1.8: Viết chương trình nhập hai số, đổi giátrị hai số in hai ... thêm b vào a (Giá trị hai biến sau lệnh là: a+b, b) - Gán b tổng trừ b (Sau lệnh b có giátrị a); - Gán giátrị a tổng trừ b (Sau lệnh a có giátrị b) b Mã chương trình: Program Doi _Gia_ Tri; uses...
... dẫn nằm mạch hở; điện trở khác mắc song song với vật dãn có điện trở 0( điện trở bị nối tắt) ; vôn kế có điện trở lớn (lý tưởng) 4/ Vai trò am pe kế sơ đồ: * Nếu am pe kế lý tưởng ( Ra=0) , chức ... có giátrị R R3 Ω DN có giátrị Ω Lúc vôn kế vôn ( Vôn kế đo UDN Bài 11:Cho mạch điện hình vẽ Hiệu điện hai dầu đoạn mạch U = 60 V, R1 = 10 Ω ,R2 = R5 = 20 Ω , R3 = R4 = 40 Ω Vôn kế V lý tưởng, ... Điện trở toàn phần biến trở Ro , điện trở vôn kế R lớn Bỏ qua điện trở ampe kế, dây nối phụ A thuộc điện trở vào nhiệt độ Duy trì hai đầu mạch hiệu điện U không đổi Lúc đầu chạy C biến trở C đặt...
... 25 km/h 1/2 ®o¹n ®êng cßn l¹i vËt chun ®éng theo hai giai ®o¹n : Giai ®o¹n 1/3 thêi gian ®i víi vËn tèc V2= 17 km/h Giai ®o¹n 2/3 thêi gian vËt chun ®éng víi vËn tèc V 3= 14 km/h TÝnh vËn ... đường theo giai đoạn sau: Giai đoạn 1: Chuyển động thẳng với vận tốc 18 km/h km Giai đoạn 2: Chuyển động biến đổi 45 phút với vận tốc 30 km/h Giai đoạn 3: Chuyển động qng đường km thời gian 10 phút ... lượng kếđựng 2kg nước nhiệt độ 150C Cho khối nước đá nhiệt độ -100C vào nhiệt lượng kế Sau đạt cân nhiệt người ta tiếp tục cung cấp cho nhiệt lượng kế nhiệt lượng Q= 158kJ nhiệt độ nhiệt lượng kế...
... kết phép tính Nếu ‚+‛ , in kết tổng lên hình Nếu ‚-‛ , in kết hiệu lên hình Nếu ‚/‛ , in kết thương lên hình Nếu ‚*‛ , in kết tích lên hình Nếu ‚+‛ , in kết tổng lên hình Nếu ‚+‛ , in kết ... chương trình hoàn chỉnh thực công việc thực đơn sau : 1 Nhập liệu ( nhập số tự nhiên n ) 2 Phân tích thừa số nguyên tố ( phân tích n thành tích số nguyên tố ) 3 Thoát khỏi chương trình GIẢI Uses ... Var tacgia: string; namXB: integer; i: integer; Begin Write('Cho ten tac gia : '); Readln(M.tacgia); Write('Cho nam xuat ban : '); Readln(M.NamXB); i:=1; While (i
... kết phép tính Nếu “+” , in kết tổng lên hình Nếu “-” , in kết hiệu lên hình Nếu “/” , in kết thương lên hình Nếu “*” , in kết tích lên hình Nếu “+” , in kết tổng lên hình Nếu “+” , in kết ... chương trình hoàn chỉnh thực công việc thực đơn sau : 1 Nhập liệu ( nhập số tự nhiên n ) 2 Phân tích thừa số nguyên tố ( phân tích n thành tích số nguyên tố ) 3 Thoát khỏi chương trình GIẢI Uses ... Var tacgia: string; namXB: integer; i: integer; Begin Write('Cho ten tac gia : '); Readln(M.tacgia); Write('Cho nam xuat ban : '); Readln(M.NamXB); i:=1; While (i
... phím; - Gán cho biến tam giátrị a - Gán giátrị b cho a (Sau lệnh a có giátrị b) - Gán giátrị tạm cho cho b (Sau lệnh b có giátrị tam = a) b Mã chương trình: Program Doi _Gia_ Tri; uses crt; var ... bậc số Để cộng dồn giátrị vào biến biến có giátrị ban đầu Để nhân dồn giátrị ban đầu vào biến biến cần có giátrị ban đầu Bài tập 1.8: Viết chương trình nhập hai số, đổi giátrị hai số in hai ... thêm b vào a (Giá trị hai biến sau lệnh là: a+b, b) - Gán b tổng trừ b (Sau lệnh b có giátrị a); - Gán giátrị a tổng trừ b (Sau lệnh a có giátrị b) b Mã chương trình: Program Doi _Gia_ Tri; uses...
... thực in kết phép tính Nếu “+”, in kết tổng lên hình Nếu “-”, in kết hiệu lên hình Nếu “/”, in kết thương lên hình Nếu “*”, in kết tích lên hình Nếu “+”, in kết tổng lên hình Nếu “+”, in kết tổng ... Readln End Bài 6: Nhập vào thời gian công việc x giây Hãy chuyển đổi viết hình số thời gian dạng giờ, phút, giây Program DOI_GIO_PHUT_GIAY; Uses crt; Var gio, phut,giay, x: longint; Begin Clrscr; ... Readln(n); i:=1; giatri:=1; While i