reddress1
- 02.12.14, 11:38
=======Ukr========
program redress1;
var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;
end.
var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;
begin
clrscr;
writeln (введітть числа, де redfab1 - вартість червоного шифону, грн/м, redyelfabr1 - вартість кольорового шифону, грн/м, dubl1 - вартість дублерину, грн/м);
clrscr;
writeln (введітть числа, де redfab1 - вартість червоного шифону, грн/м, redyelfabr1 - вартість кольорового шифону, грн/м, dubl1 - вартість дублерину, грн/м);
readln (redfab1, redyelfabr1, dubl1);
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;
Tr31: = dubl1 * 0,3;
summ31: = Ea31 + Fd31 + Tr31;
writeln (summ31 - необхідна сума, грн);
end.
=======Rus========
var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;
begin
clrscr;
writeln (введите числа, где redfab1 - стоимость красного шифона, р/м, redyelfabr1 - стоимость разноцветного шифона, р/м, dubl1 - стоимость дублерина, р/м);
clrscr;
writeln (введите числа, где redfab1 - стоимость красного шифона, р/м, redyelfabr1 - стоимость разноцветного шифона, р/м, dubl1 - стоимость дублерина, р/м);
readln (redfab1, redyelfabr1, dubl1);
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;
Tr31: = dubl1 * 0,3;
summ31: = Ea31 + Fd31 + Tr31;
writeln (summ31 - необходимая сумма, р);
end.
=======Eng========
program redress1;
var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;
end.
var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;
begin
clrscr;
writeln (please, write some information, where redfab1 - costs of red fabric, $/m, redyelfabr1 - costs of differentcolore fabric, $/m, dubl1 - costs of dublerin, $/m);
clrscr;
writeln (please, write some information, where redfab1 - costs of red fabric, $/m, redyelfabr1 - costs of differentcolore fabric, $/m, dubl1 - costs of dublerin, $/m);
readln (redfab1, redyelfabr1, dubl1);
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;
Tr31: = dubl1 * 0,3;
summ31: = Ea31 + Fd31 + Tr31;
writeln (summ31 - summa for paying, $);
end.
Рассчет выполнен для платья
B = 2,0 м - необходимое количество красного шифона
D = 1,6 м - необходимое количество разноцветного шифона
G = 0,3 м - необходимое количество дублерина
По желанию, вместо предложенного варианта материалов, можно выбирать любые.
1
