



ALYSPRING

15 подписчиков 10 подписок

@alyspring

15 подписчиков 10 подписок

ALYSPRING

OFFLINE

Это просто Вьюи блог

Дата регистрации: 29 октября 2010 года

Персональный блог ALYSPRING — Это просто Вьюи блог

18 декабря 2011 года в18.12.2011 22:01  13  0  Личное

2-B,1-z

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Type Tr = class

a, b, c:real;

Constructor create(a1, a2, a3:real);

function prav:boolean;

function pl:real;

end;

mas= array of Tr;

var

Form1: TForm1;

implementation

Constructor Tr.create(a1, a2, a3:real);

begin

a:=a1;

b:=a2;

c:=a3;

end;

function Tr.prav:boolean;

begin

prav:=false;

if (a=b) and (b=c)

then prav:=true;

end;

function Tr.pl:real;

var p:real;

begin

p:=(a+b+c) /2;

result:=sqrt(p*(p-a) *(p-b) *(p-c));

end;

{$R *.dfm}

var aa:mas; f, f1:textfile; n, l, i:integer;bb:array of boolean; k1, k2, k3:real;

cc:array of real; min:real;

procedure TForm1.Button1Click(Sender: TObject);

begin

assignfile(f, 'in.txt');

reset(f);

n:=0;

While not eof(f) do

begin

inc(n);

setlength(aa, n);

readln(f, k1, k2, k3);

aa[n-1]:=Tr.create(k1, k2, k3);

end;

closefile(f);

l:=0;

for i:=0 to n-1 do

if aa[i].prav=true

then inc(l);

min:=aa[0].pl;

for i:= 1 to n-1 do

if aa[i].pl<min

then min:=aa[i].pl;

Label3.Caption:=inttostr(l);

Label4.Caption:=floattostr(min);

end;

end.

18 декабря 2011 года в18.12.2011 21:56  15  0  Личное

1-B,1-z

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

procedure Button1Click(Sender: TObject);

end;

type TFigyra = class

a, b:real;

constructor create(x, y:real);

function sq(x1, y1:real): boolean;

function pl(x2, y2:real): real;

end;

mass=array of TFigyra;

var

Form1: TForm1;

implementation

{$R *.dfm}

constructor TFigyra.create(x, y:real);

begin

a:=x;

b:=y;

end;

function TFigyra.sq(x1, y1:real): boolean;

begin

sq:=false;

if x1= y1

then sq:=true;

end;

function TFigyra.pl(x2, y2:real): real;

begin

pl:= x2*y2;

end;

procedure TForm1.Button1Click(Sender: TObject);

var f:textfile; n, k, i:integer;

c1, c2, max:real; aa:mass; bb:array of boolean;

begin

assignfile(f, 'in.txt');

reset(f);

n:=0;

while not eof(f) do

begin

n:=n+1;

setlength(aa, n);

readln(f, c1, c2);

aa[n-1]:= TFigyra.create(c1, c2);

end;

closefile(f);

setlength(bb, n);

k:=0;

for i:=0 to n-1 do

begin

bb[i]:=aa[i].sq(aa[i].a, aa[i].b);

end;

for i:=0 to n-1 do

if bb[i]= true

then inc(k);

edit1.text:=floattostr(k);

max:=aa[0].pl(aa[0].a, aa[0].b);

for i:=2 to n-1 do

if aa[i].pl(aa[0].a, aa[0].b) > max

then max:= aa[i].pl(aa[0].a, aa[0].b);

edit2.Text:= floattostr(max);

end;

end.

18 декабря 2011 года в18.12.2011 21:49  11  0  Личное

1-B,2-z

1-B,1-z

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

end;

type Tst= class

pr, nm, cl:string;

o1, o2, o3:integer;

constructor create(a, b, c:string;d, e, l:integer);

function av(v1, v2, v3:integer): real;

end;

mass=array of Tst;

var

Form1: TForm1;

implementation

{$R *.dfm}

constructor Tst.create(a, b, c:string;d, e, l:integer);

begin

pr:=a;

nm:=b;

cl:=c;

o1:=d;

o2:=e;

o3:=l;

end;

function Tst.av (v1, v2, v3:integer): real;

begin

av:= (v1+v2+v3) /3;

