Một Số Bài Tập Pascal Sử Dụng Cấu Trúc If - Then

1,Loại tam giác nào? Nhập 3 cạnh vào và báo cáo ra là -Tam giác hay không? -Tam giác thường, vuông, đều, cân! Rất đơn giản, chỉ cần sd cấu trúc rẽ nhánh là đã hoàn thành đc bài này rồi đó!

Mã PHP:

PROGRAM tamgiac;USES crt;VAR a,b,c:REAL;vuong,can,deu:BOOLEAN;BEGIN clrscr;REPEAT clrscr;write('Nhap 3 canh tam giac: ');readln(a,b,c);UNTIL ((a+b)>c) AND ((a+c)>b) AND ((b+c)>a); IF (a*a+b*b=c*c) OR (a*a + c*c=b*b) OR (b*b + c*c=a*a) THEN vuong:=TRUE; IF ((a=b) AND (b<>c)) OR ((a=c)AND (c<>b)) OR ((c=b)AND(b<>a)) THEN can:=TRUE; IF (a=b) AND (a=c) THEN deu:=TRUE; IF (vuong AND NOT can) THEN write('Tam giac vuong '); IF (NOT deu AND can) THEN write('Tam giac can'); IF (vuong AND can) THEN write('Tam giac vuong can'); IF deu THEN write('Tam giac deu'); IF (NOT vuong) AND (NOT can) AND (NOT deu) THEN write('Tam giac thuong');readln;END. 2,Đảo ngược xâu kí tự bất kì nhập vào

Mã PHP:

PROGRAM daoxaukitu;USES crt;VAR a,b:STRING;i,x:INTEGER;BEGIN clrscr;write('Nhap bat ki 1 xau ki tu vao: ');readln(a);b:='';x:=length(a); FOR i:=x DOWNTO 1 DO b:=b+a[i];writeln('Xau ki tu duoc dao lai la: ',b);readln;END. 3,Giải PT bậc 2 (bài tập cổ điển )

Mã PHP:

PROGRAM ptb2;USES crt;VAR a,b,c,x1,x2,d:REAL;BEGIN clrscr;REPEAT write('Nhap cac he so a, b, c: ');readln(a,b,c);UNTIL a<>0;d:=sqr(b)-4*a*c; IF d<0 THEN write('Phuong trinh vo nghiem!') ELSEBEGIN x1:=(-b-sqrt(d))/(2*a);x2:=(-b+sqrt(d))/(2*a); IF d=0 THEN writeln('Phuong trinh co nghiem kep x = ',x1:5:1) ELSE writeln('Phuong trinh co 2 nghiem phan biet: ',x1:5:1,x2:5:1);END;readln;END. 4, Tìm số lớn nhất trong 1 dãy n phần tử:

Mã PHP:

PROGRAM maxdayso;USES crt;VAR a:ARRAY[1..100] OF REAL;n,i:BYTE;t:REAL;BEGIN clrscr;write('Nhap so phan tu cua day vao: ');readln(n); FOR i:=1 TO n DO BEGIN write('Nhap so thu ',i,' vao: ');readln(a[i]); END; t:=a[1]; FOR i:=1 TO n DOBEGINIF a[i]>t THEN t:=a[i];END;writeln('Phan tu lon nhat cua day la: ',t:5:1);readln;END. 5, Sắp xếp 1 dãy số nhập vào theo thứ tự tăng dần

Mã PHP:

PROGRAM tangdan;USES crt;VAR a:ARRAY[1..100] OF REAL;i,j,n:BYTE;t:REAL;BEGIN clrscr;write('Nhap so phan tu cua day vao: '); readln(n); FOR i:=1 TO n DOBEGIN write('Nhap phan tu thu: ',i,' vao: ');readln(a[i]);END; FOR j:=n DOWNTO 2 DO FOR i:=1 TO n-1 DO IF a[i+1]<a[i] THEN BEGIN t:=a[i];a[i]:=a[i+1];a[i+1]:=t;END;writeln('Day so sap xep tang dan la: '); FOR i:=1 TO n DOwrite(a[i]:5:1,' ');readln;END. 6, Nhập 1 ma trận vào, in ra màn hình theo hàng cột và tìm phần tử nhỏ nhất trong ma trận đó:

Mã PHP:

PROGRAM in_ma_tran_va_tim_phan_tu_min;USES crt;VAR a:ARRAY[1..100,1..100] OF REAL;i,j,m,n:BYTE;min:REAL;BEGIN clrscr;write('Nhap so hang va so cot ma tran vao: ');readln(m,n); FOR i:=1 TO m DO FOR j:=1 TO n DOBEGIN write('Nhap phan tu A[',i,',',j,'] vao: ');readln(a[i,j]);END;writeln;writeln('Ma tran duoc in lai la: ');writeln; FOR i:=1 TO m DOBEGINFOR j:=1 TO n DOwrite(a[i,j]:5:1);writeln;END;min:=a[1,1]; FOR i:=1 TO m DO FOR j:=1 TO n DO IF a[i,j]<a[1,1] THEN min:=a[i,j];writeln; write('Phan tu nho nhat trong ma tran la: ',min:5:1);readln;END. 7,Tính giá trị đa thức:

