kinhquoc_88
New Member
Download miễn phí 61 bài tập Pascal cơ bản
Bài 4 9 . 2 : Viết chương trình nhân hai sốphức A,
B. Program NHAN_SO_PHUC;
Uses Crt;
Type
sophuc= record
pa,pt:real;
end;
Var a,b,c:sophuc;
Begin
Clrscr;
Writeln('NHAN HAI SO PHUC');
Writeln('----------------------------');
Write('Nhap phan thuc cua so a=');readln(a.pt);
Write('Nhap phan ao cua so a=');readln(a.pa);
Write('Nhap phan thuc cua so b=');readln(b.pt);
Write('Nhap phan ao cua so b=');readln(b.pa);
c.pt:=(a.pt)*(b.pt)-(a.pa)*(b.pa);
c.pa:=(a.pa)*(b.pt)+(a.pt)*(b.pa);
Writeln('Tich cua hai so phuc a va b la: ');
If c.pa<0 then
Writeln('c=',c.pt:6:2,'-j',abs(c.pa):4:2)
Else
Writeln('c=',c.pt:6:2,'+j',c.pa:4:2);
End.
Readln;
Để 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:
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 2 2 :
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 2 3 : 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 2 4 : 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 2 6 : 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));
R
e
a
d
l
n;
Trang 11
End.
B à i 2 7 : 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 2 8 : Tính C kn (dùng ch nươ g 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 2 9 : L pậ tam giác PASCAL, bằng Cn k(dùng ch nươ g 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 3 0 : 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;
W
r
i
t
e
ln('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 3 1 : 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 3 2 : 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.
W
r
i
t
e
l
n(' 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
nB à i 3 3 : 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 3 4 : Tính tổng S = ∑ x i (dùng ch nươ g 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('Nhap n='); Readln(n);
S:=0;
For i:= 1 to n do
S:=S+lt(x,i);
Writeln('Tong
la: ',s);
Trang 16
=∑
=
+
+n
i
i
i
x
0 )!1(
1
(dùng ch ng trình con)ươ
End...