hayvedaybenanh_yeuem_207
New Member
Download miễn phí Một số bài tập Pascal cơ bản
Bài 40 :Viết chương trình nhập vào một ma trận A vuông cấp n. Chuyển A thành chính mà trận chuyển vị của A (không sử dụng ma trận trung gian).
Program MAT_TRAN_CHUYEN_VI; Uses Crt;
Type MT = array[1.20,1.20] of integer; Var a,b:MT;
n,m:integer;
Procedure Input(Var a:MT;n:integer); Var i, j:integer;
Begin
For i:=1 to n do
For j:=1 to n do
Begin
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí
Tóm tắt nội dung tài liệu:
ap n = ');readln(n);If n<2 then
Writeln('Khong co so nguyen to nao <=',n)
Else
Begin
Writeln('Cac so nguyen to <= ',n,' la:'); For i := 2 to n do
Begin
t:= 1;
Trang 8
End; Readln;
End.
End;
Repeat
t:= t+1;
Until ( i mod t = 0) or ( t*t>i ) ; If( t*t>i) then
Write(i:4);
Bài 21: Nhập 3 loại tiền và số tiền cần đổi. Hãy tìm tất cả các tổ hợp có được của 3 loại tiền trên cho số tiền vừa nhập.
Program DOI_TIEN; Uses Crt;
Var x,y,z,n,i,j,h,s:longint; Begin
Clrscr;
Writeln('CHUONG TRINH DOI TIEN:'); Writeln('---------------------------------------'); Write('Nhap so tien can doi n = ');readln(n); Write('Nhap loai tien thu 1: ');readln(x); Write('Nhap loai tien thu 2: ');readln(y); Write('Nhap loai tien thu 3: ');readln(z); Writeln('Loai ',x:6,' Loai ',y:6,' Loai ',z:6); For i:=0 to (n div x) do
For j:=0 to (n div y) do
For h:= 0 to (n div z) do
If (i*x+j*y+h*z=n) then
Writeln (i:8,j:12,h:10);
End.
Readln;
Bài 22:
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Trâu già ba con một bó. Hỏi có bao nhiêu con mỗi 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 to 20 do
For tn:=0 to 33 do
For tg:=0 to 100 do
If ((5*td+3*tn+tg/3=100)and (td+tn+tg=100)) then
Writeln(td:6, tn:12, tg:15);
Readln;
End.
Trang 9
Bài 23: Tạo bảng số dạng sau:
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
.........................................................................
Program BANG_SO; Uses crt;
Var i,j,n:integer; Begin
Clrscr;
Writeln(' TAO BANG SO TU 0-99'); Writeln('---------------------------------------------'); For i:=0 to 99 do
Begin
End.
End; Readln;
If (i mod 10 = 0) then
Writeln; Write(i:3)
Bài 24: Tạo hình
a)
*
b) c)
* * * * * *
* *
* * *
* * * *
* * * * *
Program TAO_HINH_A; Uses Crt;
Var i,j,n: integer; Begin
* * * *
* * *
* *
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
Clrscr;
Writeln(' TAO HINH A:'); Writeln('------------------------'); Write('Nhap so dong n=');readln(n); For i:= 1 to n do
Begin
End;
For j:=1 to i do
Write('* '); Writeln;
End.
Readln;
Program TAO_HINH_B; Uses Crt;
Var i,j,n,m: integer;
Trang 10
Begin
Clrscr;
Writeln(' TAO HINH B'); Writeln('----------------------------'); Write('Nhap so dong n= ');readln(n); For i:= n downto 1 do
Begin
Readln; End.
End;
For j:=1 to i do
Write('* '); Writeln;
Program TAO_HINH_C; Uses Crt;
Var i,j,n,m: integer; Begin
Clrscr;
Writeln(' TAO HINH C'); Writeln('----------------------------'); Write('Nhap so dong n= ');readln(n);
For i:= 1 to n do
Begin
Readln; End.
End;
Gotoxy(n-i+5,i+5); For j:=1 to 2*i-1 do Write('*');
Writeln;
Bài 26: Tính an (dùng chương trình con) Program LUY_THUA;
Uses Crt;
Var a,n:integer;
Function lt(a,n:integer):longint; Var i:integer; kq:longint; Begin
kq:=1;
For i:=1 to n do kq:=kq*a;
Begin
End;
Clrscr;
lt:=kq;
Writeln('CHUONG TRINH TINH A^N:'); Writeln('------------------------------------------'); Write('Nhap a = '); readln(a);
Write('Nhap n = '); readln(n); Writeln(a,'^',n,' = ',lt(a,n)); Readln;
Trang 11
End.
Bài 27: Tính n! (dùng chương trình con) Program GIAI_THUA;
Uses Crt;
Var n:integer;
Function gt(n:integer):longint; Var kq,i:integer;
Begin
Begin
End;
Clrscr;
kq:=1;
For i:=1 to n do kq:=kq*i;
gt:=kq;
End.
Writeln('CHUONG TRINH TINH N! :'); Writeln('---------------------------------------'); Write('Nhap n = '); readln(n);
Writeln(n,'! = ',gt(n)); Readln;
Bài 28: Tính C 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
End;
kq:=1;
For i:=1 to n do kq:=kq*i;
gt:=kq;
Function C(n,k:integer):real; Begin
Begin
End;
Clrscr;
c:=gt(n)/(gt(k)*gt(n-k));
End.
Writeln('CHUONG TRINH TINH N CHAP K :'); Writeln('----------------------------------------------'); Write('Nhap n = '); readln(n);
Write('Nhap k = ');readln(k); Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln;
Bài 29: Lập tam giác PASCAL, bằng Cn k(dùng 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
End;
kq:=1;
For i:=1 to n do kq:=kq*i;
gt:=kq;
Function C(k,n:integer):real; Begin
Begin
End;
Clrscr;
C:=gt(n)/(gt(k)*gt(n-k));
Writeln('VIET TAM GIAC PASCAL:'); Writeln('---------------------------------'); Write(' Nhap n = '); readln(n);
For i:=0 to n do
Begin
End.
End; Readln;
For j:=0 to i do
Write(C(j,i):3:0); Writeln;
Bài 30: Viết các chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật trong một chương trình. Sau đó hỏi chọn một trong các phương án tính diện tích bằng cách chọn trong bảng chọn lệnh sau:
0. Không làm gì hết và trở về màn hình soạn thảo.
1. Tính diện tích hình vuông
2. Tính diện tích hình tròn
3. Tính diện tích tam giác
4. Tính diện tích hình chӳ nhұt
Program TINH_DIEN_TICH; Uses crt;
Procedure HV;
Var s,a:real; Begin
End;
Writeln('TINH DIEN TICH HINH VUONG:'); Write('Nhap chieu dai cua canh a = ');readln(a); s:=a*a;
Writeln('Dien tich hinh vuong = ',s:6:2);
Procedure HT;
Var s,r:real; Begin
End;
Writeln('TINH DIEN TICH HINH TRON:'); Write('Nhap ban kinh R = ');readln(r); s:=pi*r*r;
Writeln('Dien tich hinh tron = ',s:6:2);
Procedure TG;
Trang 13
Var a, b, c,s,p:real; Begin
Writeln('TINH DIEN TICH TAM GIAC:'); Write('nhap a =');readln(a);
Write ('nhap b =');readln(b); Write('nhap c =');readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
End;
End
Else
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Chu vi tam giac:',2*p:4:2) ; Writeln('Dien tich tam giac:',s:4:2);
Writeln(a,', ',', ',c,' khong phai la ba canh cua tam giac') ;
Procedure CN;
Var a, b, s:real; Begin
End;
Writeln('TINH DIEN TICH HINH CHU NHAT:'); Write('Nhap chieu dai a =');readln(a);
Write('Nhap chieu rong b= ');readln(b);
s:= a*b;
Writeln('Dien tich hinh chu nhat, s= ',s:6:2);
Procedure menu; Var d:integer; Begin
Clrscr;
Writeln('CHON MOT TRONG CAC PHUONG AN SAU:'); Writeln('----------------------------------------------------------'); Writeln('0: Quay ve man hinh soan thao');
Writeln('1: Tinh dien tich hinh vuong'); Writeln('2: Tinh dien tich hinh tron'); Writeln('3: tinh dien tich tam giac'); Writeln('4: Tinh dien tich hinh chu nhat');
Writeln('===================================='); Write(' Hay chon mot phuong an: '); readln(d); Writeln('===================================='); Writeln;
Case d of
0: Exit;
1: HV;
2: HT;
3: TG;
4: CN;
End; Begin
End.
End;
menu; Readln;
Trang 14
Bài 31: Tính các số Fibonacci:
- F1=F2 = 1
- Fn = Fn-1 + Fn-2
Program FIBONACII; Uses Crt;
Var n,kq:integer;
Function F(n:integer):integer; Begin
If (n=1) or (n=2) then
F:=1
Begin
End;
Clrscr;
Else
F:=F(n-1)+F(n-2);
End.
Writeln(' TINH SO FIBONACII:'); Writeln('-------------------------------'); Write('Nhap n = '); Readln(n); Write('F(',n,')= ',f(n));
Readln;
Bài 32: Viết chương trình tìm số đảo của một số nguyên dương . Ví dụ: - Số = 12345
- Số đảo = 54321
Program TIM_SO_DAO; Uses crt;
Var n:longint;
Function daoso(n: longint):longint; Var s:string;
ch:char; i,l,code:integer; kq:longint;
Begin
str(n,s);
For i:=1 to length(s) div 2 do
Begin
End;
ch:=s; s:=s[length(s)-i+1]; s[length(s)-i+1]:=ch;
Begin
End;
Clrscr;
val(s,kq,code);
daoso:=kq;
End.
Writeln(' TIM SO DAO CUA MOT SO'); Writeln('--------------------------------------'); Write('Nhap so can tim dao n= ');readln(n); Writeln('So dao cua ',n,' la: ', daoso(n)); Readln;
Trang 15
n
Bài 33: Tính tổng S = å 1 (dùng chương trình con)
i=0 i!
Program TONG1; Uses Crt;
Var i,n:integer;
s:real;
Function gt(n:integer):longint; Var kq,i:integer;
Begin
Begin
End;
Clrscr;
kq:=1;
For i:=1 to n do kq:=kq*i;
gt:=kq;
End.
Writeln(' CHUONG TRINH TINH TONG:'); Writeln('----------------------------------------------'); Write('Nhap n='); Readln(n);
S:=1;
For i:= 1 to n do
S:=S+1/gt(i); Write('Tong la: ',S:6:2); Readln;
n
Bài 34: Tính tổng S = å x i (dùng chương trình con)
i=1
Program TONG2; Uses Crt;
Var i,x,n:integer;
s:longint;
Function lt(a,n:integer):longint; Var i:integer;
kq:longint;
Begin
kq:=1;
For i:=1 to n do kq:=kq*a;
Begin
End;
Clrscr;
lt:=kq;
Writeln(' CHUONG TRINH TINH TONG:'); Writeln('----------------------------------------------'); Write('Nhap x = ');readln(x);
Write(...