Mã PHP:

PROGRAM tinh_da_thuc;USES crt;VARa:ARRAY[1..10] OF REAL;i,n:BYTE;t,x:REAL;BEGIN clrscr;write('Nhap bac cua da thuc vao: ');readln(n);write('Nhap X vao: ');readln(x); FOR i:=n DOWNTO 0 DOBEGIN write('Nhap he so da thuc vao: ','a[',i,']: ');readln(a[i]);END;t:=a[i]; FOR i:=n DOWNTO 1 DOt:=t*x + a[i-1];write('Gia tri cua da thuc la: ',t:5:1);readln;END. 8, Nhập vào 1 dãy n số, sau đó in số dương 1 dòng, số âm 1 dòng:

Mã PHP:

PROGRAM am_duong_cach_biet;USES crt;VARa:ARRAY[1..100] OF INTEGER;i,n:BYTE;BEGIN clrscr;write('Nhap so phan tu cua day vao: ');readln(n); FOR i:=1 TO n DOBEGIN write('Nhap phan tu thu: ',i,' vao: '); readln(a[i]); END;write('Nhung so duong la: '); FOR i:=1 TO n DO IF a[i]>0 THEN write(a[i],' '); writeln;write('Nhung so am la : '); FOR i:=1 TO n DO IF a[i]<0 THEN write(a[i],' ');readln;END. 9,Tìm ước chung lớn nhất 2 số dương

Mã PHP:

PROGRAM uocchunglonnhat;USES crt;VAR x,y:WORD;BEGIN clrscr;write('Nhap 2 so vao: ');readln(x,y);REPEAT IF x>y THEN x:=x-y ELSE y:=y-x UNTIL x=y; writeln;write('Uoc chung lon nhat cua 2 so la: ',x);readln;END. 10,Tính trung bình cộng riêng các số dương, âm nhập vào từ 1 mảng

Mã PHP:

PROGRAM tbc_am_duong_mang;USES crt;VAR a:ARRAY[1..100] OF REAL;i,n,x,y:INTEGER;tongam,tongduong,tba,tbd:REAL;BEGIN clrscr;write('So phan tu cua day n= ');readln(n); FOR i:=1 TO n DOBEGIN write('Nhap phan tu a[',i,']: ');readln(a[i]); END;tongam:=0; x:=0; FOR i:=1 TO n DO IF a[i]<0 THEN BEGIN tongam:=tongam+a[i];x:=x+1;END;tba:=tongam/x;write('TB cong cac so am la: ',tba:5:1);writeln;tongduong:=0; y:=0; FOR i:=1 TO n DO IF a[i]>0 THEN BEGIN tongduong:=tongduong+a[i];y:=y+1;END;tbd:=tongduong/y;write('TB cong cac so duong la: ',tbd:5:1); readln;END. 11,Tính tích vô hướng 2 Véc tơ cùng chiều với số chiều n nhập từ bàn phím:

Mã PHP:

PROGRAM tichvohuong2vecto;USES crt;VAR a:ARRAY[1..20] OF REAL;b:ARRAY[1..20] OF REAL;i,n:BYTE;tich:REAL;BEGIN clrscr;write('Nhap so chieu 2 Vecto: ');readln(n);writeln;writeln('Nhap toa do Vecto thu nhat:'); FOR i:=1 TO n DO BEGIN write('Nhap gia tri chieu ',i,': ');readln(a[i]);END;writeln; writeln('Nhap toa do Vecto thu 2:'); FOR i:=1 TO n DO BEGIN write('Nhap gia tri chieu ',i,': ');readln(b[i]);END;tich:=0; FOR i:=1 TO n DO tich:=tich + a[i]*b[i];writeln;write('Tich vo huong 2 Vecto la: ',tich:5:1);readln;END. 12, Tính e^x Exp(x)= 1 + (x^1)/(1!) + (x^2)/(2!) + ... (x^n)/(n!) Với độ chính xác ABS( (x^n)/(n!) ) < 0.0001

Mã PHP:

PROGRAM tinh_exp(x);USES crt;VAR x,s,r:REAL;n:INTEGER;BEGIN write('x='); readln(x);s:=1;r:=x;n:=1; WHILE abs(r)>=0.0001 DOBEGIN s:=s+r;n:=n+1;r:=r*x/n;END;write('Exp(x)=',s:5:1);readln;END.

Nhắn tin cho tác giả Đỗ Ngọc Sinh @ 10:22 04/11/2011 Số lượt xem: 9899 Số lượt thích: 0 người