và masukawa toshihide đã phát hiện ra nguồn gốc phá vỡ tính đối xứng liên quan đến việc dự đoán sự tồn tại của ít nhất 3 nhóm hạt quark trong tự nhiên họ nhận giải nobel năm 2008

Bai tap Pascal co ban

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

... thập phân S 1, , SP Khi N nhận đợc cách viết S1 liên tiếp A1 lần S2 liên tiếp A2 lần, , SP AP lần Ví dụ với P =3, A1 =3, S1=1 23, A2=4, S2=0, A3=2, S3=45 ta có N = 1 231 231 230 0004545 Giả sử số N đợc ... gặp lần lợt từ học sinh đến học sinh N, học sinh i đến vào T[i] nhng thày cha gặp xong học sinh 1, 2, , i-1 học sinh i phải đợi đến lợt Giả sử thày giáo bắt đầu sẵn sàng gặp học sinh từ thời ... 24.Viết chơng trình làm việc sau: Nhập từ bàn phím hai xâu ký tự S1 S2 Ta dùng ba loại phép biến đổi sau: BD1: xoá ký tự xâu, BD2: thêm ký tự vào vị trí xâu, BD3: thay ký tự xâu ký tự khác Hãy thông...

18
2.1K
12

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

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

... vào chuỗi ký tự, Kiểm tra xem có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA ... năm Trâu nằm ăn ba Trâu già ba bó 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 ... Writeln('Trau dung Trau nam Trau gia'); For td:=0 to 20 For tn:=0 to 33 For tg:=0 to 100 If ((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...

41
2K
19

bai tap pascal co ban.doc

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

... 2n Kiểu số thực 3. 1 Các kiểu số thực : Tên kiểu Single Real Double Extended Phạm vi 1.5×10-45 → 3. 4×10 +38 2.9×10 -39 → 1.7×10 +38 5.0×10 -32 4 → 1.7×10 +30 8 3. 4×10-4 932 → 1.1×10+4 932 A XOR B 1 NOT ... + 1/n! S3 = + x + x2/2! + x3 /3! + + xn/n! S4 = - x + x2/2! - x3 /3! + + (-1)nxn/n! S5 = + sin(x) + sin2(x) + + sinn(x) Bài tập 3. 20: Viết chương trình để tìm lời giải cho toán sau: Trong giỏ ... tháng có 31 ngày (1 ,3, 5,7,8,10,12), tháng có 30 ngày (4,6,9,11) tháng (có 28 29 ngày tùy theo năm nhuận) Dùng lệnh lựa chọn: CASE thang OF 1 ,3, 5,7,8,10,12: 4,6,9,11: 2: END; Bài tập 3. 16:...

144
868
5

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

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

... vào chuỗi ký tự, Kiểm tra xem có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA ... năm Trâu nằm ăn ba Trâu già ba bó 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 ... Writeln('Trau dung Trau nam Trau gia'); For td:=0 to 20 For tn:=0 to 33 For tg:=0 to 100 If ((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...

41
1.5K
4

Bai tap Pascal cơ bản

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

... vào chuỗi ký tự, Kiểm tra xem có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA ... năm Trâu nằm ăn ba Trâu già ba bó 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 ... Writeln('Trau dung Trau nam Trau gia'); For td:=0 to 20 For tn:=0 to 33 For tg:=0 to 100 If ((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...

41
644
2

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

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

... như: tính số phibonaci thứ n nhập vào số kiểm tra xem số có phải số phibonaci hay không…Các làm tương tự Bài 19: Nhập số nguyên dương n lập chương trình tính: S1= 1 +3+ 5+7+…+(2*n+1) Lời giải: ... i mod 20 then s1:=s1+i; writeln('Tong S1 la: ',s1); readln END Bài 20: Tính S2= 13+ 23+ 33+ …+n3 n nhập từ bàn phím Lời giải: uses crt; var i,n:integer;s2:longint; BEGIN clrscr; write('Nhap so ... writeln(n,' khong la so chinh phuong'); readln END Bài 14: Nhập vào xâu kí tự cho biết xâu vừa nhập vào có nguyên âm kí tự số Lời giải: uses crt; var s:string;dem1,dem2,i:byte; BEGIN clrscr; write('Nhap...

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

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

... Trang 13 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Writeln ('Tong la S = ', S : : 2); Readln End Câu 13a : Lập trình tính tổng : A = + 1/2 + 1 /3 + … + 1/n n số tự nhiên nhập vào từ bàn ... 0972 .31 1.481 Trang 34 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang ClrScr; Writeln('Ghi tu file bai3.dat sang bai3n.dat : '); Writeln; Assign(f1,'bai3.dat'); Reset(f1); Assign(f2,'bai3n.dat'); ... xau doi xung ') ; ĐT : 0972 .31 1.481 Trang 26 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Readln; END Bài tập 3: Chương trình nhập vào họ tên người sau xóa hết ký tự trắng dư thừa Uses crt;...

45
14.4K
17

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

... vào chuỗi ký tự, Kiểm tra xem có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA ... năm Trâu nằm ăn ba Trâu già ba bó 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 ... Writeln('Trau dung Trau nam Trau gia'); For td:=0 to 20 For tn:=0 to 33 For tg:=0 to 100 If ((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...

41
1.4K
24

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

Ngày tải lên : 26/12/2013, 20:00

... từ xâu, 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; ... end 17.VCT cho nhập xâu ký tự có lẫn vào số có chữ số (vd: fffhgj 234 fgg)- 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 ... s1:=copy(s,vt ,3) ; val(s1,x,c); end; until (c=0) and (x>99) and (dem =3) ; if ktranto(x) then write('day la so nguyen to :',x); readln; end 18.VCT kiểm tra việc nhập ký tự xâu ký tự kí tự in hoa( không...

14
1.4K
4

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

Ngày tải lên : 15/04/2014, 15:14

... 2:VÒNG LẬP XĐ VÀ KHÔNG XÁC ĐỊNH Sử dụng lệnh For Bài :Lập trình tính tích số tự nhiên từ tới 10 GIẢI Bài 4: Cho văn chứa text file f Trong văn , tính từ trái sang phải , từ xuống , kí tự # kí hiệu ... bình học sinh năm học Hãy lập chương trình : a Hiển thị lên hình danh sách học sinh giỏi trường bạn có điểm trung bình từ 8.0 trở lên cao khối b Lập danh sách học sinh năm học , biết học sinh ... = a3 = a4 = an = an-1 + an-2 Viết chương trình tính 20 số Fibonaci đưa kết vào mảng 20 phần tử Var a : Array[1 20] Of Byte ; i : Byte ; BEGIN a[1] :=1; Trang 30 GV: Diệp Thanh Toàn Trang 23...

26
3.8K
4

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

... vào chuỗi ký tự, Kiểm tra xem có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA ... năm Trâu nằm ăn ba Trâu già ba bó 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 ... Writeln('Trau dung Trau nam Trau gia'); For td:=0 to 20 For tn:=0 to 33 For tg:=0 to 100 If ((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...

41
822
0

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

Ngày tải lên : 19/06/2014, 09:20

... như: tính số phibonaci thứ n nhập vào số kiểm tra xem số có phải số phibonaci hay không…Các làm tương tự Bài 19: Nhập số nguyên dương n lập chương trình tính: S1= 1 +3+ 5+7+…+(2*n+1) Lời giải: ... i mod 20 then s1:=s1+i; writeln('Tong S1 la: ',s1); readln END Bài 20: Tính S2= 13+ 23+ 33+ …+n3 n nhập từ bàn phím Lời giải: uses crt; var i,n:integer;s2:longint; BEGIN clrscr; write('Nhap so ... writeln(n,' khong la so chinh phuong'); readln END Bài 14: Nhập vào xâu kí tự cho biết xâu vừa nhập vào có nguyên âm kí tự số Lời giải: uses crt; var s:string;dem1,dem2,i:byte; BEGIN clrscr; write('Nhap...

17
777
4

Bai tap pascal(co dap an)

Ngày tải lên : 03/07/2014, 10:00

... tai.'); Readln; END Bài : Viết chương trình nhập xâu kí tự , sau xem xâu có phải xâu đối xứng khơng ( xâu đối xứng xâu có kí tự giống đối xứng qua điểm xâu , ví dụ ‘ABBA’ ‘ABCBA’ ) Uses Crt; Var ... bình học sinh năm học Hãy lập chương trình : a a Hiển thị lên hình danh sách học sinh giỏi trường bạn có điểm trung bình từ 8.0 trở lên cao khối b b Lập danh sách học sinh năm học , biết học ... OutTextXY(120,50,'To mau Ngoi nha:'); Rectangle(220,200,420 ,33 0); Rectangle(250, 230 ,30 0 ,33 0); Rectangle (33 0, 230 ,39 0,280); MoveTo(220,200); Lineto(180,200); Lineto(220,140); Lineto(420,140); Lineto(460,200);...

49
1K
12

BAI TAP PASCAL CO LOI GIAI

Ngày tải lên : 11/07/2014, 14:00

... tai.'); BÀI TẬP CƠ BẢN TRANG 32 BÀI TẬP CƠ BẢN Readln; END Bài : Viết chương trình nhập xâu kí tự , sau xem xâu có phải xâu đối xứng không ( xâu đối xứng xâu có kí tự giống đối xứng qua điểm xâu , ... Readln; END Bài : Cho số tự nhiên n dãy kí tự S1 , S2 , … , Sn Hãy tìm số tự nhiên I cho kí tự Si , Si+1 chữ a Nếu dãy cặp thông báo Var S: string; BÀI TẬP CƠ BẢN TRANG 31 BÀI TẬP CƠ BẢN i: integer; ... Viết hình kí tự số lần xuất *) Readln ; END * Bài :Cho số tự nhiên n , lập trình để tính tổng sau : a a + 1/22 + 1 /32 + … + 1/n2 b b + 1/2! + 1 /3! + … + 1/n! GIẢI BÀI TẬP CƠ BẢN TRANG BÀI TẬP...

68
4.4K
123

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

... như: tính số phibonaci thứ n nhập vào số kiểm tra xem số có phải số phibonaci hay không…Các làm tương tự Bài 19: Nhập số nguyên dương n lập chương trình tính: S1= 1 +3+ 5+7+…+(2*n+1) Lời giải: ... i mod 20 then s1:=s1+i; writeln('Tong S1 la: ',s1); readln END Bài 20: Tính S2= 13+ 23+ 33+ …+n3 n nhập từ bàn phím Lời giải: uses crt; var i,n:integer;s2:longint; BEGIN clrscr; write('Nhap so ... writeln(n,' khong la so chinh phuong'); readln END Bài 14: Nhập vào xâu kí tự cho biết xâu vừa nhập vào có nguyên âm kí tự số Lời giải: uses crt; var s:string;dem1,dem2,i:byte; BEGIN clrscr; write('Nhap...

15
817
16

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

... → 1.7×10 +30 8 3. 4×10-4 932 → 1.1×10+4 932 Dung lượng byte byte byte 10 byte 3. 2 Các phép toán kiểu số thực: +, -, *, / Chú ý: Trên kiểu số thực không tồn phép toán DIV MOD 3. 3 Các hàm số học sử dụng ... : 34 DIV = 6) Phép chia lấy số dư: MOD (Ví dụ: 34 MOD = 4) Kiểu số thực 3. 1 Các kiểu số thực Tên kiểu Single Real Double Extended Phạm vi 1.5×10-45 → 3. 4×10 +38 2.9×10 -39 → 1.7×10 +38 5.0×10 -32 4 ... + 1/n! S3 = + x + x2/2! + x3 /3! + + xn/n! S4 = - x + x2/2! - x3 /3! + + (-1)nxn/n! S5 = + sin(x) + sin2(x) + + sinn(x) Bài tập 3. 20: Viết chương trình để tìm lời giải cho toán sau: Trong giỏ...

141
4.4K
97

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

Ngày tải lên : 07/08/2014, 11:20

... ký tự gồm chữ số thập phân S 1, , SP Khi N nhận đợc cách viết S liên tiếp A1 lần S2 liên tiếp A2 lần, , S P AP lần Ví dụ với P =3, A1 =3, S1=1 23, A2=4, S2=0, A3=2, S3=45 ta có N = 1 231 231 230 0004545 ... gặp lần lợt từ học sinh đến học sinh N, học sinh i đến vào T[i] nhng thày cha gặp xong học sinh 1, 2, , i-1 học sinh i phải đợi đến lợt Giả sử thày giáo bắt đầu sẵn sàng gặp học sinh từ thời ... biến đổi sau: B1(m,c) Thêm vào trớc ký tự thứ m xâu ký tự c B2(m,c) Thay ký tự thứ m xâu ký tự c B3(m) Xoá ký tự thứ m xâu Đọc từ file INP.BL1 hai xâu ký tự X Y, dòng thứ nhất/ hai viết xâu X/Y Hãy...

18
773
3

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

... begin if d3=0 then d3:=2 else d3:=d3+1;end else begin if kq[5]

156
7.2K
18

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

... vào chuỗi ký tự, Kiểm tra xem có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA ... năm Trâu nằm ăn ba Trâu già ba bó 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 ... Writeln('Trau dung Trau nam Trau gia'); For td:=0 to 20 For tn:=0 to 33 For tg:=0 to 100 If ((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...

78
540
5

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

Ngày tải lên : 09/03/2015, 09:31

... vào chuỗi ký tự, Kiểm tra xem có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA ... năm Trâu nằm ăn ba Trâu già ba bó 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 ... Writeln('Trau dung Trau nam Trau gia'); For td:=0 to 20 For tn:=0 to 33 For tg:=0 to 100 If ((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...

41
589
0