phuong trinh bac nhat + so lon nhat

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'); readin(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 :=Cc;

write(‘so lon nhat la',max); readin;

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); readin;

end