Программа: Вычисление цены на обои

Задача: Вычислить цену на обои с учитывая все стены, окно и дверной проем. Все параметры вводятся с клавиатуры. Цена за 1 рулон обоев также вводится с клавиатуры.

PROGRAM oboi;
	var a,b,a1,b1,a2,b2,a3,b3,d,s,cena,ploshad_a,ploshad_b,ploshad_rul,kol_rul,ploshad_dv,ploshad_ok,pk,proi,rab :real;
BEGIN
	WriteLn('Введите длину и высоту первой стороны соответствено: ');
	ReadLn (a,b);

	WriteLn('Введите длину и высоту второй стороны соответствено: ');
	ReadLn (a1,b1);

	WriteLn('Введите длину и высоту дверного проема соответствено: ');
	ReadLn (a2,b2);

	WriteLn('Введите длину и высоту проема для окна соответствено: ');
	ReadLn (a3,b3);

	WriteLn('Введите длину и ширину обоев соответствено: ');
	ReadLn (d,s);

	WriteLn ('Введите цену на рулон обоев:');
	ReadLn (cena);

	ploshad_a:=a * b;
	ploshad_b:=a1 * b1;
	ploshad_rul:=d * s;
	ploshad_dv:=a2 * b2;
	ploshad_ok:=a3 * b3;
	pk:=2 * (ploshad_a + ploshad_b);
	proi:=ploshad_dv + ploshad_ok;
	rab:=pk - proi;
	WriteLn ('Площадь стен:',rab,' кв.метров');
	kol_rul:=rab / ploshad_rul;
	WriteLn ('Понадобится:',kol_rul,' рулонов');
	cena:=cena * kol_rul;
	WriteLn ('Цена всех рулонов:',cena,' руб.');
END.

Просмотрело: 2210

Возможно, Вы искали: