I am struggling to work out how to use the Round command, I have bolded the area in which I need it. Thanks for the help in advance.
Edit: Forgot to add, we have to round the number up.
program lab12exc3;
{$APPTYPE CONSOLE}
uses
SysUtils,ourcrt;
var
length,width,height,area,litresPaint,metresPaint : real;
procedure input_measurements;
begin
write('What is the length of the room? ');
readln(length);
writeln('What is the width of the room? ');
readln(width);
writeln('What is the height of the room? ');
readln(height);
end;
procedure convert_measurements;
begin
area:=(width*length)+(width*height*2)+(height*length*2);
litresPaint:=area*2/20;
metresPaint:=area*2;
end;
procedure display_measurements;
begin
writeln('The total surface area of the room is ',area:6:2,' metres squared.');
writeln('You will need ',metresPaint:6:2,' metres squared of paint.');
writeln('This equates to ',[B](litresPaint):6:2[/B],' litres of paint.');
end;
begin
input_measurements;
convert_measurements;
display_measurements;
readln;
end.