end;

procedure TForm1.Button1Click(Sender: TObject);

var f:textfile; n, i, oo1, oo2, oo3:integer;

aa:mass; bb:array of real; pr1, nm1, cl1:string;

sum1, sum2:real;

begin

assignfile(f, 'input.txt');

reset(f);

n:=0;

while not eof(f) do

begin

n:=n+1;

setlength(aa, n);

readln(f, pr1);

readln(f, nm1);

readln(f, cl1);

readln(f, oo1, oo2, oo3);

aa[n-1]:=tst.create(pr1, nm1, cl1, oo1, oo2, oo3);

end;

closefile(f);

for i:= 0 to n-1 do

begin

if aa[i].cl='11-À'

then sum1:=sum1+aa[i].av(aa[i].o1, aa[i].o2, aa[i].o3); ;

if aa[i].cl='11-Á'

then sum2:=sum2+aa[i].av(aa[i].o1, aa[i].o2, aa[i].o3);

end;

if sum1> sum2

then edit1.Text:= '11-À'

else edit1.Text:='11-Á';

end;

end.

18 декабря 2011 года в18.12.2011 14:45  14  0  Личное

{}//___________________________________

<HTML>

<HEAD>

<Title>Головна</Title>

</HEAD>

</frameset>

</HTML>

Фрейм верху

____________________________________________

<HTML>

<font size="10">Мапа сайту</font>

<A href="my1.htm" target="content">Сторінка1</A>

<A href="my2.htm" target="content">Сторінка2</A>

<A href="my3.htm" target="content">Сторінка3</A>

</p>

</font>

</body>

</HTML>

Карта сверху + посылания на стр

____________________________________

<HTML>

<HEAD>

<Title>Головна</Title>

</HEAD>

</frameset>

</HTML>

Фрейм с боку

__________________________________________________

<HTML>

<font size="10">Мапа сайту</font>

<P><A href="my1.htm" target="content">Сторінка1</A></P>

<P><A href="my2.htm" target="content">Сторінка2</A></P>

<P><A href="my3.htm" target="content">Сторінка3</A></P>

</font>

</body>

</HTML>//

Карта с боку + посылания на стр

_________________________________________________________________________

<HTML>

<font size="10">Мапа сайту</font>

<A href="my1.htm" target="content">Сторінка1</A>

<A href="my2.htm" target="content">Сторінка2</A>

<A href="my3.htm" target="content">Сторінка3</A>

</p>

</font>

</body>

</HTML>

Карта сверху + посылания на стр

<HTML>

<HEAD>

</HEAD>

<h1 ALIGN=CENTER><font color=#B03060>Ми </font> раді вітати Вас на сторінках нашого сайту!!!<font color=V></font></H1>

