@alyspring
ALYSPRING
OFFLINE

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

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

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

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.

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.

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.

{}//___________________________________

<HTML>

<HEAD>

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

</HEAD>

<frameset rows="27%, *" >

<frame src="menu2.htm">

<frame src="start.htm" name="content">

</frameset>

</HTML>

Фрейм верху

____________________________________________

<HTML>

<body bgcolor="#FFCC66" text="brown">

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

<font size="7">

<P ALIGN=center>

<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 cols="25%, *" >

<frame src="menu1.htm">

<frame src="start.htm" name="content">

</frameset>

</frameset>

</HTML>

Фрейм с боку

__________________________________________________

<HTML>

<body bgcolor="#FFCC66" text="brown">

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

<font size="7">

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

<body bgcolor="#FFCC66" text="brown">

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

<font size="7">

<P ALIGN=center>

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

<BODY BGCOLOR=#BC8F8F>

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

<MARQUEE style=color:#FFD700> <BIG>

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

</MARQUEE>

</P>

</BODY>

</HTML>

Картинка,

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

___________________________________________________________________

­­­­­­<HTML>

<HEAD>

<TITLE></TITLE>

</HEAD>

<BODY BGCOLOR=”Tan”>

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

<font color="white">|</font>

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

<H2><A HREF="#TOP"> <H3 ALIGN=CENTER><font color="yellow">Униз </H3></A></H2>

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

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

<h2 ALIGN=CENTER>з 1.02.2003 по 9.02.2003</H2></I>

<br><br left>

<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 = “і”>ii. Хліб</OL ></UL>

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

<UL><OL TYPE = “і”>iv. Чай</OL ></UL>

<p>

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

</BODY>

</HTML>

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

­­­­­­­­­­­­­­ Меню –список

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

<HTML>

<HEAD>

<TITLE> </TITLE>

</HEAD>

<BODY BGCOLOR="orange">

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

<font color="white">|</font>

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

<CENTER><TABLE BORDER =3 BGCOLOR=#63B8FF bordercolor=#00688B>

<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><TR> <TH><font color=#25689> 1 </font></TH>

<TH> Рос.мова </TH>

<TH ALIGN=”center”> Англ.мова</TH>

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

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

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

</TR>

<TR> <TH ALIGN=”center”><font color=#25689> 2 </font></TH>

<TH ALIGN=”center”> Рос.мова </TH>

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

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

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

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

</TR>

</TABLE>

</CENTER> <P>

</BODY>

</HTML>

fuckrenegade:

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

Paramore — Hallelujah

loc-dog :

nastya-more :

vasily :

katrya-yumiyum :

lakamilla :

5 утра.

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

fuckrenegade:

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

deeply-inside:

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

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

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

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

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

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

deeply-inside:

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

©  Герберт Келлехер

ALYSPRING

Самые популярные посты

2

deeply-inside : « Если вы достаточно безумны, чтобы заниматься делом, которое любите - вы обречены прожить жизнь, полн...

2

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

2

fuckrenegade : Paramore | Alternative Press

2

fuckrenegade : 01.12 моему блогу исполнился год и один месяц. дата такая потому, что я немного перепутала месяцы. но это не важ...

2

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

2

сны запоминают людей, которые нам дороги.а потом сня...

loc-dog : (via californiaaaa )