0

đình văn hoá và phong trào xây dựng gia đình văn hoá

bai tâp pascal thcs lớp 9

bai tâp pascal thcs lớp 9

Lớp 9

... then begin write ('3 cạnh tren tao tam giac'); if (a=b) and (b=c) then write ('Day la tam giac deu'); if (a=b) or (b=c) or (a=c) then weite ('Day la tam giac can'); p:= (a+b+c)/2; s:= SQRT(p*(p-a)*(p-b)*(p-c)); ... Writeln(i); end; end; Writeln('Co ',s,' so hoan hao co gia tri tu den ',n,'.'); Readln; End Bài 26: Tính số ngày mốc thời gian bất kỳ: Yêu cầu nhập vào số: nd , td , yd , nc , tc , yc ngày tháng năm ... End Bài 23:Cho ma trận nguyên An x n số a, b Hãy xây dựng ma trận cấp An – x n – từ ma trận cách loại bỏ dòng a cột b ( không dùng ma trận trung gian ) {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R+,S+,T-,V+,X+}...
  • 55
  • 6,171
  • 6
Bài tập Pascal HSG TP Tuyên Quang

Bài tập Pascal HSG TP Tuyên Quang

Tin học

... 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; ... chieu cao tam giac can dac:');readln(n); clrscr; for c:=1 to n begin for h:=n-c+1 to n+c-1 begin gotoxy(h,c);write(ch);end; writeln; end; END; 4:BEGIN write('Nhap chieu cao tam giac can rong:');readln(n); ... 5:BEGIN write('Nhap chieu cao tam giac vuong dac:');readln(n); clrscr; for h:=1 to n begin for c:=1 to h write(ch); writeln; end; END; 6:BEGIN write('Nhap chieu cao tam giac vuong rong:');readln(n);...
  • 12
  • 334
  • 3
BÀI TẬP PASCAL ÔN THI HSG

BÀI TẬP PASCAL ÔN THI HSG

Tin học

... s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘chu vi tam giac:’,2*p); Writeln(‘dien tich hinh tam giac:’,s); End; Else Writeln(a,b,c khong phai la canh cua tam giac’); Readln; End Bài 4: Viết chương trình ... tam giac') else if (A*A=B*B+C*C) or (B*B=A*A+C*C) or (C*C=A*A+B*B) then writeln('Day la ba canh cua tam giac vuong') else if (A=B) and(B=C) and (A=C) then writeln('Day la ba canh cua tam giac ... then writeln('Day la ba canh cua tam giac can') else writeln('Day chi la ba canh cua tam giac thuong'); readln; end Bài8: Viết chưong trình nhập số tự nhiên vào máy tính ghi hình kết số nhập số...
  • 21
  • 1,904
  • 41
Bài tập Pascal cơ bản đến nâng cao theo chương trình tin học lớp 11 không phân ban

Bài tập Pascal cơ bản đến nâng cao theo chương trình tin học lớp 11 không phân ban

Tin học

... nhap la ba canh cua tam giac’); ĐT : 0972.311.481 Trang Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Writeln(‘ chu vi cua tam gia la’, cv : : 2, ‘ dien tich cua tam giac la’, s:6 :2); End ... End; 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 ... While i
  • 45
  • 14,419
  • 17
Bài soạn CV 13/PGD&ĐT V/v tập huấn HSG lớp 9 dự thi HSG tỉnh năm học 2010-2011

Bài soạn CV 13/PGD&ĐT V/v tập huấn HSG lớp 9 dự thi HSG tỉnh năm học 2010-2011

Tin học

... Đà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 ... Lê Thánh Tông Lê Thánh Tông Xuân Tín Thọ Trờng TTr Sao Vàng TTr Sao Vàng TT Thọ Xuân Xuân Giang Xuân Giang Nam Giang Thọ Diên Xuân Lai Xuân Phong Địa điểm tập huấn THCS Lê ThánhTông (Danh sách ... THCS TTr Sao Vàng TTr Sao Vàng TTr Sao Vàng Xuân Yên Xuân Tín Thọ Lộc Lam Sơn Lê Thánh Tông Xuân Hòa Xuân Tín Bắc Lơng Lê Thánh Tông Xuân Thành Lam Sơn Địa điểm tập huấn THCS TTr Sao Vàng THCS Lê...
  • 5
  • 288
  • 0
100 bài tập Turbo Pascal - Bài tập tin học lớp 8 pot

100 bài tập Turbo Pascal - Bài tập tin học lớp 8 pot

Cơ sở dữ liệu

... trình: Program Giai_thua_de_qui; uses crt; var n: longint; Trang 35 100 tập Turbo Pascal function Giai_thua(n:longint):longint; begin if n=0 then giai_thua:=1 else Giai_thua:=n*Giai_thua(n-1); ... 100 tập Turbo Pascal Viết phần mềm cho phép mã hoá giải mã xâu ký tự theo ý riêng Để mã hoá người dùng khoá khác Ví dụ Khoá a: = succ(a) cho phép mã hoá xâu abc thành bcd a.Hướng dẫn: b Mã chương ... i:= to length(st) st[i]:=pred(st[i]); write('Sau giai ma: ',st); readln; end c Nhận xét: Để mã hoá theo khoá a ->b ta dùng hàm succ, pred Nếu khoá a ->d lúc ta dùng đến hàm cho biết mã ascii ký...
  • 55
  • 46,866
  • 1,330
Tuyển chọn bài tập Pascal - Lớp 11

Tuyển chọn bài tập Pascal - Lớp 11

Kỹ thuật lập trình

... nhap la ba canh cua tam giac’); ĐT: 0972.311.481 Trang Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Writeln(‘ chu vi cua tam gia la’, cv: 4: 2, ‘ dien tich cua tam giac la’, s:6:2); End Else ... End; 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; ... giatri:=1; While i
  • 45
  • 2,368
  • 3
