georges charpak 1924 đã nghiên cứu chi tiết q trình ion hóa trong chất khí và đã sáng tạo ra buồng dây

Bai tap Pascal co ban

Bai tap Pascal co ban

Ngày tải lên : 24/06/2013, 01:28
... vào lối vào đó, sau cầu qua chi tiết đó, chi tiết thay đổi trạng thái từ thành từ thành Hoạt động ô tô mát đợc thể xâu ký tự S gồm chữ hoa A, B, C mà ký tự xâu S thể việc ta thả cầu vào lối vào ... tình trạng quen biết N ngời đợc cho mảng đối xứng A[1 N,1 N] A[i,j]=A[j,i]=1 i quen j i không quen j Hãy xét xem liệu chia N ngời thành nhóm mà nhóm, hai ngời không quen nhau? Dữ liệu vào đợc cho ... ghi vào file OUT1.TXT dòng thứ ghi số lợng phép đổi chỗ cần dùng Trong dòng tiếp theo, dòng ghi phép đổi chỗ dới dạng hai số p q có nghĩa đổi chỗ viên bi hai vị trí p q cho Trình tự viết dòng trình...
  • 18
  • 2.1K
  • 12
  1. Giáo án - Bài giảng
  2. Tin học
60 bài tập Pascal cơ bản

60 bài tập Pascal cơ bản

Ngày tải lên : 26/07/2013, 01:27
... lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n kq:=kq*a; lt:=kq; End; Function gt(n:integer):longint; Var kq,i:longint; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Begin Clrscr; ... 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; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function ... Hỏi có loại? Program TRAMTRAU_TRAMCO; Uses crt; Var td,tn,tg:integer; Begin Clrscr; Writeln(' TRAM TRAU TRAM CO:'); Writeln(' '); Writeln('Trau dung Trau nam Trau gia'); For td:=0...
  • 41
  • 2K
  • 19
  1. Giáo án - Bài giảng
  2. Tư liệu khác
bai tap pascal co ban.doc

bai tap pascal co ban.doc

Ngày tải lên : 26/08/2013, 00:10
... {A=50 B=200} IV ĐỆ QUI 4.1 Khái niệm đệ qui Trong chương trình, CTC gọi CTC khác vào làm việc Nếu CTC gọi lại gọi đệ qui 4.2 Phương pháp thiết kế giải thuật đệ qui • Tham số hóa toán • Tìm trường ... 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 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ó ... PROGRAM Tên_chương _trình; { Phần khai báo } USES ; CONST .; TYPE .; VAR ; PROCEDURE ; FUNCTION ; { Phần thân chương trình } BEGIN END Ví dụ 1: Chương trình Pascal đơn giản BEGIN Giáo trình...
  • 144
  • 868
  • 5
  1. Giáo án - Bài giảng
  2. Tin học
61 BÀI TẬP PASCAL CƠ BẢN

61 BÀI TẬP PASCAL CƠ BẢN

Ngày tải lên : 28/08/2013, 08:00
... Hỏi có loại? Program TRAMTRAU_TRAMCO; Uses crt; Var td,tn,tg:integer; Begin Clrscr; Writeln(' TRAM TRAU TRAM CO:'); Writeln(' '); Writeln('Trau dung Trau nam Trau gia'); For td:=0 ... 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; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function ... kn (dùng chương trình con) Program TO_HOP; Uses Crt; Var n,k:integer; Function gt(n:integer):longint; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function C(n,k:integer):real;...
  • 41
  • 1.5K
  • 4
  1. Giáo Dục - Đào Tạo
  2. Cao đẳng - Đại học
Bai tap Pascal cơ bản

Bai tap Pascal cơ bản

Ngày tải lên : 10/10/2013, 04:11
... lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n kq:=kq*a; lt:=kq; End; Function gt(n:integer):longint; Var kq,i:longint; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Begin Clrscr; ... 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; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function ... Hỏi có loại? Program TRAMTRAU_TRAMCO; Uses crt; Var td,tn,tg:integer; Begin Clrscr; Writeln(' TRAM TRAU TRAM CO:'); Writeln(' '); Writeln('Trau dung Trau nam Trau gia'); For td:=0...
  • 41
  • 644
  • 2
  1. Giáo án - Bài giảng
  2. Tư liệu khác
Bài tập pascal cơ bản

Bài tập pascal cơ bản

