хочу сюди!
 

ИРИНА

50 років, водолій, познайомиться з хлопцем у віці 45-54 років

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

Насправді я згадала свої думки 12 липня 2008-го...

        Щойно спало на думку: як би склалась доля Анни Карєніної, аби вона не вирішила вкоротити собі віку за допомогою потяга?
       Чому взагалі цей твір вважають "класикою" і рекомендують до прочитання?
       Книга має навчити читача якомусь корисному рішенню, дати певні знання, допомогти з розв'язанням певної ситуації/проблеми. 
       І, ймовірно, не до теми. 
       Якщо не помиляюсь, 12 липня 2008-го року я купила мобільний виробника Sony Ericsson.
       Була акційна пропозиція з хорошою знижкою, а виробника вибрала, бо у знайомого був мобільний цієї марки.
       У мене з маркетингу було "4", але маркетологи мають знати, що насправді не завжди клієнтами стають люди, на яких реклама впливає безспосередньо, іноді це можуть бути знайомі/друзі. 
       З першого погляду: факти не пов'язані між собою.
       Не беріть близько до серця.
       Просто щось "накрило", вирішила написати "сторінку щоденника". 

       У Анни Карєніної була не любов, а нав'язлива думка. 
       Коли любиш по-справжньому, не обов'язково "прив'язувати" до себе. Якось так. 
       

Наушники.

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

упрекнуть тебя не в чем,
ведь время
                неподвластно,
а жажда событий  сушит душу
поговорить мне об этом не с кем,
а значит.... наушники в уши.

Gradute's dress.

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

program gradute-s-dress;
       var whifab16, bluefab16, atl16lin16,  Ea6Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (введіть числа, де whifab16 - вартість органзи, грн/м, bluefab16 - вартість креп-атласу для підкладки спідниці, грн/м, atl16 - вартість атласу для корсету, грн/м, lin16 - вартість підкладки, грн/м);
readln (whifab16bluefab16atl16, 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, atl16lin16,  Ea6Fd6, Ls6, Sk6, summ16 : real;
begin
clrscr;
writeln (введите числа, где whifab16 - стоимость органзы, р/м, bluefab16 - креп-атласа для подкладки юбки, р/м, atl16 - стоимость атласа для корсета, р/м, lin16 - стоимость подкладки, р/м);
readln (whifab16bluefab16atl16, 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, atl16lin16,  Ea6Fd6, 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, $/matl16 - costs of satin$/m, lin16 - costs of lining, $/m);
readln (whifab16bluefab16atl16, 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 м - необходимое количество подкладки для  корсета

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

program whitejaket1;
       var whifab11, lin11, wafabr11ne11, whiquant11, liquant11, waquant11 nequant11Ea78Fd78, 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: = Ea78Fd78 + Ks78 + Tr78;
writeln (summ78 - необходимая сумма, грн);

end. 


program whitejaket1;
       var whifab11, lin11, wafabr11ne11, whiquant11, liquant11, waquant11 nequant11Ea78Fd78, 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: = Ea78Fd78 + Ks78 + Tr78;
writeln (summ78 - summ for paying, $);

end. 


Рассчет сделан для костюма на фото:
http://photo.i.ua/user/5202286/420382/12491992/
     - основная ткань,
     - подкладочный материал,
     - утеплитель,
     - ткань для внутреннего чехла.

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

whitejaket1

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

program whitejaket1;
       var whifab1, lin, la1, Ea3Fd3, 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, Ea3Fd3, 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, Ea3Fd3, 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. 

Рассчет выполнен для жакета
B = 2,0 м - необходимое количество основной ткани
D = 1,7 м - необходимое количество подкладки
S = 0,6 м - необходимое количество кружева
По желанию, вместо предложенного варианта материалов, можно выбирать любые.

brown&orange_dress1

program brown&orange_dress1;
       var bror, orn, Ea2Fd2, 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 brorornEa2Fd2summ2 : real;
begin
clrscr;
writeln (please, write some information, where bror - costs of brown fabric, $, orn - costs of transparent  fabric, $);
readln (brororn);
Ea2: = bror * 1,5;
Fd2: = orn * 0,6;
summ2: = Ea2 Fd2;
writeln (summ2 - summa for paying, $);

end. 

Рассчет выполнен для платья
B = 1,5 м - необходимое количество основной ткани
D = 0,6 м - необходимое количество шифона для отделки
По желанию, вместо предложенного варианта тканей, можно выбирать любые.

yellow&orange_dress1

program yellow&orange_dress1;
       var yelor, netfabr, Ea2Fd2, summ2 : real;
begin
clrscr;
writeln (введите числа, где yelor - стоимость основной ткани, грн/м, netfabr - стоимость сетки для пояса, грн/м);
readln (grefabrblackfabr);
Ea2: = yelor * 2,1;
Fd2: = netfabr * 0,3;
summ2: = Ea2 Fd2;
writeln (summ2 - необходимая сумма, грн);

end. 

program yellow&orange_dress1;
var yelor, netfabr, Ea2Fd2summ2 : real;
begin
clrscr;
writeln (please, write some information, where yelor - costs of yellow fabric, $, netfabr - costs of net-fabric, $);
readln (grefabrblackfabr);
Ea2: = yelor * 2,1;
Fd2: = netfabr * 0,3;
summ2: = Ea2 Fd2;
writeln (summ2 - summa for paying, $);

end. 

Рассчет выполнен для платья.
B = 2,1 м - количество основной ткани, в данном случае в желто-оранжевые цветы.
D = 0,3 м - количество сетки для пояса.
По желанию, вместо предложенного варианта тканей, можно выбирать любые.

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

За спробу мене сварити  точно ніхто не буде. 
а якщо і буде - повернуся до вишивки)))) 

Сторінки:
1
3
4
попередня
наступна