Замітки тетяна виноградова

Замітки з міткою «тетяна виноградова»

Сортувати:: нові; популярні

Вид:: короткий; повний

vitannya17

шшш.хатинкаТетянки.укр

10.07.15, 18:39
блог, полтава, сайт, тетяна виноградова, хатинка тетянки

Кілька років тому була зареєстрована у компанії www.intway.com

Був блог, сторінка з фотографіями, сайт.

Засмучена з приводу непорозуміння з программістами та банківськими співробітниками.

Що коштовно, що безкоштовно, я вже погано розумію.....

Тому надалі спробую спілкуватись з людьми цих професій якомога рідше.

[ шшш.хатинкаТетянки.укр ]

Коментарі: 0

vitannya17

С наступающим!!!

20.12.14, 12:26
вышивка, вышивка крестом, полтава, тетяна виноградова

моя работа, которой 15 лет

Вышивка крестиком, ручная.

Коментарі: 25

vitannya17

И еще один подарок к новому году.

18.12.14, 10:32
одяг, полтава, пошиття одягу, тетяна виноградова, халат

Если у вас есть швейная машинка, пару часов свободного времени и набор полотенец - можно сделать замечательный подарок СВОИМИ РУКАМИ кому-нибудь из близких на новый год.

Халат из трех полотенец.

А последовательность выполнения этого изделия можно посмотреть в альбоме.

http://photo.i.ua/user/5202286/430900/

Надеюсь, объяснения написаны доступно ;)

Коментарі: 14

VynT17pr

Gradute's dress.

02.12.14, 20:50
одяг, полтава, пошиття одягу, програма, тетяна виноградова

======Ukr======

program gradute-s-dress;
var whifab16, bluefab16, atl16, lin16, Ea6, Fd6, Ls6, Sk6, summ16 : real;

begin
clrscr;
writeln (введіть числа, де whifab16 - вартість органзи, грн/м, bluefab16 - вартість креп-атласу для підкладки спідниці, грн/м, atl16 - вартість атласу для корсету, грн/м, lin16 - вартість підкладки, грн/м);

readln (whifab16, bluefab16, atl16, lin16);

Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;

Ls6: = atl16 * 0,6;

Sk6: = lin16 * 0,5;

sum16: = Ea6 + Fd6 + Ls6 + Sk6;

writeln (summ16 - необхідна сума, грн);

end.

=======Rus========

program gradute-s-dress;
var whifab16, bluefab16, atl16, lin16, Ea6, Fd6, Ls6, Sk6, summ16 : real;

begin
clrscr;
writeln (введите числа, где whifab16 - стоимость органзы, р/м, bluefab16 - креп-атласа для подкладки юбки, р/м, atl16 - стоимость атласа для корсета, р/м, lin16 - стоимость подкладки, р/м);

readln (whifab16, bluefab16, atl16, lin16);

Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;

Ls6: = atl16 * 0,6;

Sk6: = lin16 * 0,5;

sum16: = Ea6 + Fd6 + Ls6 + Sk6;

writeln (summ16 - необходимая сумма, р);

end.

=======Eng========

program gradute-s-dress;
var whifab16, bluefab16, atl16, lin16, Ea6, Fd6, Ls6, Sk6, summ16 : real;

begin
clrscr;
writeln (please, write some information, where whifab16 - costs of transparent fabric, $/m, bluefab16 - costs of crepe-satin for lining of skirt, $/m, atl16 - costs of satin, $/m, lin16 - costs of lining, $/m);

readln (whifab16, bluefab16, atl16, lin16);

Ea6: = whifab16 * 3,5;
Fd6: = bluefab16 * 3,0;

Ls6: = atl16 * 0,6;

Sk6: = lin16 * 0,5;

sum16: = Ea6 + Fd6 + Ls6 + Sk6;

writeln (summ16 - summa for paying, $);

end.

Рассчет выполнен для выпускного платья.

http://photo.i.ua/user/5202286/351830/12671086/

B = 3,5 м - необходимое количество органзы,

D = 3,0 м - необходимое количество креп-атласа для подкладки юбки,

L = 0,6 м - необходимое количество атласа для корсета,

S = 0,5 м - необходимое количество подкладки для корсета

Коментарі: 0

VynT17pr

reddress1

