ernst ruska 1906 1988 tiến hành các nghiên cứu cơ bản về quang điện tử và thiết kế kính hiển vi điện tử truyền qua đầu tiên hoạt động vào những năm đầu của thập niên 1930
... Trạng thái \ / / \ \ Trạng thái Ô tô mát hoạtđộng nh sau: thả cầu 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 ... dạng sau thể cách lăn bóng vào bảng - D-U-1 (có nghĩa bóng lăn vàodòng U theo hớng từ ô [U,1]) - D-U-N (có nghĩa bóng lăn vàodòng U theo hớng từ ô [U,N]) - C-U-1 (có nghĩa bóng lăn vào cột U theo ... cạnh bảng có đặt vật cản nhng bảng có mái che nên đợc vật cản nằm ô Ta dùng bóng lăn từvào bảng theo dòng/cột bảng Khi diễn biến chuyển động bóng nh sau: TH1 Nếu bóng gặp ô có vật cản, quay...
... la:',Sum/n:6:2); Readln; End Bài 42: Vi t chương trình nhập vào dãy số nguyên có n phần tử a Đưa phần tử lẻ đầu danh sách, phần tử chẵn cuối danh sách in kết hình b Sắp xếp phần tử lẻ đầu danh sách theo thứ ... Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Vi t chương trình nhập vào dãy số nguyên có n phần tử In hình phần tử nhỏ nhất, phần tử lớn giá trị ... End Bài 51: Vi t chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử nhỏ x d...
... 3.3: Vi t chương trình nhập vào tuổi người cho biết người thiếu niên, niên, trung niên hay lão niên Biết rằng: tuổi nhỏ 18 thiếu niên, từ 18 đến 39 niên, từ 40 đến 60 trung niên lớn 60 lão niên ... 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àocó mảng không bổ sung vào mảng In hình phần tử giao tập hợp A, B Ý tưởng: Duyệt qua tất phần tử ai∈A Nếu ai∈B vi t ... trình vào đĩa với tên BAI1.PAS Thoát khỏi Pascal Khởi động lại Turbo Pascal Mở file BAI1.PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa...
... la:',Sum/n:6:2); Readln; End Bài 42: Vi t chương trình nhập vào dãy số nguyên có n phần tử a Đưa phần tử lẻ đầu danh sách, phần tử chẵn cuối danh sách in kết hình b Sắp xếp phần tử lẻ đầu danh sách theo thứ ... Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Vi t chương trình nhập vào dãy số nguyên có n phần tử In hình phần tử nhỏ nhất, phần tử lớn giá trị ... End Bài 51: Vi t chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử nhỏ x d...
... la:',Sum/n:6:2); Readln; End Bài 42: Vi t chương trình nhập vào dãy số nguyên có n phần tử a Đưa phần tử lẻ đầu danh sách, phần tử chẵn cuối danh sách in kết hình b Sắp xếp phần tử lẻ đầu danh sách theo thứ ... Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Vi t chương trình nhập vào dãy số nguyên có n phần tử In hình phần tử nhỏ nhất, phần tử lớn giá trị ... End Bài 51: Vi t chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử nhỏ x d...
... phuong') else 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àocó nguyên âm kí tự số Lời giải: uses crt; var s:string;dem1,dem2,i:byte; BEGIN ... s5:=s5-1/(2*i+1); i:=i+1; end; writeln('ket qua la: ',s5:0:4); readln END Bài 24: Lập chương trình để nhập vào dãy số a1, ,an;b1,…bn;c1,…,cn;d1,…,dn Sau in kết n dòng giá trị theo mẫu sau: Ai bi ci ... readln END Có thể biến đổi đề toán 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:...
... la:',Sum/n:6:2); Readln; End Bài 42: Vi t chương trình nhập vào dãy số nguyên có n phần tử a Đưa phần tử lẻ đầu danh sách, phần tử chẵn cuối danh sách in kết hình b Sắp xếp phần tử lẻ đầu danh sách theo thứ ... Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Vi t chương trình nhập vào dãy số nguyên có n phần tử In hình phần tử nhỏ nhất, phần tử lớn giá trị ... End Bài 51: Vi t chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử nhỏ x d...
... 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 crt; var s:string; i:integer; begin write('nhap mot danh tu rieng:');readln(s); ... la:',s); readln; end 10 VCT in ngược 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; ... c[5]:='L';c[6]:='LX';c[7]:='LXX';c[8]:='LXXX';c[1]:='XM'; d[1]:='I';d[2]:='II';d[3]:='III';d[4]:='IV'; d[5]:='V';d[6]:= 'VI' ;d[7]:='VII';d[8]:='VIII';d[1]:='IX'; {I$-} repeat write('moi nhap so: '); readln(a); until (a
... 40 kí tự Năm xuất : số nguyên chữ số Hăy lập chương trình nhập liệu vào kho sách , sau tìm : Những sách tác giả cho trước xuất vàonăm cho trước Những sách có tên cho trước Kết hình ... Write('Nhan ENTER de ket thuc '); Readln; END BÀI TẬP CƠBẢN Bài :Hãy lập chương trình nhập vào xâu nhị phân Các kí tự nhập vào không hợp lệ bị bỏ qua (* nhập xâu nhị phân *) Uses Crt; Const bit ... đợi phím gõ vào chữ số chữ đầu tuỳ chọn thông báo phím gõ vào hợp lệ kết thúc chương trình Trong chương trình phải dùng tập hợp để kiểm tra vi c nhập giá trị cho biến từbàn phím (* Hiển thị menu...
... la:',Sum/n:6:2); Readln; End Bài 42: Vi t chương trình nhập vào dãy số nguyên có n phần tử a Đưa phần tử lẻ đầu danh sách, phần tử chẵn cuối danh sách in kết hình b Sắp xếp phần tử lẻ đầu danh sách theo thứ ... Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Vi t chương trình nhập vào dãy số nguyên có n phần tử In hình phần tử nhỏ nhất, phần tử lớn giá trị ... End Bài 51: Vi t chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử nhỏ x d...
... phuong') else 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àocó nguyên âm kí tự số Lời giải: uses crt; var s:string;dem1,dem2,i:byte; BEGIN ... s5:=s5-1/(2*i+1); i:=i+1; end; writeln('ket qua la: ',s5:0:4); readln END Bài 24: Lập chương trình để nhập vào dãy số a1, ,an;b1,…bn;c1,…,cn;d1,…,dn Sau in kết n dòng giá trị theo mẫu sau: Ai bi ci ... readln END Có thể biến đổi đề toán 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:...
... kí tự • · Năm xuất : số ngun chữ số Hăy lập chương trình nhập liệu vào kho sách , sau tìm : • · Những sách tác giả cho trước xuất vàonăm cho trước • · Những sách có tên cho trước Kết hình ... ch=#13; Readln; END Bài : Hãy lập chương trình nhập vào xâu kí tựtừbàn phím u cầu kí tự nhập vào phải chữ thuộc bảng chữ tiếng Anh , bỏ qua phím khác (* Nhập xâu toàn chữ *) Uses Crt; Const ... Loai bo '); Nhap them'); Thoat '); Bài : Hãy lập chương trình nhập vào xâu nhị phân Các kí tự nhập vào khơng hợp lệ bị bỏ qua (* nhập xâu nhò phân *) Uses Crt; Const bit : set of char= ['0','1'];...
... tự • Năm xuất : số nguyên chữ số Hăy lập chương trình nhập liệu vào kho sách , sau tìm : • Những sách tác giả cho trước xuất vàonăm cho trước • Những sách có tên cho trước Kết hình ... phím gõ vào hợp lệ kết thúc chương trình Trong chương trình phải dùng tập hợp để kiểm tra vi c nhập giá trò cho biến từbàn phím BÀI TẬP CƠBẢN TRANG 37 BÀI TẬP CƠBẢN (* Hiển thò menu *) Uses ... TẬP CƠBẢN TRANG BÀI TẬP CƠBẢN Else Writeln(' Ban khong trung tuyen ') ; Readln ; END * Bài : Vi t chương trình nhập hai số thực Sau hỏi phép tính cần thực in kết phép tính Nếu “+” , in kết...
... phuong') else 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àocó nguyên âm kí tự số Lời giải: uses crt; var s:string;dem1,dem2,i:byte; BEGIN ... s5:=s5-1/(2*i+1); i:=i+1; end; writeln('ket qua la: ',s5:0:4); readln END Bài 24: Lập chương trình để nhập vào dãy số a1, ,an;b1,…bn;c1,…,cn;d1,…,dn Sau in kết n dòng giá trị theo mẫu sau: Ai bi ci ... readln END Có thể biến đổi đề toán 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:...
... 3.3: Vi t chương trình nhập vào tuổi người cho biết người thiếu niên, niên, trung niên hay lão niên Biết rằng: tuổi nhỏ 18 thiếu niên, từ 18 đến 39 niên, từ 40 đến 60 trung niên lớn 60 lão niên ... trình vào đĩa với tên BAI1.PAS Thoát khỏi Pascal Khởi động lại Turbo Pascal Mở file BAI1.PAS Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN Dịch chạy thử chương trình 10 Lưu chương trình vào đĩa ... 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àocó mảng không bổ sung vào mảng In hình phần tử giao...
... | | | | | | Bài tập Tập I Ô tô mát hoạtđộng nh sau: thả cầu 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 ... dạng sau thể cách lăn bóng vào bảng - D-U-1 (có nghĩa bóng lăn vàodòng U theo hớng từ ô [U,1]) - D-U-N (có nghĩa bóng lăn vàodòng U theo hớng từ ô [U,N]) - C-U-1 (có nghĩa bóng lăn vào cột U theo ... cạnh bảng có đặt vật cản nhng bảng có mái che nên đợc vật cản nằm ô Ta dùng bóng lăn từvào bảng theo dòng/cột bảng Khi diễn biến chuyển động bóng nh sau: TH1 Nếu bóng gặp ô có vật cản, quay...
... Cho bảng số A kích thước m x n Phần tử Aij (nằm hàng i, cột j ) gọi phần tử yên ngựa phần tử nhỏ hàng i đồng thời phần tử lớn cột j ( phần tử lớn hàng i đồng thời phần tử nhỏ cột j ).Ví dụ bảng ... lớn Tiến trình toán: - Giả sử chuỗi số ta có n phần tử Lần lượ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ử ... có 30 ngày.Tháng 1, 3, 5, 7, 8, 10, 12 có 31 ngày.Tháng năm nhuận có 29 ngày không nhuận có 28 ngày Bốn nămcónăm nhuận, biết năm 2000 năm nhuận uses crt; var i, k, m, n, nd, td, yd, nc, tc,yc...
... la:',Sum/n:6:2); Readln; End Bài 42: Vi t chương trình nhập vào dãy số nguyên có n phần tử a Đưa phần tử lẻ đầu danh sách, phần tử chẵn cuối danh sách in kết hình b Sắp xếp phần tử lẻ đầu danh sách theo thứ ... Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Vi t chương trình nhập vào dãy số nguyên có n phần tử In hình phần tử nhỏ nhất, phần tử lớn giá trị ... la:'); Output(a,n,m); Chuyenvi(a,n,m,b); Writeln('Ma tran chuyen vi b la:'); Output(b,m,n); Readln; End Bài 40 :Vi t chương trình nhập vào ma trận A vuông cấp n Chuyển A thành mà trận chuyển vị A...
... la:',Sum/n:6:2); Readln; End Bài 42: Vi t chương trình nhập vào dãy số nguyên có n phần tử a Đưa phần tử lẻ đầu danh sách, phần tử chẵn cuối danh sách in kết hình b Sắp xếp phần tử lẻ đầu danh sách theo thứ ... Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Vi t chương trình nhập vào dãy số nguyên có n phần tử In hình phần tử nhỏ nhất, phần tử lớn giá trị ... End Bài 51: Vi t chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử nhỏ x d...