Các bài tập Pascal hay dành cho học sinh lớp 9 pot

Các bài tập Pascal hay dành cho học sinh lớp 9 pot

Kỹ thuật lập trình

... Dữ liệu vào xác khơng cần kiểm tra - Nếu khơng nhập liệu vào từ file, thí sinh nhập liệu vào từ bàn phím - Có khoảng 60% số test có a < 100 BÀI 12: ĐỌC SỐ LA MÃ Viết chương trình nhập vào số la ... hạng cuối (là số hạng 6174) dãy Dữ liệu: Cho tập tin văn DL6174.INP, gồm dòng gồm số ngun dương số hạng dãy số 6174 Kết quả: Cho tập tin văn DL6174.OUT, gồm dòng gồm số ngun dương số hiệu số ... Chữ số đầu số (vị trí thứ tính từ bên trái) có nghĩa Định lý 6174 phát biểu số hạng cuối dãy số xây dựng ln số 6174 Chẳng hạn, xét dãy mà số hạng (n1) 7815 Ta có: 8751 - 1578 = 7173 (n2) 7731 -...
  • 5
  • 3,222
  • 40
Bài tập Pascal lớp 11 docx

Bài tập Pascal lớp 11 docx

Kỹ thuật lập trình

... 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;...
  • 15
  • 1,157
  • 14
Các dạng bài tập thi HSG môn địa lí lớp 9

Các dạng bài tập thi HSG môn địa lí lớp 9

Địa lý

... - 150 1995 100 2000 2002 50 1990 Biểu đồ thể số tăng trưởng đàn gia súc ,gia cầm giai đoạn 1990 – 2002 Ví dụ 2: Dựa vào bảng số liệu đây, vẽ biểu đồ thể tốc độ tăng dân số, sản lượng lượng ... 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 1990=100,0%) Năm Gia Chỉ số Chỉ số cầm tăng tăng (triệu trưởng(%) trưởng(%) con) 100,0 ... 6062,9 Hãy vẽ biểu đồ thể số 1995, 2000 2002 Đề yêu cầu vẽ biểu đồ thể số tăng trưởng đàn gia súc ,gia cầm,căn vào bảng số liệu yêu cầu đề ta tiến hành vẽ biểu đồ đường % 250 200 GV: Lương Phước Thọ...
  • 14
  • 37,200
  • 127
bai tap on HSG dien lop 9

bai tap on HSG dien lop 9

Ngữ văn