(<A HREF="my3.htm">посилання на ыншу стр<IMG SRC="The-Happiness.JPG" ALT="фотографія" WIDTH=300 HEIGHT=300 BORDER="25" HSPACE="200" VSPACE="50"></IMG>

<h2>Посміхаємося!</h2>

</MARQUEE>

</P>

</BODY>

</HTML>

Картинка,

бегущая строка

___________________________________________________________________

<HTML>

<HEAD>

</HEAD>

<A HREF="my1.htm"> <H1 ALIGN=CENTER><font color="yellow">Сторiнка 1 </A>

<A HREF="my3.htm"><font color="yellow"> Сторiнка 3 </font></H1></A>

<I><H1 ALIGN=CENTER>Меню ресторану

<p>“Пантагрюель”</H1>

<h3><font color="red"><UL OL TYPE = “І”><LI><B>I.Понеділок</UL></LI></font></H3>

<p>

<font color="violet"><I><OL TYPE = “1”><I>1.Сніданок</I></OL TYPE = “1”></I></font>

<UL><OL TYPE = “і”>i.Каша манна</OL ></UL>

<UL><OL TYPE = “і”>iii. Масло</OL ></UL>

<p>

<A HREF="#" NAME=TOP> <H3 ALIGN=CENTER><font color="yellow">Угору </A>

</BODY>

</HTML>

Посилання вниз ы вгору

Меню –список

Стрынка 1 –посилання

<HTML>

<HEAD>

</HEAD>

<A HREF="my1.htm"> <H1 ALIGN=CENTER><font color="yellow">Сторiнка 1 </A>

<A HREF="my2.htm"><font color="yellow"> Сторiнка 2 </font></H1></A>

<p ALIGN=CENTER> <font color="white"><TC> <I> <H1> <font color=#0000EE>Розклад уроків</font></H1></I></TC></font> </p>

<tr>

<TH>

<TH><font color="red"> Понеділок </font></TH>

<TH><font color="white"> Вівторок</font></TH>

<TH><font color="violet"> Середа </font></TH>

<TH><font color="yellow"> Четвер </font></TH>

<TH><font color="blue"> Пятниця </font></TH>

</TR>

<TH ALIGN=”center”> Алгебра </TH>

<TH ALIGN=”center”> Геометрія </TH>

<TH ALIGN=”center”> Фізика </TH>

</TR>

<TH ALIGN=”center”> Інформатика </TH>

<TH ALIGN=”center”> Алгебра </TH>

<TH ALIGN=”center”> Фізика </TH>

</TR>

</TABLE>

</CENTER> <P>

</BODY>

</HTML>

10 декабря 2011 года в10.12.2011 15:41  12  0  Личное

вокруг слишком много лишних

(via loc-dog )

10 декабря 2011 года в10.12.2011 15:39  13  0  Личное

fuckrenegade:

Как-нибудь все начинает падать прямо на место
Если бы мы только могли сделать это быстрее с каждым днем
Если бы только время летело, как голубь
Мы должны сделать это быстрее чем я успею полюбить

Paramore — Hallelujah

07 декабря 2011 года в07.12.2011 22:04  12  0  Личное

loc-dog :

nastya-more :

vasily :

katrya-yumiyum :

lakamilla :

5 утра.

В 5 утра люди решают уехать из клуба или отключить компьютер, погладить спящего рядом кота или покурить, позавтракать или пойти спать, выехать в аэропорт или написать смс любимому, включить фильм или заказать еще 100 грамм… В 5 утра люди делают выбор.

07 декабря 2011 года в07.12.2011 22:03  11  0  Личное

пойти к первому или ко второму уроку. вот в чем вопрос

(via loc-dog )

07 декабря 2011 года в07.12.2011 22:01  12  0  Личное

спросите у папы сколько вам лет,в каком вы классе и засекайте время.

(via loc-dog )

05 декабря 2011 года в05.12.2011 19:57  15  0  Личное

fuckrenegade:

You escape like a runaway train
Off the tracks and down again
My hearts beating like a steam boat tugging

Paramore - In The Mourning

04 декабря 2011 года в04.12.2011 23:38  15  0  Личное

fuckrenegade:

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

04 декабря 2011 года в04.12.2011 23:36  15  0  Личное

deeply-inside:

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

Пускать солнечные зайчики.
Вместе скатиться с высокой ледяной горы.
Смотреть на звезды.
Заштриховывать монетки и листья, спрятанные под бумагой.
Приготовить жженый сахар в ложке.
Вырезать гирлянды бумажных человечков.
Показывать театр теней. Пускать блинчики на воде.
Рисовать мультфильм на полях тетради.
Устроить жилище в коробке от холодильника.

Делать извержение вулкана из лимонной кислоты и соды.
Писать под копирку.
Сделать брызгалки из бутылок и устроить сражение.
Слушать пение птиц.
Построить шалаш.
Трясти ветку дерева, когда ребенок стоит под ней и устраивать листопад (снегопад, дождик).
Наблюдать восход и закат.
Любоваться лунной дорожкой.

Смотреть на облака и придумывать, на что они похожи.
Светить в темноте фонариком.
Сходить на рыбалку.
Оставлять отпечатки тела на снегу.
Кормить птиц.
Строить дом из мебели.
Сидеть у костра. Жарить хлеб на прутике.
Запускать воздушного змея.
Крутить ребенка за руки.
Сидеть в темноте, при свечах.

Прыгнуть в центр лужи.
Устроить бурю в стакане воды.
Выдавливать формочками печенье.
Играть в циклопов.
Петь хором.
Починить любимую игрушку.
Пускать мыльные пузыри.
Наряжать елку.
Свистеть через стручок акации.
Залезть на дерево.

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