indexing
	description: "Chapter 1 Halliday.Resnick"
	author: "Dennis J. Darland"
class PB01 
create make
feature make is
			-- Problems from chapter 1.
		do
			io.put_string("Eiffel output chapter 1"); 
			io.put_new_line;
			prob_01;
			prob_02;
			prob_03;
		end
	cvt_feet_to_meters(feet: REAL): REAL is
		local
			feet_per_meter: REAL;
			meter_per_foot: REAL;
			meters: REAL;
		do
			feet_per_meter := 3.28;
			meter_per_foot := 1.0 / feet_per_meter;
			meters := feet * meter_per_foot;
			Result := meters;
		end -- cvt_feet_to_meters
	cvt_meters_to_feet(meters: REAL): REAL is
		local 
			feet: REAL;
			feet_per_meter: REAL;
		do
			feet_per_meter := 3.28;

			feet := meters * feet_per_meter;
			Result := feet;
		end -- cvt_meters_to_feet
	prob_01 is
		local
			my_height_meters: REAL;
			my_height_feet: REAL;
		do
			io.put_string("Problem 1");
			io.put_new_line;
			io.put_string("Enter your height in feet:");
			io.put_new_line;
			io.read_real;
			my_height_feet := io.last_real;
			my_height_meters := cvt_feet_to_meters(my_height_feet); -- convert units
			io.put_string("my_height_feet = ");
			io.put_real(my_height_feet); 
			io.put_new_line;
			io.put_string("my_height_meters = ");
			io.put_real(my_height_meters);
			io.put_new_line;
		end -- prob_01
	prob_02 is
		local
			diff_meters: REAL;
			diff_yards: REAL;
		do  
			io.put_string("Problem 2");
			io.put_new_line
			
			diff_meters := 100.0 - cvt_feet_to_meters(100.0 * 3.0);
			diff_yards := cvt_meters_to_feet(diff_meters) / 3.0;
			
			io.put_string("100 meters is longer by ");
			io.put_real(diff_meters);
			io.put_string(" meters or ");
			io.put_real(diff_yards);
			io.put_string(" yards");
			io.put_new_line;
		end; -- prob_02
	prob_03 is
		local
			feet_per_mile: REAL;
			meters_per_kilometer: REAL;
			miles_per_foot: REAL;
			miles_per_kilometer: REAL;
			feet_per_meter: REAL;
			
		do  
			io.put_string("Problem 3");
			io.put_new_line;
			
			feet_per_meter := 3.28;
			feet_per_mile := 5280.0;
			meters_per_kilometer := 1000.0;
			miles_per_foot := (1.0 / feet_per_mile);
			miles_per_kilometer := (miles_per_foot * feet_per_meter * meters_per_kilometer); 
			
			io.put_string("300 kilometers = ");
			io.put_real(300.0 * miles_per_kilometer);
			io.put_string(" miles"); 
			io.put_new_line;
		end; -- prob_03
end -- class PB01