... ',s:6:2); Readln; End Bài 36: Giải hệ ph ơng trình: Viết ch ơng trình giải hệ ph ơng trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết ch ơng trình nhập giá trị cho ... chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết ch ơng trình nhập 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 ... vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End Bài 6: Viết ch ơng trình giải ph ơng trình bậc (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real;...
... Viết ch ơng trình nhập vào N số nguyên từ bàn phím Hãy tính in hình tổng số vừa nhập vào Ý tưởng: Dùng ph ơng pháp cộng dồn Cho vòng lặp FOR chạy từ tới N, ứng với lần lặp thứ i, ta nhập vào số ... chạy ch ơng trình Lưu ch ơng 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 ... lệnh Write(i) thực lần 6.4 Lời giải thích Các lời bàn luận, lời thích đưa vào chỗ ch ơng trình người đọc dể hiểu mà không làm ảnh hưởng đến phần khác ch ơng trình Lời giải thích đặt hai dấu ngoạc...
... ',s:6:2); Readln; End Bài 36: Giải hệ ph ơng trình: Viết ch ơng trình giải hệ ph ơng trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết ch ơng trình nhập giá trị cho ... chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết ch ơng trình nhập 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 ... vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End Bài 6: Viết ch ơng trình giải ph ơng trình bậc (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real;...
... ',s:6:2); Readln; End Bài 36: Giải hệ ph ơng trình: Viết ch ơng trình giải hệ ph ơng trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết ch ơng trình nhập giá trị cho ... chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết ch ơng trình nhập 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 ... vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End Bài 6: Viết ch ơng trình giải ph ơng trình bậc (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real;...
... hao'); readln END Bài 13: Số ph ơng số có bậc số nguyên VD số số ph ơng bậc 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; ... 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: uses crt; var ... 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; BEGIN...
... Văn Thụ 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 ... ĐT : 0972.311.481 Trang 15 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Bài 14b Viết ch ơng trình nhập vào hai số nguyên d ơng a, b bất kỳ, hiển thị ước chung lớn hai số bội chung nhỏ hai ... Ch ơng trình nhập mảng chiều gồm n phần tử n
... ',s:6:2); Readln; End Bài 36: Giải hệ ph ơng trình: Viết ch ơng trình giải hệ ph ơng trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết ch ơng trình nhập giá trị cho ... chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết ch ơng trình nhập 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 ... vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End Bài 6: Viết ch ơng trình giải ph ơng trình bậc (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real;...
... readln; end 15.Viết ch ơng trình điều chỉnh số nguyên bị nhập sai từ bàn phím Sau cho biết số nhập sai số sửa người sử dụng yêu cầu Ví dụ: số nhập sai là: 23hdj43jj, ch ơng trình sửa lại là:2343 ... if ch=s[I] then inc(dem); write(ch,' xuat hien ',dem, ' ', s); readln; end 19.VCT nhập vào xâu S s1 in lý tự chung hai xâu? var s,s1,s2:string; i:integer; begin write('moi nhap sau thu nhat: ... (i+j=36) then writeln(i,' cho, ',j,' ga.'); readln; end VCT xuất số 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...
... Write(a[i, j]:6); End; Readln; END Bài : a Viết ch ơng trình nhập liệu từ dãy đối xứng vào mảng chiều 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 ... chon cua ban : _ Sau đợi gõ phím Ch ơng trình phải đợ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 ... kí tự Tên sách : xâu 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ào năm cho trước Những sách có tên...
... ',s:6:2); Readln; End Bài 36: Giải hệ ph ơng trình: Viết ch ơng trình giải hệ ph ơng trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết ch ơng trình nhập giá trị cho ... chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết ch ơng trình nhập 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 ... vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End Bài 6: Viết ch ơng trình giải ph ơng trình bậc (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real;...
... hao'); readln END Bài 13: Số ph ơng số có bậc số nguyên VD số số ph ơng bậc 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; ... 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: uses crt; var ... 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; BEGIN...
... Write(a[i, j]:6); End; 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 ... Write('Khong ton 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’ ) ... hết 80 cột tự động xuống hàng *) Readln ; END Bài : Viết ch ơng trình nhập hai số ngun d ơng m , n Sau tính trung bình cộng bình ph ơng số ngun từ m đến n Var m , n , k , s : Word ; tb : real...
... Write(a[i, j]:6); End; 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 ... • Tên sách : xâu 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ào năm cho trước • Những sách có ... END BÀI TẬP CH ƠNG 4: CẤU TRÚC DỮ LIỆU MẢNG Bài : Giải hệ ph ơng trình tuyến tính hai ẩn dùng ma 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;...
... hao'); readln END Bài 13: Số ph ơng số có bậc số nguyên VD số số ph ơng bậc 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; ... 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: uses crt; var ... 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; BEGIN...
... ôn tập thi liên thông 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, ... chạy ch ơng trình Lưu ch ơng 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 ... Viết ch ơng trình nhập vào N số nguyên từ bàn phím Hãy tính in hình tổng số vừa nhập vào Lê Minh V ơng 14 Tài liệu ôn tập thi liên thông môn sở ngành - Pascal Ý tưởng: Dùng ph ơng pháp cộng dồn...
... tố t ơng đ ơng Hai số tự nhiên gọi nguyên tố t ơng đ ơng chúng có chung ước số nguyên tố Ví dụ số 75 15 nguyên tố t ơng đ ơng có ước nguyên tố Cho trước hai số tự nhiên M N Hãy viết ch ơng trình ... 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ăm có 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 ... đầu từ đích từ sau từ nguồn Hãy lập ch ơng trình tìm file DLIEU1.TXT tất từ từ đích thay chúng từ nguồn t ơngứng Kết ghi vào file KETQUA.TXT ( Đó đoạn văn t ơng tự file DLIEU1.TXT thay từ đích...
... Readln; End Bài 36: Giải hệ ph ơng trình: Viết ch ơng trình giải hệ ph ơng trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Type MT = Bài 37: Hãy viết ch ơng trình nhập giá ... chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết ch ơng trình nhập 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 ... vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End Bài 6: Viết ch ơng trình giải ph ơng trình bậc (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real;...
... ',s:6:2); Readln; End Bài 36: Giải hệ ph ơng trình: Viết ch ơng trình giải hệ ph ơng trình tuyến tính ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết ch ơng trình nhập giá trị cho ... chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết ch ơng trình nhập 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 ... vo so nghiem') Else writeln('Bat phuong trinh vo nghiem'); Readln; End Bài 6: Viết ch ơng trình giải ph ơng trình bậc (ax2 + bx + c =0) Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2:real;...