02.12.14, 11:38
одяг, полтава, пошиття одягу, програм, тетяна виноградова

=======Ukr========

program redress1;
var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;

begin
clrscr;
writeln (введітть числа, де redfab1 - вартість червоного шифону, грн/м, redyelfabr1 - вартість кольорового шифону, грн/м, dubl1 - вартість дублерину, грн/м);

readln (redfab1, redyelfabr1, dubl1);
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;

Tr31: = dubl1 * 0,3;

summ31: = Ea31 + Fd31 + Tr31;

writeln (summ31 - необхідна сума, грн);

end.

=======Rus========

program redress1;
var redfab1, redyelfabr1 , dubl1, Ea31, Fd31, Tr31, summ31 : real;

begin
clrscr;
writeln (введите числа, где redfab1 - стоимость красного шифона, р/м, redyelfabr1 - стоимость разноцветного шифона, р/м, dubl1 - стоимость дублерина, р/м);

readln (redfab1, redyelfabr1, dubl1);
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;

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);

readln (redfab1, redyelfabr1, dubl1);
Ea31: = redfab1* 2,0;
Fd31: = redyelfabr1 * 1,6;

Tr31: = dubl1 * 0,3;

summ31: = Ea31 + Fd31 + Tr31;

writeln (summ31 - summa for paying, $);

end.

Рассчет выполнен для платья

http://photo.i.ua/user/5202286/412412/12174171/

B = 2,0 м - необходимое количество красного шифона

D = 1,6 м - необходимое количество разноцветного шифона

G = 0,3 м - необходимое количество дублерина

По желанию, вместо предложенного варианта материалов, можно выбирать любые.

Коментарі: 2

VynT17pr

spacesuit. пусть висит.

02.12.14, 09:10
одяг, полтава, пошиття одягу, програма, тетяна виноградова

program whitejaket1;
var whifab11, lin11, wafabr11, ne11, whiquant11, liquant11, waquant11 , nequant11, Ea78, Fd78, Ks78, Tr78, summ78 : real;

begin
clrscr;
writeln (введите числа, где whifab11 - количество основной ткани, м, lin11 - количество подкладки, м, wafabr11 - количество утеплителя, м, ne11 - количество ткани для внутреннего чехла, м);

writeln (введите числа, где whiquant11 - стоимость основной ткани, грн/м, liquant11 - стоимость подкладки, грн/м, waquant11 - стоимость утеплителя, грн/м, nequant11 - стоимость ткани для внутреннего чехла, грн/м);

readln (whifab11, lin11, wafabr11 , ne11);

readln (whiquant11, liquant11, waquant11, nequant11);
Ea78: = whifab11*whiquant11;

Fd78: = lin11 *liquant11;

Ks78: = wafabr11 * waquant11;

Tr78 : = ne11 * nequant11;

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;

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);

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;

Fd78: = lin11 *liquant11;

Ks78: = wafabr11 * waquant11;

Tr78 : = ne11 * nequant11;

summ78: = Ea78+ Fd78 + Ks78 + Tr78;

writeln (summ78 - summ for paying, $);

end.

Рассчет сделан для костюма на фото:

http://photo.i.ua/user/5202286/420382/12491992/

- основная ткань,

- подкладочный материал,

- утеплитель,

- ткань для внутреннего чехла.

P.S. Пошью себе - напишу, сколько нужно ткани ;)

Коментарі: 0

VynT17pr

whitejaket1

02.12.14, 00:03
одяг, полтава, пошиття одягу, програма, тетяна виноградова

=======Ukr=======

program whitejaket1;
var whifab1, lin, la1, Ea3, Fd3, Ks3, summ3 : real;

begin
clrscr;
writeln (введіть числа, де whifab1 - вартість основної тканини, грн/м, lin - вартість підкладки, грн/м, la1 - вартість мережива, грн/м);

readln (whifab1, lin, la1);
Ea3: = whifab1* 2,0;
Fd3: = lin * 1,7;

Ks3: = la1 * 0,6;

summ3: = Ea3 + Fd3 + Ks3 ;

writeln (summ3 - необхідна сума, грн);

end.

=======Rus=======

program whitejaket1;
var whifab1, lin, la1, Ea3, Fd3, Ks3, summ3 : real;

