Thông báo kết quả ra màn hình.. Câu 3: Nhập vào một dãy n số bất kỳ từ bàn phím.. Tìm giá trị lớn nhất và nhỏ nhất của dãy số đó.. In kết quả tìm được ra màn hình cùng vị trí của các giá
Trang 1Một số bài tập Pascal lớp 11
Câu 1: Viết chương trình giải hệ 2 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 quả ra 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 một dãy n số bất kỳ từ bàn phím Tìm giá trị lớn nhất và nhỏ nhất của
dãy số đó 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 Sau đó tìm giá trị lớn nhất, giá
trị nhỏ nhất của ma trận này In ma trận cùng kết quả tìm được ra màn hình.
Hướng dẫn giải bài tập
1 Giải hệ bậc nhất 2 ẩn:
PHP:
{HE 2 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( , , );
Writeln('Nhap he so d, e, f: '); readln( , , );
DD:=a e d b
Dx:=c e f b
Dy:=a f d c
IF DD<>0 then
writeln('HPT co nghiem duy nhat: x=',Dx/DD: : ,' va y=',Dy/DD: : );
IF DD=0 then
Begin
IF (Dx<>0) or (Dy<>0) then writeln('HPT vo nghiem :(');
IF (Dx= ) and (Dy= ) then writeln('HPT vo so nghiem :))');
End;
readln;
END
2 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( , , );
Until ( <>0) or (b<>0) or (c<>0);
IF a 0 then
IF b<>0 then writeln('Phuong trinh co nghiem duy nhat: x= ',-c b 6 3
else write('Phuong trinh vo nghiem!!!')
ELSE
Trang 2Begin 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 2 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
3 Nhập vào dãy n số bất kỳ từ bàn phím Tìm giá trị max, min của dãy In kết quả tìm được ra màn hình cùng vị trí max, min trong 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( );
FOR i:=1 to n do
Begin write('A[', ,']= '); read( [ ]); end;
max:=a 1]; min:=a 1];
FOR i:=1 to n do
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 do If a i]=max then write( : );
writeln;
write('Cac vi tri min la: ');
For i:=1 to n do If a i]=min then write( : );
readln;
readln;
END
Bài 4: Tìm giá trị MAX, MIN của 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( , );
FOR j:=1 to m do
FOR i:=1 to n do
Begin
write('A[', ,',', ,']= ');
read( [ , ]);
end;
max:=a 1 1]; min:=a 1 1]; tong:=0
FOR j:=1 to m do
FOR i:=1 to n do
Trang 3IF 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