phuong trinh bac nhat + so lon nhat
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (18.4 KB, 2 trang )
Phuong trinh bac nhat mot an
program phuongtrinh;
var a,b : real;
begin
wirteln('phuong trinh bac nhat co dang ax+b=0');
write('nhap a'); readln(a);
write('nhap b'); readln(b);
if a<> 0 then
write('phuong trinh co nghiem duy nhat x:',(-b/a));
esle {a=0}
if b=0 then
write('moi gia tri cua x la nghiem phuong trinh');
else { a=0,b khac 0}
write('phuong trinh vo nghiem');
readln;
end.
Tim so lon nhat
program lonnhat;
var
a,b,c ,max:integer;
begin
write('nhap 3 so'); readln(a,b,c);
max :=a;
if max <b then max :=b;
if max <c then max :=c;
write('so lon nhat la',max);
readln;
end.
Tim so nho nhat
program nhonhat;
var
a,b,c ,min:integer;
begin
write('nhap 3 so'); readln(a,b,c);
min :=a;
if min>b then max :=b;
if min>c then max :=c;
write('so lon nhat la',max);
readln;
end.