... ; R234 = 10( ) [{( R3//R4) nt R2}//Rx] R1 10(x + 1) 20x + 120 + 10 = 11 + x 11 + x U R AB Thay vào ta tính đợc: UAB= U(x + 1) (1) -Tính UAB = I.RAB= Rm 2x + 12 U U - Tính Ix= AB = (A) x + 2x...
  • 5
  • 373
  • 0
Một số bài tập pascal cơ bản lớp 8

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

Trung học cơ sở - phổ thông

... trình: Program Giai_thua_de_qui; uses crt; var n: longint; Trang 34 100 tập Turbo Pascal function Giai_thua(n:longint):longint; begin if n=0 then giai_thua:=1 else Giai_thua:=n*Giai_thua(n-1); ... 100 tập Turbo Pascal Viết phần mềm cho phép mã hoá giải mã xâu ký tự theo ý riêng Để mã hoá người dùng khoá khác Ví dụ Khoá a: = succ(a) cho phép mã hoá xâu abc thành bcd a.Hướng dẫn: b Mã chương ... i:= to length(st) st[i]:=pred(st[i]); write('Sau giai ma: ',st); readln; end c Nhận xét: Để mã hoá theo khoá a ->b ta dùng hàm succ, pred Nếu khoá a ->d lúc ta dùng đến hàm cho biết mã ascii ký...
  • 54
  • 4,040
  • 3
bài tập vật lý lớp 8 dành cho HSG

bài tập vật lý lớp 8 dành cho HSG

Vật lý

... từ phích vào đầy cốc thả nhiệt kế vào cốc, nhiệt kế t1 = 600C Đổ nước cũ nhiệt độ cốc nhiệt kế t' = 55 0C, lại rót từ phích vào đầy cốc, nhiệt kế t2 = 750C Cho thời gian từ lúc rót nước vào cốc ... 100cm 200cm2 nối thông đáy ống nhỏ qua khoá k hình vẽ Lúc đầu khoá k để ngăn cách hai bình, sau đổ lít dầu vào bình A, đổ 5,4 lít nước vào bình B Sau mở khoá k để tạo thành bình thông Tính độ cao ... tích phần cầu ngập nước (V 3) phụ d3 − d2 thuộc vào V1, d1, d2, d3 không phụ thuộc vào độ sâu cầu dầu, lượng dầu đổ thêm vào Do tiếp tục đổ thêm dầu vào phần cầu ngập nước không thay đổi b/Từ biểu...
  • 81
  • 5,620
  • 2
bài tập vật lý lớp 8 HSG và lời giải

bài tập vật lý lớp 8 HSG lời giải

Toán học

... 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 ... níc tõ bÕn B ®Õn bÕn A BiÕt r»ng thêi gian ®i tõ B ®Õn A gÊp 1,5 lÇn thêi gian ®i tõ A ®Õn B (níc ch¶y ®Ịu) Kho¶ng c¸ch gi÷a hai bÕn A, B lµ 48 km vµ thêi gian Can« ®i tõ B ®Õn A lµ 1,5 giê TÝnh...
  • 58
  • 1,177
  • 1
Bài tập pascal lớp 10 cơ bản đến nâng cao

Bài tập pascal lớp 10 cơ bản đến nâng cao

Tin học

... 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
  • 68
  • 6,102
  • 0
Bai tap pascal lop 8

Bai tap pascal lop 8

Trung học cơ sở - phổ thông

... 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
  • 60
  • 432
  • 2
100 bài tập turbo pascal   bài tập tin học lớp 8

100 bài tập turbo pascal bài tập tin học lớp 8

Trung học cơ sở - phổ thông

... tam giac deu') else writeln('Khong phai la tam giac deu'); readln end Bài tập Viết chương trình xét xem tam giác có tam giác cân hay ba cạnh tam giác a.Hướng dẫn: - Nhập ba cạnh tam giác vào ... tam giac can') else writeln('Khong phai la tam giac can'); readln end - Bài tập Viết chương trình xét xem tam giác có tam giác vuông hay ba cạnh tam giác a.Hướng dẫn: - Nhập ba cạnh tam giác vào ... sqrt(p*(p-a)*(p-b)*(p-c)); Write('Dien tich tam giac la:',s:10:2); readln end Trang 100 tập Turbo Pascal b Nhận xét: Ở ta lại hai lần dùng biến trung gian p, s để chương trình sáng sủa, dễ theo dõi...
  • 20
  • 610
  • 0
BÀI TẬP PASCAL LỚP 11

BÀI TẬP PASCAL LỚP 11

Tin học

... End; 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; ... la ba canh cua tam giac’); Writeln(‘ chu vi cua tam gia la’, cv: 4: 2, ‘ dien tich cua tam giac la’, s:6:2); End Else Writeln(‘ba so vua nhap khong phai la ba canh cua tam giac’); Readln End ... nhập vào từ bàn phím Program Tinhgiaithua; Uses Crt; Var i, n: Integer; a, giatri: Real; BEGIN Clrscr; Write (' nhap co so a =: '); Readln(a); Write (' nhap so mu n =: '); Readln(n); i:=1; giatri:=1;...
  • 29
  • 5,486
  • 8

Xem thêm

Tìm thêm: xác định các mục tiêu của chương trình xác định các nguyên tắc biên soạn khảo sát chương trình đào tạo của các đơn vị đào tạo tại nhật bản tiến hành xây dựng chương trình đào tạo dành cho đối tượng không chuyên ngữ tại việt nam điều tra đối với đối tượng giảng viên và đối tượng quản lí điều tra với đối tượng sinh viên học tiếng nhật không chuyên ngữ1 khảo sát thực tế giảng dạy tiếng nhật không chuyên ngữ tại việt nam khảo sát các chương trình đào tạo theo những bộ giáo trình tiêu biểu xác định mức độ đáp ứng về văn hoá và chuyên môn trong ct phát huy những thành tựu công nghệ mới nhất được áp dụng vào công tác dạy và học ngoại ngữ hệ số công suất cosp fi p2 đặc tuyến hiệu suất h fi p2 đặc tuyến tốc độ rôto n fi p2 đặc tuyến dòng điện stato i1 fi p2 động cơ điện không đồng bộ một pha thông tin liên lạc và các dịch vụ phần 3 giới thiệu nguyên liệu từ bảng 3 1 ta thấy ngoài hai thành phần chủ yếu và chiếm tỷ lệ cao nhất là tinh bột và cacbonhydrat trong hạt gạo tẻ còn chứa đường cellulose hemicellulose chỉ tiêu chất lượng theo chất lượng phẩm chất sản phẩm khô từ gạo của bộ y tế năm 2008 chỉ tiêu chất lượng 9 tr 25