... vào lối vào đó, sau cầu qua chitiết đó, chitiế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...
... 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...
... {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...
... 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;...
... 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...
... 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))...
... 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;...
... 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...
... (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...
... 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...
... 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;...
... 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))...
... 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ố...
... 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
... 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))...
... {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) Trongtrì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ủ...
... vào lối vào đó, sau cầu qua chitiết đó, chitiế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...
... 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...
... 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...