Ngày tải lên : 23/10/2013, 20:15
... writeln('PT vo nghiem'); readln END Bài 5: Nhập vào số nguyên gồm chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải số nguyên tố không -kiểm tra xem có phải số hoàn hảo không Lời giải: uses ... la: ',tong); readln END Bài 11: Số nguyên tố số nguyên dương chia hết cho nó, ngoại trừ Lập trình nhập vào số nguyên dương n kiểm tra xem có phải số nguyên tố không? Lời giải: uses crt; var n,i:integer; ... Lập trình nhập số nguyên dương n từ bàn phím kiểm tra xem số có số phương không? Lời giải: uses crt; var n:longint; BEGIN clrscr; write('Nhap so nguyen duong n: ');readln(n); if sqrt(n)=trunc(sqrt(n))...
  • 15
  • 803
  • 5
  1. Công Nghệ Thông Tin
  2. Kỹ thuật lập trình
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

Ngày tải lên : 30/10/2013, 08:49
... Real); Var ma, mb, mc : real; Begin ma :=sqrt((2*sqr(b)+2*sqr(c)-sqr(a))/4); mb :=sqrt((2*sqr(a)+2*sqr(c)-sqr(b))/4); mc :=sqrt((2*sqr(a)+2*sqr(b)-sqr(c))/4); Writeln('Cac trung tuyen cua tam ... Nha Trang Bài : Nhập vào số nguyên gồm chữ số viết chương trình thực • • • Kiểm tra tình chắn lẻ Kiểm tra xem có phải số nguyên tố không Kiểm tra xem có phải số phương không Sau chương trình ... Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); Readln; End Bài 7: Nhập vào tâm bán kính đường tròn Sau nhập vào điểm A(x, y) kiểm tra xem có thuộc đường tròn hay không? Program KIEM_TRA_DIEM_THUOC_DUONG_TRON;...
  • 45
  • 14.4K
  • 17
  1. Giáo án - Bài giảng
  2. Tin học
Bài soạn Những bài tập Pascal cơ bản

Bài soạn Những bài tập Pascal cơ bản

Ngày tải lên : 24/11/2013, 09:11
... lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n kq:=kq*a; lt:=kq; End; Function gt(n:integer):longint; Var kq,i:longint; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Begin Clrscr; ... 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; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function ... Hỏi có loại? Program TRAMTRAU_TRAMCO; Uses crt; Var td,tn,tg:integer; Begin Clrscr; Writeln(' TRAM TRAU TRAM CO:'); Writeln(' '); Writeln('Trau dung Trau nam Trau gia'); For td:=0...
  • 41
  • 1.4K
  • 24
  1. Giáo án - Bài giảng
  2. Tin học
Bài tập Pascal cơ bản và hướng dẫn

Bài tập Pascal cơ bản và hướng dẫn

Ngày tải lên : 26/12/2013, 20:00
... (b0)and(c=5)then write(s[a],'tram',s[b],'lam'); if (b0)and(c0)and(c5)then write(s[a],'tram',s[b],'muoi',s[c]); readln; end VCT sửa danh từ riêng bị nhập sai (VD: TraN QuANG kHai  Tran Quang Khai) uses ... từ in dòng xuất số ký tự từ? ( vd: Tran Quang Khai  Khai : ký tự Quang : ký tự Tran : ký tự uses crt; var s,s1,s2,t:string; a:array[1 100] of string; b:array[1 100] of integer; i,j,k:integer; ... nguyên tố từ n đến m.(Dùng chương trình con)? var j,n,m,i:integer; function ktranto(x:integer):boolean; begin ktranto:=true; for i:=2 to x -1 if x mod i=0 then ktranto:=false; end; begin write('moi...
  • 14
  • 1.4K
  • 4
  1. Giáo án - Bài giảng
  2. Tin học
bài tập pascal có lời giải

bài tập pascal có lời giải

Ngày tải lên : 15/04/2014, 15:14
... nghi le qui : ',snnq1); Writeln('So le qui : ',tsq2); Writeln('Tong so nghi le qui : ',snnq2); Writeln('So le qui : ',tsq3); Writeln('Tong so nghi le qui : ',snnq3); Writeln('So le qui : ',tsq4); ... c: Real); Var ma, mb, mc: real; Begin ma:=sqrt((2*sqr(b)+2*sqr(c)-sqr(a))/4); mb:=sqrt((2*sqr(a)+2*sqr(c)-sqr(b))/4); mc:=sqrt((2*sqr(a)+2*sqr(b)-sqr(c))/4); Writeln('Cac trung tuyen cua tam ... integer; end; Var ds: array [1 100] of Danhsach; n: integer; f: file of Danhsach; snn,snnq1,snnq2,snnq3,snnq4: integer; tsq1,tsq2,tsq3,tsq4: integer; Uses Crt; Var A : Array [1 100] Of Integer...
  • 26
  • 3.8K
  • 4
  1. Công Nghệ Thông Tin
  2. Tin học văn phòng
Giáo án - Bài giảng: Công nghệ thông tin: Bài tập Pascal có đáp án (Full)

Giáo án - Bài giảng: Công nghệ thông tin: Bài tập Pascal có đáp án (Full)

Ngày tải lên : 18/04/2014, 15:00
... Hỏi có loại? Program TRAMTRAU_TRAMCO; Uses crt; Var td,tn,tg:integer; Begin Clrscr; Writeln(' TRAM TRAU TRAM CO:'); Writeln(' '); Writeln('Trau dung Trau nam Trau gia'); For td:=0 ... 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; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function ... kn (dùng chương trình con) Program TO_HOP; Uses Crt; Var n,k:integer; Function gt(n:integer):longint; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function C(n,k:integer):real;...
  • 41
  • 822
  • 0
  1. Giáo án - Bài giảng
  2. Cao đẳng - Đại học
Bài tập pascal cơ bản ppt

Bài tập pascal cơ bản ppt

Ngày tải lên : 19/06/2014, 09:20
... writeln('PT vo nghiem'); readln END Bài 5: Nhập vào số nguyên gồm chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải số nguyên tố không -kiểm tra xem có phải số hoàn hảo không Lời giải: uses ... la: ',tong); readln END Bài 11: Số nguyên tố số nguyên dương chia hết cho nó, ngoại trừ Lập trình nhập vào số nguyên dương n kiểm tra xem có phải số nguyên tố không? Lời giải: uses crt; var n,i:integer; ... Lập trình nhập số nguyên dương n từ bàn phím kiểm tra xem số có số phương không? Lời giải: uses crt; var n:longint; BEGIN clrscr; write('Nhap so nguyen duong n: ');readln(n); if sqrt(n)=trunc(sqrt(n))...
  • 17
  • 777
  • 4
  1. Công Nghệ Thông Tin
  2. Tin học văn phòng
Bai tap pascal(co dap an)

Bai tap pascal(co dap an)

Ngày tải lên : 03/07/2014, 10:00
... c: Real); Var ma, mb, mc: real; Begin ma:=sqrt((2*sqr(b)+2*sqr(c)-sqr(a))/4); mb:=sqrt((2*sqr(a)+2*sqr(c)-sqr(b))/4); mc:=sqrt((2*sqr(a)+2*sqr(b)-sqr(c))/4); Writeln('Cac trung tuyen cua tam ... Readln; END Bài : a a Viết chương trình nhập liệu từ dãy đối xứng vào mảng chi u b b Viết chương trình nhập liệu ma trận đối xứng vào mảng hai chi u a) Var a: array [1 100] of integer; n, i: byte; ... 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 sau : Cách : Kiểm tra xem số lượng dấu ‘ ( dấu mở dấu đóng ) có khơng ? Cách : Kiểm tra xem số...
  • 49
  • 1K
  • 12
  1. Giáo án - Bài giảng
  2. Toán học
BAI TAP PASCAL CO LOI GIAI

BAI TAP PASCAL CO LOI GIAI

Ngày tải lên : 11/07/2014, 14:00
... mb, mc: real; Begin ma:=sqrt((2*sqr(b)+2*sqr(c)-sqr(a))/4); BÀI TẬP CƠ BẢN TRANG 15 BÀI TẬP CƠ BẢN mb:=sqrt((2*sqr(a)+2*sqr(c)-sqr(b))/4); mc:=sqrt((2*sqr(a)+2*sqr(b)-sqr(c))/4); Writeln('Cac ... ',tsq2); Writeln('Tong so nghi le qui : ',snnq2); Writeln('So le qui : ',tsq3); Writeln('Tong so nghi le qui : ',snnq3); Writeln('So le qui : ',tsq4); Writeln('Tong so nghi le qui : ',snnq4); ... BẢN TRANG 48 BÀI TẬP CƠ BẢN snn:=0; snnq1:=0; tsq1:=0; snnq2:=0; tsq2:=0; snnq3:=0; tsq3:=0; snnq4:=0; tsq4:=0; For i:=1 to n With ds[i] Begin Inc(snn,songay); If (thang
  • 68
  • 4.4K
  • 123
  1. Giáo án - Bài giảng
  2. Tin học
Bài tập pascal cơ bản dành cho hs-sv pps

Bài tập pascal cơ bản dành cho hs-sv pps

Ngày tải lên : 21/07/2014, 15:20
... writeln('PT vo nghiem'); readln END Bài 5: Nhập vào số nguyên gồm chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải số nguyên tố không -kiểm tra xem có phải số hoàn hảo không Lời giải: uses ... la: ',tong); readln END Bài 11: Số nguyên tố số nguyên dương chia hết cho nó, ngoại trừ Lập trình nhập vào số nguyên dương n kiểm tra xem có phải số nguyên tố không? Lời giải: uses crt; var n,i:integer; ... Lập trình nhập số nguyên dương n từ bàn phím kiểm tra xem số có số phương không? Lời giải: uses crt; var n:longint; BEGIN clrscr; write('Nhap so nguyen duong n: ');readln(n); if sqrt(n)=trunc(sqrt(n))...
  • 15
  • 817
  • 16
  1. Giáo Dục - Đào Tạo
  2. Cao đẳng - Đại học
Một số bài tập Pascal có lời giải ! docx

Một số bài tập Pascal có lời giải ! docx

Ngày tải lên : 28/07/2014, 19:20
... {A=50 B=200} IV ĐỆ QUI 4.1 Khái niệm đệ qui Trong chương trình, CTC gọi CTC khác vào làm việc Nếu CTC gọi lại gọi đệ qui 4.2 Phương pháp thiết kế giải thuật đệ qui • Tham số hóa toán • Tìm trường ... Viết chương trình nhập vào mảng số nguyên A, B đại diện cho tập hợp (không thể có phần tử trùng tập hợp) Trong trình nhập, phải kiểm tra: phần tử vừa nhập vào có mảng không bổ sung vào mảng In ... môn sở ngành - 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ủ...
  • 141
  • 4.4K
  • 97
  1. Giáo Dục - Đào Tạo
  2. Cao đẳng - Đại học
Bài tập pascal cơ bản doc

Bài tập pascal cơ bản doc

Ngày tải lên : 07/08/2014, 11:20
... vào lối vào đó, sau cầu qua chi tiết đó, chi tiết thay đổi trạng thái từ thành từ thành Hoạt động ô tô mát đợc thể xâu ký tự S gồm chữ hoa A, B, C mà ký tự xâu S thể việc ta thả cầu vào lối vào ... tình trạng quen biết N ngời đợc cho mảng đối xứng A[1 N,1 N] A[i,j]=A[j,i]=1 i quen j i không quen j Hãy xét xem liệu chia N ngời thành nhóm mà nhóm, hai ngời không quen nhau? Dữ liệu vào đợc cho ... ghi vào file OUT1.TXT dòng thứ ghi số lợng phép đổi chỗ cần dùng Trong dòng tiếp theo, dòng ghi phép đổi chỗ dới dạng hai số p q có nghĩa đổi chỗ viên bi hai vị trí p q cho Trình tự viết dòng trình...
  • 18
  • 773
  • 3
  1. Công Nghệ Thông Tin
  2. Kỹ thuật lập trình
TỔNG HỢP, PHÂN LOẠI BÀI TẬP PASCAL CÓ LỜI GIẢI

TỔNG HỢP, PHÂN LOẠI BÀI TẬP PASCAL CÓ LỜI GIẢI

Ngày tải lên : 05/02/2015, 09:22
... d3:=d3+1;end else begin if kq[5]
  • 156
  • 7.2K
  • 18
  1. Luận Văn - Báo Cáo
  2. Khoa học tự nhiên
những bài tập pascal cơ bản và nâng cao

những bài tập pascal cơ bản và nâng cao

Ngày tải lên : 06/02/2015, 08:00
... lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n kq:=kq*a; lt:=kq; End; Function gt(n:integer):longint; Var kq,i:longint; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Begin Clrscr; ... 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; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function ... Hỏi có loại? Program TRAMTRAU_TRAMCO; Uses crt; Var td,tn,tg:integer; Begin Clrscr; Writeln(' TRAM TRAU TRAM CO:'); Writeln(' '); Writeln('Trau dung Trau nam Trau gia'); For td:=0...
  • 78
  • 540
  • 5
  1. Giáo án - Bài giảng
  2. Tin học
bài tập pascal có lời giải

bài tập pascal có lời giải

Ngày tải lên : 09/03/2015, 09:31
... lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n kq:=kq*a; lt:=kq; End; Function gt(n:integer):longint; Var kq,i:longint; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Begin Clrscr; ... 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; Var kq,i:integer; Begin kq:=1; For i:=1 to n kq:=kq*i; gt:=kq; End; Function ... Hỏi có loại? Program TRAMTRAU_TRAMCO; Uses crt; Var td,tn,tg:integer; Begin Clrscr; Writeln(' TRAM TRAU TRAM CO:'); Writeln(' '); Writeln('Trau dung Trau nam Trau gia'); For td:=0...
  • 41
  • 589
  • 0
  1. Giáo Dục - Đào Tạo
  2. Cao đẳng - Đại học

Xem thêm

Tìm thêm: