spacesuit. пусть висит.
- 02.12.14, 09:10
program whitejaket1;
var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : real;
var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : real;
begin
clrscr;
writeln (введите числа, где whifab11 - количество основной ткани, м, lin11 - количество подкладки, м, wafabr11 - количество утеплителя, м, ne11 - количество ткани для внутреннего чехла, м);
clrscr;
writeln (введите числа, где whifab11 - количество основной ткани, м, lin11 - количество подкладки, м, wafabr11 - количество утеплителя, м, ne11 - количество ткани для внутреннего чехла, м);
writeln (введите числа, где whiquant11 - стоимость основной ткани, грн/м, liquant11 - стоимость подкладки, грн/м, waquant11 - стоимость утеплителя, грн/м, nequant11 - стоимость ткани для внутреннего чехла, грн/м);
readln (whifab11, lin11, wafabr11 , ne11);
readln (whiquant11, liquant11, waquant11, nequant11);
Ea78: = whifab11*whiquant11;
Ea78: = whifab11*whiquant11;
Fd78: = lin11 *liquant11;
Ks78: = wafabr11 * waquant11;
Tr78 : = ne11 * nequant11;
end.
summ78: = Ea78+ Fd78 + Ks78 + Tr78;
writeln (summ78 - необходимая сумма, грн);
end.
program whitejaket1;
var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : integer;
var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : integer;
begin
clrscr;
writeln (please, write some information, where whifab11 - quantity of white fabric, m, lin11 - quantity of lining, m, wafabr11 - quantity of warmfabric, m, ne11 - quantity of fabrik for cover, m);
clrscr;
writeln (please, write some information, where whifab11 - quantity of white fabric, m, lin11 - quantity of lining, m, wafabr11 - quantity of warmfabric, m, ne11 - quantity of fabrik for cover, m);
writeln (please, write some information, where whiquant11 - costs of white fabric, $/m, liquant11 - costs of lining, $/m, waquant11 - costs of warmfabric, $/m, nequant11 - costs of fabrik for cover, $/m);
readln (whifab11, lin11, wafabr11 , ne11);
readln (whiquant11, liquant11, waquant11, nequant11);
Ea78: = whifab11*whiquant11;
Ea78: = whifab11*whiquant11;
Fd78: = lin11 *liquant11;
Ks78: = wafabr11 * waquant11;
Tr78 : = ne11 * nequant11;
end.
summ78: = Ea78+ Fd78 + Ks78 + Tr78;
writeln (summ78 - summ for paying, $);
end.
Рассчет сделан для костюма на фото:
http://photo.i.ua/user/5202286/420382/12491992/ - основная ткань,
- подкладочный материал,
- утеплитель,
- ткань для внутреннего чехла.
P.S. Пошью себе - напишу, сколько нужно ткани ;)
0
Коментарі