Tác giả: Đình Trọng

Tìm tất cả các số có 3 chữ số thỏa điều kiện abc=a*a*a+b*b*b+c*c*c Program tim_so_thoa_dk; Uses crt; Var i,a,b,c:integer; Begin For a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if (100*a+10*b+c)=(a*a*a+b*b*b+c*c*c) then writeln(a,b,c); readln; End.}

Bài tập lớn : Cho dãy số sau:6 9 13 16 21 25 hãy viết ra 9 giá trị tiếp theo. Hướng dẫn: Đây là dãy số được tạo bởi tổng của số nguyên tố và số không nguyên tố, ta viết số nguyên tố trên 1 hàng, số không nguyên tố trên 1 hàng khác và công lại sẽ ra kết quả này Để giải quyết bài này ta cần 2 mảng bằng nhau 15, sau đó điền giá trị vào các mảng tương ứng Program tim_so; Uses crt; Const n=15; (* Khi muon tang do rong mang chi…

Viết chương trình cho phép tính diện tích các hình: Hình vuông; Hình chữ nhật; Hình tròn; Tam giác; Hình thang. Người dùng chọn hình cần tính diện tích từ bảng chọn, sau đó khai báo các thông số liên quan và nhận được diện tích của hình: MOI BAN CHON VIEC MUON LAM ************************* * 1. Hình vuông. * * 1. Hình chữ nhật. * * 3. Hình tròn * * 4. Tam giác * * 5. Hình thang. * ************************* Muốn tình diện tích tam giác, người dùng gõ 4 và khai báo đường cao, đáy. Chương trình…

In dãy số nguyên tố từ 1 tới 500. Program tim_so_nguyen; Uses crt ; Const n = 500; Var i,k,j:integer; kt:boolean; Begin clrscr; Write(2:4,3:4); For j:=4 to n do Begin i:=2; while (j mod i)<>0 do i:=i+1; if i=j then write(j:4); End; {for} Readln; End. Số nguyên tố là số chỉ chia hết cho 1 và chính nó, số 0, 1 không phải là số nguyên tố. Số nguyên tố Để xác định một số có phải là nguyên tố không ta tiến hành chia thử cho 2,3,4,5,6… vòng lặp while khi số cần kiểm tra(j) chia không hết cho…

Đây là một dạng toán thường hay gặp, bạn sẽ gặp 2 dang dưới đây trong các bài liên quan đến vòng lặp trong pascal. Sau này khi học thêm các hàm hay lệnh khác thì dãy số yêu cầu tính sẽ theo một quy tắc khó hơn. Tính tổng của n 1+2+3+..+n số, n nhập từ bàn phím? 1 2 3 4 5 6 7 8 9 10 11 12 Program viet_chuong_trinh_tong; uses crt; var n,i,s:integer; Begin   Clrscr;   write(‘nhap so :’);   readln(n);   S:=0; {tong ban dau = 0}   for i:=1 to n do S:=S+i; {cong don cho toi n}…

Đề bài : Nhập vào năm >100 sau đó cho biết năm ứng với âm lịch. Giải thuật đổi năm âm lịch sang dương lịch. Lấy năm dương lịch – 3 sau đó:    1. chia cho 10 ta được số dư là thiên can (Giáp, Ất, Bính, Đinh, Mậu, Kỷ, Canh, Tân, Nhâm, Quý).    2. chia cho 12 số dư chính là địa chi. (Tý, Sửu, Dần, Mẹo, Thìn, Tỵ, Ngọ, Mùi, Thân, Dậu, Tuất, Hợi). Program doi_nam_duong_lich_sang_am_lich; uses crt; Const N=5; var a,tc,dc:integer; i:byte; Begin For i:=0 to n do Begin Clrscr; write(‘nhap nam duong lich :’); readln(a);…

Kiểm tra tam giác vuông. Đề bài : Nhập vào 3 cạnh của một tam giác kiểm tra xem 3 cạnh đó có tạo thành tam giác vuông hay không?. Program tam_giac_vuong; Uses crt; Var a,b,c:real; Begin clrscr; write(‘nhap do dai canh thu nhat :’); readln(a); write(‘nhap do dai cannh thu hai :’); readln(b); write(‘nhap do dai canh thu ba :’); readln(c); if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then writeln(‘Day la tam giac vuong’) else writeln(‘Day la tam giac thuong’); readln; End.

Số lớn nhất, nhỏ nhất Nhập từ bàn phím 4 số sau đó cho biết số lớn nhất và nhỏ nhất. Program Max_Min; Uses crt; Var a,b,c,d:integer; max,min:integer; Begin clrscr; write(‘nhap so thu nhat :’); readln(a); max:=a; min:=a; write(‘nhap so thu hai :’); readln(b); if maxb then min:=b; write(‘nhap so thu ba :’); readln(c); if maxc then min:=c; write(‘nhap so thu tu :’); readln(d); if maxd then min:=d; writeln(‘So lon nhat la :’,max); writeln(‘So nho nhat la :’,min); readln; End. Mở rộng Khi đã biết dùng vòng lặp: Nhập 10 số từ bàn phím viết ra giá trị lớn nhất…

Tổng, hiệu, tích, thương 2 số. Đề bài: Nhập vào bàn phím 2 số in ra màn hình kết quả tổng, hiệu, tích, thương của 2 số đó. Program Tong_hieu_tich_thuong; Uses crt; Var a:integer; b:integer; Begin clrscr; write(‘nhap so thu 1 :’); readln(a); writeln(‘ban vua nhap so: ‘,a); write(‘nhap so thu hai :’); readln(b); writeln(‘ban vua nhap so thu 2: ‘,b); Writeln(a,’+’,b,’=’,a+b); Writeln(a,’-‘,b,’=’,a-b); Writeln(a,’*’,b,’=’,a*b); if b<>0 then {Nếu không kiểm tra thì b=0 chương trình sẽ bị lỗi} Writeln(a,’/’,b,’=’,a/b); readln; End.

Tính diện tích hình thang có đáy lớn và đáy nhỏ, chiều cao nhập từ bàn phím. Muốn tính diện tích hình thang Đáy lớn, đáy nhỏ ta mang cộng vào Cộng vào nhân với chiều cao Chia đôi lấy nửa thế nào cũng ra Bài giải Program Dien_tich_hinh_thang; Uses crt; Var a,b,c:integer; Begin clrscr; write(‘nhap do dai cua day lon :’); readln(a); write(‘nhap do dai cua day nho :’); readln(b); write(‘nhap do dai cua chieu cao :’); readln(c); writeln(‘tong hai canh day’); writeln(a,’+’,b,’=’,a+b); writeln(‘tong hai canh day nhan voi chieu cao’); writeln(a+b,’*’,c,’=’,(a+b)*c); writeln(‘dien tich hinh thang’); writeln((a+b)*c,’/’,2,’=’,((a+b)*c)/2:5:2); readln; End.…

Viết chương trình nhập mảng gồm n (n<=100) phần tử rồi chèn vào một số bất kỳ vào một vị trí nào đó trong mảng, số cần chèn và vị trí chèn nhập từ bàn phím. Program Chen; Uses crt; Var i,spt, so,vitri: Integer; A: Array[1..100] Of Integer; Begin Clrscr; Writeln(‘ + CHEN MOT SO VAO MANG +’); Writeln(‘——————————-‘); Write(‘-Co bao nhieu phan tu-: ‘); Readln(spt); For i:=1 To spt Do Begin Write(‘-Phan tu A[‘,i,’]= ‘); Readln(a[i]); End; Writeln; Writeln(‘–MANG TRUOC KHI CHEN–‘); For i:=1 To spt Do Write(a[i]: 6); Writeln; Write(‘-Can che so: ‘); Readln(so); Write(‘-Vao vi tri: ‘);…

Viết chương trình nhập vào mảng gồm n phần tử (n<=100) tìm và hiển thị vị trí phần tử có giá trị lớn nhât, sau đó sắp xếp các phần tử theo thứ tự tăng dần và hiển thị các phần tử sắp xếp đó ra màn hình. Program Tim_vi_tri; Uses crt; var a: array[1..100] of integer; var i,n,j, tg,max, vt: integer; begin clrscr; write(‘ nhap so phan tu cua mang ‘); readln(n); writeln(‘ moi nhap cac phan tu cua mang ‘); for i:=1 to n do begin write(‘A’, i,’]= ‘); readln(a[i]); end; Max:=a[1]; vt:=1; For i:=1 to n do…