giải nobel vật lý năm 2006 được trao cho 2 nhà khoa học mỹ john c mather và george f smoot với công trình khám phá sự hình thành vật thể đen và tính không đẳng hướng của bức xạ tàn dư của vũ trụ
Bai tap Pascal co ban
... 27 Tổng giám đ c công ty muốn tổ ch c buổi liên hoan cho đồng nghiệp c ng ty Mỗi c n c ng ty ngoại trừ tổng giám đ c có c p tr c tiếp C n P đ c gọi c p c n Q c dãy c n P1, P2, , Pk, k> =2, cho ... 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 26 ... Hãy chọn N ngời kh c cho loại c ng dân c đại diện số đ c chọn loại ý kiến c ngời số đ c chọn ủng hộ Dữ liệu đ c cho file text với tên city.dat dòng thứ ghi số nguyên dơng N, với c ng dân, c ng...
- 18
- 2,143
- 12
60 bài tập Pascal cơ bản
... Bài 31: Tính số Fibonacci: - F1 =F2 = - Fn = Fn-1 + Fn -2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F( n:integer):integer; Begin If (n=1) or (n =2) then F: =1 Else F: =F( n-1) +F( n -2) ; End; ... Readln(Fd); Assign (f1 ,fn1); Reset (f1 ); Assign (f2 ,fn2); Reset (f2 ); Assign (f3 ,Fd); Rewrite (f3 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f3 ,i); Trang 38 End; While not eof (f2 ) Begin Read (f2 ,i); ... Assign (f2 ,fd); Rewrite (f2 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f2 ,i); End; Close (f1 ); Seek (f2 ,0); Writeln('Noi dung cua file dich la:'); Writeln(' -'); While not eof (f2 ) Begin...
- 41
- 1,985
- 19
bai tap pascal co ban.doc
... • *.BGI: C c file điều khiển loại hình tương ứng dùng đồ hoạ • *.CHR: C c file chứa font chữ đồ họa C c bư c lập chương trình Pascal Bư c 1: Soạn thảo chương trình Bư c 2: Dịch chương trình (nhấn ... c phương trình D: Ax + By + C = Gợi ý: C ng th c tính khoảng c ch: h = A.xi + B y i + C A2 + B Bài tập 2. 7: Viết chương trình tách số n thành số a, b cho tích P=a*b2 đạt c c đại với n nhập vào ... từ đến N2 theo hình xoắn c với N nhập vào từ bàn phím Ví dụ, với N=5 ta c : 16 17 18 19 15 24 25 20 14 23 22 21 13 12 11 10 26 Giáo trình tập Pascal Chương CHƯƠNG TRÌNH CON: THỦ T C VÀ HÀM I...
- 144
- 868
- 5
61 BÀI TẬP PASCAL CƠ BẢN
... Bài 31: Tính số Fibonacci: - F1 =F2 = - Fn = Fn-1 + Fn -2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F( n:integer):integer; Begin If (n=1) or (n =2) then F: =1 Else F: =F( n-1) +F( n -2) ; End; ... Readln(Fd); Assign (f1 ,fn1); Reset (f1 ); Assign (f2 ,fn2); Reset (f2 ); Assign (f3 ,Fd); Rewrite (f3 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f3 ,i); Trang 38 End; While not eof (f2 ) Begin Read (f2 ,i); ... Assign (f2 ,fd); Rewrite (f2 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f2 ,i); End; Close (f1 ); Seek (f2 ,0); Writeln('Noi dung cua file dich la:'); Writeln(' -'); While not eof (f2 ) Begin...
- 41
- 1,498
- 4
Bai tap Pascal cơ bản
... Bài 31: Tính số Fibonacci: - F1 =F2 = - Fn = Fn-1 + Fn -2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F( n:integer):integer; Begin If (n=1) or (n =2) then F: =1 Else F: =F( n-1) +F( n -2) ; End; ... Readln(Fd); Assign (f1 ,fn1); Reset (f1 ); Assign (f2 ,fn2); Reset (f2 ); Assign (f3 ,Fd); Rewrite (f3 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f3 ,i); Trang 38 End; While not eof (f2 ) Begin Read (f2 ,i); ... Assign (f2 ,fd); Rewrite (f2 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f2 ,i); End; Close (f1 ); Seek (f2 ,0); Writeln('Noi dung cua file dich la:'); Writeln(' -'); While not eof (f2 ) Begin...
- 41
- 644
- 2
Bài tập pascal cơ bản
... vừa chó Bó lại cho tròn Ba mưoi sáu Một trăm chân chẵn Lời giải: uses crt; var cho: byte; BEGIN clrscr; for cho: =1 to 25 if 4 *cho+ (36 -cho) *2= 100 then writeln('So ga la: ',36 -cho, ' so cho la: ' ,cho) ; ... else writeln('Tong cac chu so cua ',n,' la ',tong,' khong chia het cho 6'); readln END Bài 18: Tính tổng n số phibonaci: F0 =F1 =1;Fi=Fi-1+Fi -2 (với i>1) Lời giải uses crt; var f, ft,ftn,tong:longint;n,i:integer; ... writeln('Duong cao canh thu la: ',dt *2/ b:0:4); writeln('Duong cao canh thu la: ',dt *2/ c: 0:4); if (a=b) or (a =c) or(b =c) then writeln('Tam giac can'); if (a*a=b*b +c* c) or (b*b=a*a +c* c) or (c* c=b*b+a*a)then...
- 15
- 803
- 5
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
... ds1 : Danhsach1; ds2 : Danhsach2; f1 : file of Danhsach1; f2 : file of Danhsach2; c : integer; BEGIN ĐT : 09 72. 311.481 Trang 34 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ClrScr; Writeln('Ghi ... : C U LỆNH C C U TR C Bài 12 Cho số tự nhiên n, lập trình để tính tổng sau : a + 1 /22 + 1/ 32 + … + 1/n2 b + 1 /2! + 1/3! + … + 1/n! Program Caua; Uses crt; Var n, i : Word; S : Real; BEGIN Clrscr; ... :=holot+ten; val(copy(lop,1 ,2) ,ds2.khoi ,c) ; ds2.tuoi:=tuoi; ds2.lop :=UpCase(lop[3]); Write (f2 ,ds2); End; End; Close (f1 ); Close (f2 ); Writeln; Writeln('Bam Enter de ket thuc!'); Readln; END ĐT : 09 72. 311.481...
- 45
- 14,423
- 17
Bài soạn Những bài tập Pascal cơ bản
... Bài 31: Tính số Fibonacci: - F1 =F2 = - Fn = Fn-1 + Fn -2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F( n:integer):integer; Begin If (n=1) or (n =2) then F: =1 Else F: =F( n-1) +F( n -2) ; End; ... Readln(Fd); Assign (f1 ,fn1); Reset (f1 ); Assign (f2 ,fn2); Reset (f2 ); Assign (f3 ,Fd); Rewrite (f3 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f3 ,i); Trang 38 End; While not eof (f2 ) Begin Read (f2 ,i); ... Assign (f2 ,fd); Rewrite (f2 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f2 ,i); End; Close (f1 ); Seek (f2 ,0); Writeln('Noi dung cua file dich la:'); Writeln(' -'); While not eof (f2 ) Begin...
- 41
- 1,395
- 24
Bài tập Pascal cơ bản và hướng dẫn
... a Chữ nhật đ c b Chữ nhật rỗng c Tam gi c cân đ c e Tam gi c vuông đ c 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 với ... end 12 VCT làm thay đổi ch c phím CAPLOCK, tắt caplock ta gõ chữ xuất chữ hoa, ngự c lại bật đèn caplock ta gõ chữ xuất chữ thường uses crt; var hoa,thuong:string; ch,t,h:char; Begin clrscr; for ... làm thành riêng biệt làm chung chương trình c lựa chọn ) uses crt; {BAI TOAN VE CAC LOAI HINH VOI KICH THUOC VA KI TU NHAP TU BAN PHIM} var c, h,n,d,r,luachon:integer; ch:char; begin clrscr;...
- 14
- 1,376
- 4
bài tập pascal có lời giải
... THCS Phương Ninh buf: array [1 1 024 ] of byte; f1 ,f2 : file; Begin Assign (f1 ,fi1); Reset (f1 ,1); Assign (f2 ,fi2); Rewrite (f2 ,1); nbuf:=1 024 ; Repeat Blockread (f1 ,buf,nbuf,nread); Blockwrite (f2 ,buf,nread); ... nreadnbuf; Close (f1 ); Close (f2 ); End; BÀI TẬP C BẢN BEGIN Copyfile (f1 ,f2 ); END Bài : Cho file text ghi lại chương trình Pascal h c sinh Hãy viết chương trình kiểm tra lỗi chương trình Pascal theo c ch ... sua chua :') ; docfile(fi) ; Readln; END Bài 5: Cho file f g kiểu ( không rõ kiểu ) Bạn lập thủ t c gán nội dung file g cho file f (* Gan hai file *) Uses Crt; Const f1 ='calc.ex'; f2 = 'C: \calc.exe';...
- 26
- 3,766
- 4
Giáo án - Bài giảng: Công nghệ thông tin: Bài tập Pascal có đáp án (Full)
... Bài 31: Tính số Fibonacci: - F1 =F2 = - Fn = Fn-1 + Fn -2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F( n:integer):integer; Begin If (n=1) or (n =2) then F: =1 Else F: =F( n-1) +F( n -2) ; End; ... Readln(Fd); Assign (f1 ,fn1); Reset (f1 ); Assign (f2 ,fn2); Reset (f2 ); Assign (f3 ,Fd); Rewrite (f3 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f3 ,i); Trang 38 End; While not eof (f2 ) Begin Read (f2 ,i); ... Assign (f2 ,fd); Rewrite (f2 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f2 ,i); End; Close (f1 ); Seek (f2 ,0); Writeln('Noi dung cua file dich la:'); Writeln(' -'); While not eof (f2 ) Begin...
- 41
- 822
- 0
Bài tập pascal cơ bản ppt
... vừa chó Bó lại cho tròn Ba mưoi sáu Một trăm chân chẵn Lời giải: uses crt; var cho: byte; BEGIN clrscr; for cho: =1 to 25 if 4 *cho+ (36 -cho) *2= 100 then writeln('So ga la: ',36 -cho, ' so cho la: ' ,cho) ; ... else writeln('Tong cac chu so cua ',n,' la ',tong,' khong chia het cho 6'); readln END Bài 18: Tính tổng n số phibonaci: F0 =F1 =1;Fi=Fi-1+Fi -2 (với i>1) Lời giải uses crt; var f, ft,ftn,tong:longint;n,i:integer; ... 3: Lập chương trình nhập vào độ dài c nh tam gi c th c : + Tính chu vi, diện tích, đường cao tam gi c + Kiểm tra xem tam gi c có tam gi c cân vuông không? Lời giải: uses crt; var a,b ,c, cv,dt,p:real;...
- 17
- 777
- 4
Bai tap pascal(co dap an)
... Blockread (f1 ,buf,nbuf,nread); Blockwrite (f2 ,buf,nread); Until nreadnbuf; Close (f1 ); Close (f2 ); End; BEGIN Copyfile (f1 ,f2 ); END Bài : Cho file text ghi lại chương trình Pascal h c sinh Hãy viết chương ... Procedure Copyfile(fi1,fi2: string); Var nread,nbuf: word; buf: array [1 1 024 ] of byte; f1 ,f2 : file; Begin Assign (f1 ,fi1); Reset (f1 ,1); Assign (f2 ,fi2); Rewrite (f2 ,1); nbuf:=1 024 ; Repeat Blockread (f1 ,buf,nbuf,nread); ... sua chua :') ; docfile(fi) ; Readln; END Bài : (* Cho file f g kiểu ( khơng rõ kiểu ) Bạn lập thủ t c gán nội dung file g cho file f Gan hai file *) Uses Crt; Const f1 ='calc.ex'; f2 = 'C: \calc.exe';...
- 49
- 1,034
- 12
BAI TAP PASCAL CO LOI GIAI
... Write('a21='); Readln(a [2, 1]); Write('a 22= '); Readln(a [2, 2]); Write( 'c2 ='); Readln (c [2] ); d:=a[1,1]*a [2, 2] - a [2, 1] * a[1 ,2] ; dx: =c[ 1]*a [2, 2] - c [2] * a[1 ,2] ; dy:=a[1,1] *c [2] - a [2, 1] * c[ 1]; If d=0 then ... trận : a11x + a12y = c1 BÀI TẬP C BẢN TRANG 21 BÀI TẬP C BẢN a21x + a22y = c2 GIẢI Uses Crt; Var a: array[1 2, 2] of real; c: array[1 2] of real; d, dx, dy, x, y: real; BEGIN Clrscr; Writeln('Giai ... Danhsach2=record hoten: string[35]; tuoi: byte; BÀI TẬP C BẢN TRANG 42 BÀI TẬP C BẢN khoi: byte; lop: char; End; Var ds1 : Danhsach1; ds2 : Danhsach2; f1 : file of Danhsach1; f2 : file of Danhsach2;...
- 68
- 4,449
- 123
Bài tập pascal cơ bản dành cho hs-sv pps
... vừa chó Bó lại cho tròn Ba mưoi sáu Một trăm chân chẵn Lời giải: uses crt; var cho: byte; BEGIN clrscr; for cho: =1 to 25 if 4 *cho+ (36 -cho) *2= 100 then writeln('So ga la: ',36 -cho, ' so cho la: ' ,cho) ; ... else writeln('Tong cac chu so cua ',n,' la ',tong,' khong chia het cho 6'); readln END Bài 18: Tính tổng n số phibonaci: F0 =F1 =1;Fi=Fi-1+Fi -2 (với i>1) Lời giải uses crt; var f, ft,ftn,tong:longint;n,i:integer; ... writeln('Duong cao canh thu la: ',dt *2/ b:0:4); writeln('Duong cao canh thu la: ',dt *2/ c: 0:4); if (a=b) or (a =c) or(b =c) then writeln('Tam giac can'); if (a*a=b*b +c* c) or (b*b=a*a +c* c) or (c* c=b*b+a*a)then...
- 15
- 817
- 16
Một số bài tập Pascal có lời giải ! docx
... - Pascal Chương CHƯƠNG TRÌNH CON: THỦ T C VÀ HÀM I KHÁI NIỆM VỀ CHƯƠNG TRÌNH CON Chương trình (CTC) đoạn chương trình th c trọn vẹn hay ch c Trong Turbo Pascal, c dạng CTC: • Thủ t c (PROCEDURE): ... thẳng c phương trình D: Ax + By + C = Gợi ý: C ng th c tính khoảng c ch: h = A.xi + B y i + C A2 + B Bài tập 2. 7: Viết chương trình tách số n thành số a, b cho tích P=a*b đạt c c đại với n nhập vào ... ngành - Pascal Chương C C CÂU LỆNH C C U TR C I C U LỆNH RẼ NHÁNH 1.1 Lệnh IF C pháp: (1) IF B THEN S; (2) IF B THEN S1 ELSE S2; Chú ý: Khi sử dụng c u lệnh IF đứng trư c từ khoá ELSE dấu chấm phẩy...
- 141
- 4,371
- 97
Bài tập pascal cơ bản doc
... báo Khong co Ví dụ với file INP.TXT 31 27 27 26 22 26 22 13 - 14 Bài tập Tập I file OUT.TXT Với file INP.TXT file OUT3.TXT 12 20 3 4 29 12 29 26 19 20 14 26 19 14 14 Khong co Bài 73 Cho hai xâu ... ch c buổi liên hoan cho đồng nghiệp c ng ty Mỗi c n c ng ty ngoại trừ tổng giám đ c có c p tr c tiếp C n P đ c gọi c p c n Q c dãy c n P1, P2, , Pk, k> =2, cho P=P1, Pk=Q với 1
- 18
- 773
- 3
TỔNG HỢP, PHÂN LOẠI BÀI TẬP PASCAL CÓ LỜI GIẢI
... c2 : =c2 +1; For i: =c2 to c4 begin m:=m+1; a [c3 ,i]:=m; Gotoxy (c3 *3,i);Write(a [c3 ,i]); end; c3 : =c3 -1; For i: =c3 downto c1 begin m:=m+1; a[i ,c4 ]:=m; Gotoxy(i*3 ,c4 );Write(a[i ,c4 ]); end; c4 : =c4 -1; For ... if n0; clrscr; m:=0; c1 :=1 ;c2 :=1 ;c3 :=n ;c4 :=n; Repeat For i: =c1 to c3 begin m:=m+1; a[i ,c2 ]:=m; Gotoxy(i*3 ,c2 );Write(a[i ,c2 ]); end; c2 : =c2 +1; ... phuong cac so tren hang chan} Tbphc := 0; For i := to n div For j := to n Tbphc := tbphc + sqr (A[I sh1 1,j]); Writeln(‘tong binh phuong cac so hang chan’,tbphc); {tinh tong can bac cac cot le} Tccl...
- 156
- 7,242
- 18
những bài tập pascal cơ bản và nâng cao
... Bài 31: Tính số Fibonacci: - F1 =F2 = - Fn = Fn-1 + Fn -2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F( n:integer):integer; Begin If (n=1) or (n =2) then F: =1 Else F: =F( n-1) +F( n -2) ; End; ... bảng chọn lệnh sau: Không làm hết trở hình soạn thảo Tính diện tích hình vuông Tính diện tích hình tròn Tính diện tích tam gi c Tính diện tích hình chӳ nhұt Program TINH_DIEN_TICH; Uses crt; Procedure ... a 12. y = c1 a21 + a 22. y = c2 Type MT = Bài 37: Hãy viết chương trình nhập giá trị cho ma trận vuông c p n array[1 a Tính tổng phần tử nằm đường chéo 20 ,1 20 ] b Tính tổng bình phương số nằm hàng chẵn...
- 78
- 540
- 5
bài tập pascal có lời giải
... Bài 31: Tính số Fibonacci: - F1 =F2 = - Fn = Fn-1 + Fn -2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F( n:integer):integer; Begin If (n=1) or (n =2) then F: =1 Else F: =F( n-1) +F( n -2) ; End; ... Readln(Fd); Assign (f1 ,fn1); Reset (f1 ); Assign (f2 ,fn2); Reset (f2 ); Assign (f3 ,Fd); Rewrite (f3 ); While not eof (f1 ) Begin Read (f1 ,i); Write (f3 ,i); Trang 38 End; While not eof (f2 ) Begin Read (f2 ,i); ... Read (f2 ,i); Write(i:3); End; Close (f2 ); Readln; End Bài 61 Viết chương trình tạo file F3 chứa số nguyên c ch nối hai file số nguyên F1 F2 c đĩa In nội dung tập tin hình Program GHEP_FILE; Uses Crt;...
- 41
- 589
- 0
Tìm thêm: hệ việt nam nhật bản và sức hấp dẫn của tiếng nhật tại việt nam 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 các chuẩn giảng dạy tiếng nhật từ góc độ lí thuyết và thực tiễn khảo sát chương trình đào tạo gắn với các giáo trình cụ thể đ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 nội dung cụ thể cho từng kĩ năng ở từng cấp độ 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ữ mở máy động cơ rôto dây quấn các đặc tính của động cơ điện không đồng bộ hệ số công suất cosp fi p2 đặc tuyến mômen quay m 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 sự cần thiết phải đầu tư xây dựng nhà máy phần 3 giới thiệu nguyên liệu chỉ tiêu chất lượng 9 tr 25