@alyspring
Подписаться
ALYSPRING
OFFLINE
Это просто Вьюи блог
Дата регистрации: 29 октября 2010 года
Персональный блог ALYSPRING — Это просто Вьюи блог
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
(via loc-dog )
(via loc-dog )
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
fuckrenegade:
01.12 моему блогу исполнился год и один месяц. дата такая потому, что я немного перепутала месяцы. но это не важно. в честь этого, вот мой список Follow Forever. не обижайтесь те, кого здесь нет. я люблю все блоги, за которыми слежу. но эти мне нравятся больше всего. спавсибо вам за то, что вы есть. так же, спасибо моим следящим. без вас мой блог ничего не значил бы. не буду расписывать про каждый блог. просто знайте, я люблю вас.
deeply-inside:
Что следует сделать вместе с вашим ребенком, чтобы счастливые воспоминания детства остались на всю жизнь.
Пускать солнечные зайчики.
Вместе скатиться с высокой ледяной горы.
Смотреть на звезды.
Заштриховывать монетки и листья, спрятанные под бумагой.
Приготовить жженый сахар в ложке.
Вырезать гирлянды бумажных человечков.
Показывать театр теней. Пускать блинчики на воде.
Рисовать мультфильм на полях тетради.
Устроить жилище в коробке от холодильника.
Делать извержение вулкана из лимонной кислоты и соды.
Писать под копирку.
Сделать брызгалки из бутылок и устроить сражение.
Слушать пение птиц.
Построить шалаш.
Трясти ветку дерева, когда ребенок стоит под ней и устраивать листопад (снегопад, дождик).
Наблюдать восход и закат.
Любоваться лунной дорожкой.
Смотреть на облака и придумывать, на что они похожи.
Светить в темноте фонариком.
Сходить на рыбалку.
Оставлять отпечатки тела на снегу.
Кормить птиц.
Строить дом из мебели.
Сидеть у костра. Жарить хлеб на прутике.
Запускать воздушного змея.
Крутить ребенка за руки.
Сидеть в темноте, при свечах.
Прыгнуть в центр лужи.
Устроить бурю в стакане воды.
Выдавливать формочками печенье.
Играть в циклопов.
Петь хором.
Починить любимую игрушку.
Пускать мыльные пузыри.
Наряжать елку.
Свистеть через стручок акации.
Залезть на дерево.
Сказка никогда не должна заканчиваться, даже если детство ушло, а мы все взрослые, и мир другой, и небо иное, и ничего нельзя вернуть…
deeply-inside:
« Если вы достаточно безумны, чтобы заниматься делом, которое любите - вы обречены прожить жизнь, полную смысла. »
© Герберт Келлехер
