In kết quả tìm được ra màn hình cùng vị trí của các giá trị max, min trong dãy số.. Câu 4: Viết chương trình nhập vào ma trận thực Anxm.[r]
(1)Một số bài tập Pascal lớp 11 Câu 1: Viết chương trình giải hệ phương trình bậc nhất, với a, b, c, d, e, f, là các hệ số thực nhập vào từ bàn phím Thông báo kết màn hình Câu 2: Viết chương trình giải phương trình bậc hai: ax2 + bx + c = 0, với a, b, c là các hệ số thực nhập vào từ bàn phím Câu 3: Nhập vào dãy n số từ bàn phím Tìm giá trị lớn và nhỏ dãy số đó In kết tìm màn hình cùng vị trí các giá trị max, dãy số Câu 4: Viết chương trình nhập vào ma trận thực Anxm Sau đó tìm giá trị lớn nhất, giá trị nhỏ ma trận này In ma trận cùng kết tìm màn hình Hướng dẫn giải bài tập Giải hệ bậc ẩn: PHP: {HE PHUONG TRINH BAC NHAT} uses crt; var a,b,c,d,e,f,DD,Dx,Dy:real; BEGIN clrscr; Writeln('Nhap he so a, b, c: '); readln(a,b,c); Writeln('Nhap he so d, e, f: '); readln(d,e,f); DD:=a*e-d*b; Dx:=c*e-f*b; Dy:=a*f-d*c; IF DD<>0 then writeln('HPT co nghiem nhat: x=',Dx/DD:5:2,' va y=',Dy/DD:5:2); IF DD=0 then Begin IF (Dx<>0) or (Dy<>0) then writeln('HPT vo nghiem :('); IF (Dx=0) and (Dy=0) then writeln('HPT vo so nghiem :))'); End; readln; END Giải PT bậc 2: PHP: {Giai phuong trinh bac 2} uses crt; var a,b,c,delta:real; BEGIN clrscr; repeat write('Nhap a, b, c:'); readln(a,b,c); Until (a<>0) or (b<>0) or (c<>0); IF a=0 then IF b<>0 then writeln('Phuong trinh co nghiem nhat: x= ',-c/b:6:3) else write('Phuong trinh vo nghiem!!!') ELSE Lop11.com (2) Begin DELTA:=b*b-4*a*c; If delta=0 then write('Phuong trinh co nghiem kep: x=',-b/a:6:3); IF delta>0 then begin writeln('Phuong trinh co nghiem phan biet: '); writeln('X1= ',(-b+sqrt(delta))/2/a:6:3); writeln('X2= ',(-b-sqrt(delta))/2/a:6:3); end; If delta<0 then write('Phuong trinh vo nghiem.!!.'); end; readln; END Nhập vào dãy n số từ bàn phím Tìm giá trị max, dãy In kết tìm màn hình cùng vị trí max, dãy PHP: {MAX, MIN cua day} uses crt; var A: array[1 1000] of INTEGER; n,i,max,min:integer; BEGIN clrscr; write('Nhap so phan tu cua day: '); read(n); FOR i:=1 to n Begin write('A[',i,']= '); read(a[i]); end; max:=a[1]; min:=a[1]; FOR i:=1 to n BEGIN IF a[i]>max then max:=a[i]; IF a[i]<min then min:=a[i]; END; writeln('Gia tri MAX = ',max); writeln('Gia tri MIN = ',min); write('Cac vi tri max la: '); For i:=1 to n If a[i]=max then write(i:4); writeln; write('Cac vi tri la: '); For i:=1 to n If a[i]=min then write(i:4); readln; readln; END Bài 4: Tìm giá trị MAX, MIN ma trận PHP: uses crt; var A: array[1 100,1 100] of INTEGER; n,m,i,j,max,min:integer; BEGIN clrscr; write('Nhap n,m cua ma tran A[n,m]: '); read(n,m); FOR j:=1 to m FOR i:=1 to n Begin write('A[',i,',',j,']= '); read(a[i,j]); end; max:=a[1,1]; min:=a[1,1]; tong:=0; FOR j:=1 to m FOR i:=1 to n Lop11.com (3) Begin IF a[i,j]>max then max:=a[i,j]; IF a[i,j]<min then min:=a[i,j]; End; writeln('Gia tri MAX cua ma tran la ',max); writeln('Gia tri MIN cua ma tran la ',min); readln; END Lop11.com (4)