Bài tập pascal 1,Loại tam giác nào? Nhập cạnh vào báo cáo -Tam giác hay không? -Tam giác thường, vuông, đều, cân! Rất đơn giản, cần sd cấu trúc rẽ nhánh hoàn thành đc đó! PHP Code: PROGRAM tamgiac; USES crt; VAR a,b,c:REAL; vuong,can,deu:BOOLEAN; BEGIN clrscr; REPEAT clrscr; write('Nhap 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:=T RUE; IF ((a=b) AND (bc)) OR ((a=c)AND (cb)) OR ((c=b)AND(ba)) THEN can:=TRUE; IF (a=b) AND (a=c) THEN deu:=TRUE; IF IF IF IF IF (vuong AND NOT can) THEN write('Tam giac vuong '); (NOT deu AND can) THEN write('Tam giac can'); (vuong AND can) THEN write('Tam giac vuong can'); deu THEN write('Tam giac deu'); (NOT vuong) AND (NOT can) AND (NOT deu) THEN write('Tam giac thuong'); readln; END 2,Đảo ngược xâu kí tự nhập vào PHP Code: PROGRAM daoxaukitu; USES crt; VAR a,b:STRING; i,x:INTEGER; BEGIN clrscr; write('Nhap bat ki xau ki tu vao: '); readln(a); b:=''; x:=length(a); FOR i:=x DOWNTO DO b:=b+a[i]; writeln('Xau ki tu duoc dao lai la: ',b); readln; END 3,Giải PT bậc (bài tập cổ điển ) PHP Code: 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 a0; d:=sqr(b)-4*a*c; IF dt THEN t:=a[i]; END; writeln('Phan tu *** nhat cua day la: ',t:5:1); readln; END 5, Sắp xếp dãy số nhập vào theo thứ tự tăng dần PHP Code: 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 DO BEGIN write('Nhap phan tu thu: ',i,' vao: '); readln(a[i]); END; FOR j:=n DOWNTO DO FOR i:=1 TO n-1 DO IF a[i+1]=0.0001 DO BEGIN s:=s+r; n:=n+1; r:=r*x/n; END; write('Exp(x)=',s:5:1); readln; END ... d=0 THEN writeln('Phuong trinh co nghiem kep x = ',x11) ELSE writeln('Phuong trinh co nghiem phan biet: ',x11,x21); END; readln; END 4, Tìm số lớn dãy n phần tử: PHP Code: PROGRAM maxdayso; USES... nhỏ ma trận đó: PHP Code: 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: ');... write('Phan tu nho nhat ma tran la: ',min:5:1); readln; END 7,Tính giá trị đa thức: PHP Code: PROGRAM tinh_da_thuc; USES crt; VAR a:ARRAY[1 10] OF REAL; i,n:BYTE; t,x:REAL; BEGIN clrscr; write('Nhap