begin
clrscr;
writeln (введите числа, где whifab1 - стоимость основной ткани, р/м, lin - стоимость подкладки, р/м, la1 - стоимость кружева, р/м);

readln (whifab1, lin, la1);
Ea3: = whifab1* 2,0;
Fd3: = lin * 1,7;

Ks3: = la1 * 0,6;

summ3: = Ea3 + Fd3 + Ks3 ;

writeln (summ3 - необходимая сумма, р);

end.

=======Eng=======

program whitejaket1;
var whifab1, lin, la1, Ea3, Fd3, Ks3, summ3 : real;

begin
clrscr;
writeln (please, write some information, where whifab1 - costs of white fabric, $, lin - costs of lining, $, la1 - costs of lace, $);

readln (whifab1, lin, la1);
Ea3: = whifab1 * 2,0;
Fd3: = lin * 1,7;

Ks3: = la1* 0,6;

summ3: = Ea3 + Fd3 + Ks3;

writeln (summ3 - summa for paying, $);

end.

Рассчет выполнен для жакета

http://photo.i.ua/user/6762292/417413/12572245/

B = 2,0 м - необходимое количество основной ткани

D = 1,7 м - необходимое количество подкладки

S = 0,6 м - необходимое количество кружева

По желанию, вместо предложенного варианта материалов, можно выбирать любые.

Коментарі: 0

VynT17pr

brown&orange_dress1

01.12.14, 22:08
одяг, полтава, програма, сукня, тетяна виноградова

program brown&orange_dress1;
var bror, orn, Ea2, Fd2, summ2 : real;

begin
clrscr;
writeln (введите числа, где bror - стоимость основной ткани, грн/м, orn - стоимость шифона, грн/м);
readln (bror, orn);
Ea2: = bror * 1,5;
Fd2: = orn * 0,6;

summ2: = Ea2 + Fd2;
writeln (summ2 - необходимая сумма, грн);

end.

program brown&orange_dress1;
var bror, orn, Ea2, Fd2, summ2 : real;
begin
clrscr;
writeln (please, write some information, where bror - costs of brown fabric, $, orn - costs of transparent fabric, $);

readln (bror, orn);
Ea2: = bror * 1,5;
Fd2: = orn * 0,6;

summ2: = Ea2 + Fd2;
writeln (summ2 - summa for paying, $);

end.

Рассчет выполнен для платья

http://photo.i.ua/user/5202286/423513/

B = 1,5 м - необходимое количество основной ткани

D = 0,6 м - необходимое количество шифона для отделки

По желанию, вместо предложенного варианта тканей, можно выбирать любые.

Коментарі: 0

VynT17pr

yellow&orange_dress1

01.12.14, 21:57
одяг, полтава, програма, сукня, тетяна виноградова

program yellow&orange_dress1;
var yelor, netfabr, Ea2, Fd2, summ2 : real;

begin
clrscr;
writeln (введите числа, где yelor - стоимость основной ткани, грн/м, netfabr - стоимость сетки для пояса, грн/м);
readln (grefabr, blackfabr);
Ea2: = yelor * 2,1;
Fd2: = netfabr * 0,3;

summ2: = Ea2 + Fd2;
writeln (summ2 - необходимая сумма, грн);

end.

program yellow&orange_dress1;
var yelor, netfabr, Ea2, Fd2, summ2 : real;
begin
clrscr;
writeln (please, write some information, where yelor - costs of yellow fabric, $, netfabr - costs of net-fabric, $);

readln (grefabr, blackfabr);
Ea2: = yelor * 2,1;
Fd2: = netfabr * 0,3;

summ2: = Ea2 + Fd2;
writeln (summ2 - summa for paying, $);

end.

Рассчет выполнен для платья.

http://photo.i.ua/user/5202286/397033/11690929/

B = 2,1 м - количество основной ткани, в данном случае в желто-оранжевые цветы.

D = 0,3 м - количество сетки для пояса.

По желанию, вместо предложенного варианта тканей, можно выбирать любые.

Коментарі: 0

VynT17pr

А тепер я програміст)

01.12.14, 21:50
вишивка, програміст, спроба, тетяна виноградова, чомубіні

За спробу мене сварити точно ніхто не буде.

а якщо і буде - повернуся до вишивки))))

http://photo.i.ua/user/5202286/354080/

Коментарі: 1