PROGRAM BAILAM1;USES CRT;CONST FINP='CHUNHAT.INP'; FOUT='CHUNHAT...

BÀI 1.

program bailam1;

uses crt;

const finp='chunhat.inp';

fout='chunhat.out';

var i,j,a,b,s,luu,luu1:longint;

max,min,dt:real;

f,g:text;

procedure nhap;

begin

{$i-}

assign(f,finp); reset(f);

close(f);

if (IOresult<>0) then

begin

write('File bi hu hoac khong ton tai');

readln;

halt;

end;

readln(f,a,b);

if (IOresult<>0) or (a<1) or (b<1) or (a<b) or (a>100) or (b>100) then

write('Nhap sai');

readln; halt;

{$i+}

end;

clrscr;

nhap;

s:=a*b;

max:=s/2; min:=max;

for i:=0 to b do

dt:=s-(a*i)/2-((b-i)*i)/2-((a-i)*b)/2;

if dt<min then

begin

luu:=i; min:=dt;

end;

if dt>max then

max:=dt; luu1:=i;

assign(g,fout); rewrite(g);

writeln(g,max:0:1);

writeln(g,luu1);

writeln(g,min:0:1);

writeln(g,luu);

close(g);

writeln(max:0:1);

writeln(luu1);

writeln(min:0:1);

writeln(luu);

writeln(' Ngoai ra ket qua con duoc xuat vao file CHUNHAT.out');

delay(300);

end.