Прочитайте, как обстоят дела у сайта Дневников и как вы можете помочь!
×
  • ↓
  • ↑
  • ⇑
 
Записи без темы (список заголовков)
01:55 

Все, что живет в нашем воображении, может стать реальностью.
const
nn=100;
k=pi/180;

var

y,x:array[1..3] of integer;
xp,yp:array[1..3] of real;
time,dx, dy,R,n:integer;
m,px,py:real;
kM,T:real;
xmax,ymax:integer;
x0,y0, i,xc,yc,A,p:integer;
toc:array[1..3] of Tpoint;



procedure RIS1;

Begin

toc[1]:=point(x[1],y[1]);
toc[2]:=point(x[2],y[2]);
toc[3]:=point(x[3],y[3]);
{xc:=x[1]+round(A/2);
yc:=y[1]-Round(sin(pi/3)*A*1/3); }

With Form2.Canvas do
begin
pen.color:=clBlack;
Brush.Color:=clred;

Brush.Style:=Bssolid;
polygon(toc);

moveTo(x[1],y[1]);
lineTo(xc,yc);
moveTo(x[2],y[2]);
lineTo(xc,yc);
moveTo(x[3],y[3]);
lineTo(xc,yc);
end;
End;

procedure RIS2;

Begin

With Form2.Canvas do
begin
pen.color:=clbtnface;
Brush.Color:=clbtnface;

Brush.Style:=Bssolid;
polygon(toc);

moveTo(x[1],y[1]);
lineTo(xc,yc);
moveTo(x[2],y[2]);
lineTo(xc,yc);
moveTo(x[3],y[3]);
lineTo(xc,yc);
end;
End;

procedure poborot;
begin
for i:=1 to 3 do
begin
p:=x[i];
px:=(xc+(x[i]-xc)*cos(t*k)+(y[i]-yc)*sin(t*k));
py:=(yc-(x[i]-xc)*sin(t*k)+(y[i]-yc)*cos(t*k));
x[i]:=round(px);
y[i]:=round(py);
end;

end;

procedure mash;
begin
a:=round(a*m);
for i:=1 to 3 do
begin
x[i]:=round(m*x[i]+xc*(1-m));
y[i]:=round(m*y[i]+yc*(1-m));
end;
end;

procedure pere;
begin
for i:=1 to 3 do
x[i]:=x[i]+dx;
xc:=xc+dx;

end;
procedure TForm2.Button1Click(Sender: TObject); //perenos
begin
pere;
ris2;
ris1;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
ris2;
poborot;

ris1 ;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
ris2;
Mash;
ris1;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
ris1;
end;

procedure TForm2.FormCreate(Sender: TObject);
Begin
Timer1.Enabled:=false;
A:=50;
x0:=300;
y0:=200;
dx:=5;
t:=3;
m:=1.02;
x[1]:=x0;
x[2]:=x0+a;
x[3]:=round(x0+a/2);

y[1]:=y0;
y[2]:=y0;
y[3]:=y0-round(sin(pi/3)*A);


toc[1]:=point(x[1],y[1]);
toc[2]:=point(x[2],y[2]);
toc[3]:=point(x[3],y[3]);
xc:=x[1]+round(A/2);
yc:=y[1]-Round(sin(pi/3)*A*1/3);



end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
ris2;
mash;
poborot;
pere;
ris1;
end;

end.

01:47 

Все, что живет в нашем воображении, может стать реальностью.
const nn=100;
cf=clwhite;

var
Form1: TForm1;
x,y:array[1..nn] of integer;
t:real;
dx,dy:integer;
xc,yc:real;//КООРДИНАТЫ ЦЕНТРА МАСШТАБИРОВАНИЯ
kx,ky:real;
implementation

procedure ris();

begin

with form1.canvas do
begin
pen.Color:=clgreen;
brush.Color:=clgreen;
brush.style:=bssolid;
ellipse(x[1],y[1],x[2],y[2]);

pen.Color:=clred;
brush.color:=clred;
brush.style:=bssolid;
pie(x[1],y[1],x[2],y[2],x[3],y[3],x[4],y[4]);

pen.Color:=clred;
brush.color:=clred;
brush.style:=bssolid;
pie(x[1],y[1],x[2],y[2],x[5],y[5],x[6],y[6]);
end;
end;



procedure ris2();

begin

with form1.Canvas do
begin
pen.Color:=clwhite;
brush.Color:=clwhite;
brush.style:=bssolid;
ellipse(x[1],y[1],x[2],y[2]);

pen.Color:=clwhite;
brush.color:=clwhite;
brush.style:=bssolid;
pie(x[1],y[1],x[2],y[2],x[3],y[3],x[4],y[4]);

pen.Color:=clwhite;
brush.color:=clwhite;
brush.style:=bssolid;
pie(x[1],y[1],x[2],y[2],x[5],y[5],x[6],y[6]);
end;
end;


procedure perenos(); //МЕНЯЕТ НАПРАВЛЕНИЕ ПО ДИАГОНАЛИ
var i,j:integer;
k: Integer;
begin

for I := 1 to 6 do
begin
x[i]:=x[i]+dx;
y[i]:=y[i]+dy;
{if x[i]>300 then
begin
for j := 1 to 2 do
begin
y[j]:=y[j]-dy;
{ y[j]:=y[j]-dy;
end;
if x[i]>600 then
begin
for k := 1 to 2 do
y[k]:=y[k]+dy;
end;

end;}
end;
end;
procedure perenos2(); //ДВИЖЕНИЕ ПО СИНУСОИДЕ
var i:integer;

begin
t:=t+dy;
for i :=1 to nn do
begin
x[i]:=x[i]+dx;
y[i]:= y[i]+round(10*sin(t*pi/180));
end;
end;

procedure mashtab();
var
i:integer;

begin
xc:=(x[1]+x[2])/2;
yc:=(y[1]+y[2])/2;
for i := 1 to nn do
begin
x[i]:=round(kx*x[i]+xc*(1-kx));
y[i]:=round(ky*y[i]+yc*(1-ky));

if (xc>100) and (xc<150) then
begin
x[i]:=round((1/kx)*x[i]+xc*(1-(1/kx)));
y[i]:=round((1/ky)*y[i]+yc*(1-(1/ky)));
end;

end;
end;

procedure povorot(); //ПОВОРОТ ВОКРУГ ПРОИЗВОЛЬНОЙ ТОЧКИ
var
i:integer;
tp:integer;
begin
xc:=300;//координаты центра вращения
yc:=300;
for I := 1 to 2 do
begin
tp:=x[i];

x[i]:=round(xc+(x[i]-xc)*cos(2*pi/180)+(y[i]-yc)*sin(2*pi/180));

y[i]:=round(yc-(tp-xc)*sin(2*pi/180)+(y[i]-yc)*cos(2*pi/180));


end;

end;

procedure povorot2();
var i:integer;
tp:integer;
begin
xc:=(x[1]+x[2])/2;
yc:=(y[1]+y[2])/2;
for i := 3 to 6 do
begin
tp:=x[i];

x[i]:=round(xc+(x[i]-xc)*cos(2*pi/180)+(y[i]-yc)*sin(2*pi/180));

y[i]:=round(yc-(tp-xc)*sin(2*pi/180)+(y[i]-yc)*cos(2*pi/180));
end;


end;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ris();
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
dx:=strtoint(edit1.Text);
dy:=strtoint(edit2.Text);
kx:=strtofloat(edit3.Text);
ky:=strtofloat(edit4.Text);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
perenos2();
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
mashtab();
end;

procedure TForm1.FormCreate(Sender: TObject); //ОЧЕНЬ ВАЖНАЯ ПРОЦЕДУРА!!!!
begin
x[1]:=100;//КООРДИНАТЫ НАДО ЗАПИСЫВАТЬ ТОЛЬКО ЗДЕСЬ В ФОРМ КРЕЭЙТ1!!!!!!!!!
y[1]:=100;
x[2]:=200;
y[2]:=200;

x[3]:=200;y[3]:=150;
x[4]:=150;y[4]:=100;


x[5]:=100;y[5]:=150;
x[6]:=150;y[6]:=200;

t:=0;
timer1.Enabled:=false; //!!!!
timer1.Interval:=40;//!!!!!!!
edit1.Text:='2';
edit2.Text:='2';
edit3.Text:='1,04';
edit4.Text:='1,04';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with form1.Canvas do
begin
pen.Color:=cf;
ris2();
{mashtab();}
perenos2();
{povorot(); }
povorot2();
ris();
end;
end;
end.

00:01 

Все, что живет в нашем воображении, может стать реальностью.
tz=record
N:byte;
Gr:string[8];
Fam:string[15];
Age:byte;
end;
tF=file of tz;
tMas=array[1..nm] of tz;
var
F1,F2,F3:tF;
z:tz;
S:string;
Mas:tMas=(
(N:1;Gr:'СМ8-21';Fam:'Иванов';Age:18;),
(N:2;Gr:'СМ8-21';Fam:'Кутузов';Age:23;),
(N:3;Gr:'СМ8-21';Fam:'Багратион';Age:20;),
(N:4;Gr:'СМ8-21';Fam:'Барклай';Age:19;),
(N:5;Gr:'ИУ2-12';Fam:'Тормасов';Age:18;),
(N:6;Gr:'ИУ2-12';Fam:'Атанасов';Age:22;),
(N:7;Gr:'ИУ2-12';Fam:'Петров';Age:21),
(N:8;Gr:'ИУ2-12';Fam:'Гайкин';Age:19;)
);
Form1: TForm1;
R:Boolean;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin //Обработчик формы
StringGrid1.ColCount:=4; //Число колонок
StringGrid1.RowCount:=15; //Число строк
//Для выделения:
StringGrid1.FixedRows:=1; //строк под заголовок
StringGrid1.FixedCols:=0; //столбцов под заголовок
StringGrid1.ColWidths[2]:=120; //ширина 2-го столбца
StringGrid1.Width:=300; //ширина всей таблицы
StringGrid1.Cells[0,0]:='Номер';
StringGrid1.Cells[1,0]:='Группа';
StringGrid1.Cells[2,0]:='Фамилия';
StringGrid1.Cells[3,0]:='Возраст';
StringGrid1.Options:=StringGrid1.Options+[goEditing];
end;

procedure TForm1.N2Click(Sender: TObject);
//Обработчик Очистить
var i,j:byte;
begin
for i:=1 to StringGrid1.RowCount do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[j,i]:='';
end;

procedure TForm1.N3Click(Sender: TObject);
begin //Обработчик Выход
Close;
end;

procedure TForm1.N11Click(Sender: TObject);
var i:byte;
begin//Обработчик создать файл 1
AssignFile(F1,'C:\Users\Дарья\Desktop\Шаблон М2\FF1.dat');
Rewrite(F1); //открытие для записи
for i:=1 to nm do
write(F1,mas[i]);
CloseFile(F1);
end;

procedure TForm1.N12Click(Sender: TObject);
var i:byte;
begin//Обработчик открыть файл 1
AssignFile(F1,'C:\Users\Дарья\Desktop\Шаблон М2\FF1.dat');
Reset(F1); //открытие для чтения
i:=0;
while not EOF(F1) do
begin
read(F1,z);
i:=i+1;
StringGrid1.Cells[0,i]:=IntToStr(z.N);
StringGrid1.Cells[1,i]:=z.Gr;
StringGrid1.Cells[2,i]:=z.Fam;
StringGrid1.Cells[3,i]:=IntToStr(z.Age);
end;
CloseFile(F1);
end;

procedure TForm1.N21Click(Sender: TObject);
var i:byte;
begin//Обработчик создать файл 2
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Rewrite(F2); //открытие для записи
for i:=1 to nm do
begin
if mas[i].Age>=20 then
write(F2,mas[i]);
end;
CloseFile(F2);
end;

procedure TForm1.N22Click(Sender: TObject);
var i:byte;
begin//Обработчик открыть файл 2
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Reset(F2); //открытие для чтения
i:=0;
while not EOF(F2) do
begin
read(F2,z);
i:=i+1;
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=z.Gr;
StringGrid1.Cells[2,i]:=z.Fam;
StringGrid1.Cells[3,i]:=IntToStr(z.Age);
end;
CloseFile(F2);
end;

procedure TForm1.N4Click(Sender: TObject);
var
i,j,w,k:byte;
z1,z2:tz;
begin //Обработчик обработки файла
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Reset(F2); //открытие для записи
For i:=0 to FileSize(F2)-1 do
begin
k:=0;
While kZ2.Fam[1] then begin
seek(F2,k);
Z2.N:=k+1;
Z1.N:=k+2;
Write(F2,Z2,Z1);
end;
k:=k+1;
end;
end;
end;

procedure TForm1.N5Click(Sender: TObject);
var
i,j:byte;
begin//Обработчик открытия обработанного файла
AssignFile(F2,'C:\Users\Дарья\Desktop\Шаблон М2\FF2.dat');
Reset(F2); //открытие для чтения
i:=0;
while not EOF(F2) do
begin
read(F2,z);
i:=i+1;
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=z.Gr;
StringGrid1.Cells[2,i]:=z.Fam;
StringGrid1.Cells[3,i]:=IntToStr(z.Age);
end;
CloseFile(F2);
end;

end.

@музыка: Depeche Mode - Dream On

02:24 

Все, что живет в нашем воображении, может стать реальностью.
uses crt;
var
a,m,e,f,h,g,i,q,z,x,t,y,lol:string;
b,c,d,j,k,l,n,o,p,v,w,r,s,u:integer;
begin;
writeln('Хай, чувак, как тебя зовут? ');
readln (m);
if m='джигурда' then writeln ('Джигурде тут не рады!') else writeln('Здарова, ', m);

repeat;

writeln ('Хочешь поменять цвет фона?');
readln (e);
if e='да' then
repeat
writeln ('Какой цвет ты хочешь?');
readln (f);
if f='синий' then textbackground(1) else
if f='красный' then textbackground(4) else
if f='зеленый' then textbackground(2) else writeln ('Ошибка. Такого цвета в базе нет.');


writeln ('Хочешь поменять цвет фона?');
readln (e)
until e='нет';

writeln ('Хочешь поменять цвет текста?');
readln (h);
if h='да' then
repeat
writeln ('Какой цвет ты хочешь?');
readln (i);
if i='коричневый' then textcolor(6) else
if i='желтый' then textcolor(14) else
if i='темно-синий' then textcolor(9)
else writeln ('Ошибка. Такого цвета в базе нет.');
writeln ('Хочешь поменять цвет текста?');
readln (h)
until h='нет';

writeln ('Хочешь отчистить экран?');
readln (g);
if g='да' then clrscr;

writeln ('Хочешь повторить?');
readln (x);
until x='нет';
writeln ('Сыграем?');
readln (a);
while a='да' do
begin
repeat
b:=random(10);
c:=random(10);
writeln ('Первое число равно ', b, ' Второе число равно ', c);
if c=b then writeln ('Ты выйграл!') else writeln ('Не повезло...');
until b=c;
writeln ('Сыграем?');
readln (a);
end;
writeln('Продолжим? ');
readln (q);
if q='да' then
o:=0;
p:=0;
repeat
o:=o+1;
j:=random(10);
k:=random(10);
n:=j+k;
writeln(k, '+', j, '=...');
readln (l);
if l=n then begin writeln('Правильно');
p:=p+1; end
else
writeln('Правильный ответ: ', n);
writeln ('Хочешь повторить?');
readln (z);
until z='нет';
writeln ('Количество примеров ', o);
writeln ('Количество правильных ответов ', p);
writeln ('Попробуешь угадать число, загаданное компьютером? ');
readln (y);
if y='да' then begin
r:=0;
s:=0;
repeat

u:=random(10);
writeln ('Введи число...');
readln (w);
if w=v then begin writeln ('Угадал');
s:=s+1 end else writeln ('Не угадал');
r:=r+1;

writeln ('Загаданное число ', v);
writeln ('Еще раз?');
readln (lol);
until lol='нет';
end;
writeln ('Количество попыток ', r);
writeln ('Количество угаданных чисел ', s);

end.

02:57 

There he is! Howl Jenkins!!!

Все, что живет в нашем воображении, может стать реальностью.
SONG
by John Donne

Go and catch a falling star,
Get with child a mandrake root,
Tell me where all past years are,
Or who cleft the Devil"s foot,
Teach me to hear mermaids singing,
Or to keep off envy"s stinging,
And find
What wind
Serves to advance an honest mind.

If thou beest born to strange sights,
Things invisible to see,
Ride ten thousand days and nights,
Till age snow white hairs on thee,
Thou, when thou return"st, wilt tell me
All strange wonders that befell thee,
And swear
No where
Lives a woman true, and fair.

If thou find"st one, let me know,
Such a pilgrimage were sweet;
Yet do not, I would not go,
Though at next door we might meet;
Though she were true when you met her,
And last till you write your letter,
Yet she
Will be
False, ere I come, to two, or three.


ПЕСНЯ (из Джона Донна)
пер. Елена Халтурина

Ты с небес схвати звезду!
Ведьмин откопай цветок!
Где, скажи, "вчера" найду,
Как копыто черт рассек,
Как внимать русалок пенью,
Не поддаться наважденью,
Кто б завлек
Ветерок
Постоянства на порог!

Если видишь ты с рожденья
Всех насквозь, тогда скорей
В путь! Навстречу приключенью,
На мильон ночей и дней!
Воротишься убеленный,
Все видавший, умудренный,
Чтоб ответить,
Что на свете
Верной красоты не встретить.

Если встретилась такая,
То ты странствовал не зря.
Нет... Надежда то пустая!
Будь хоть в двух шагах она.
Истинно в ней будет все
Пока пишешь мне письмо.
Но покуда
Я прибуду,
Трижды ложным станет чудо.

00:46 

lock Доступ к записи ограничен

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

URL
21:52 

11 серия

Все, что живет в нашем воображении, может стать реальностью.
ммммм)) целая 11 серия)) беру свои слова назад. Дар Кэллен очень ништяковый))

18:24 

Все, что живет в нашем воображении, может стать реальностью.
Я купила тигра. Он такой маленький, рыжий, пузатенький и в полосочку, а еще у него длинный и мягкий хвост. Правда, голова большая, но это, наверное, от того, что умный очень. Будет думать за нас двоих. Я назвала его очень оригинально - Тигра. Вот.:los:

18:55 

lock Доступ к записи ограничен

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

URL
21:29 

Доступ к записи ограничен

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

URL
15:23 

Доступ к записи ограничен

Все, что живет в нашем воображении, может стать реальностью.
Осень.

URL
22:06 

Все, что живет в нашем воображении, может стать реальностью.
Я снова начала рисовать. Я очень люблю это дело, но, боюсь, это желание продлится недолго. Как обычно, вообщем. Я уже нарисовала старую фотку, розу и котэ...шикарного котэ))хд
Старая группа не значит УГ. По больше части это новые группы УГ. Ну не могу я слушать Рианну и Бйонс. Не могу и все)))

@музыка: Tears for Fears - The Devil

17:02 

Емае.

Все, что живет в нашем воображении, может стать реальностью.
Ну что такое. Закинула я свою историю))Хдд
Лень это плохо. Хотя, сегодня я вон поборола ее и все-такие вылезла из долбанной пв. Я вот думаю, чем бы мне заполнить дневник. Пустует бедный.
Ну, если что придумаю, скажу))

17:41 

Тут такое дело...

Все, что живет в нашем воображении, может стать реальностью.
Решила я написать историю. Так сказать, вдохновение накатило. Вообще это, наверное, самый хорошо обдуманный мною проект. Идею появилась у меня лет пять назад. Писать я, наверное, буду неравномерно. Трудно сказать, будет ли много мелких глав, или мало больших. А может, я вообще все кину. Надеюсь обилие супернатурального не испугает тебя, мой дорогой дневник. Ну что же, поехали:

Пролог. Начало.
читать дальше

Глава 1. Первый раунд.
читать дальше
Глава 2. Снег.
читать дальше

Глава 3. Выбор.
читать дальше

20:19 

Это страшное слово - "One Piece"

Все, что живет в нашем воображении, может стать реальностью.
Итак, дамы и господа, я решила прочитать мангу Ван Пис. ВОт так вот. На данный момент вышло 612 глав сего произведения. Удачи мне в моей нелегкой задумке)
299/613
как это было ==>тыц<

20:01 

Все, что живет в нашем воображении, может стать реальностью.
16:15 

Серия №12, или сценаристы вконец чокнулись

Все, что живет в нашем воображении, может стать реальностью.
...Блиааааааа, этаж вообще капец Т______________Т
Этож че за конец, а? Типа, все счастливы?!!! Неееее, так не пойдет!!!!
Клод сдох, Алоиз сдох, Лука сдох, Анна сдохь и Сиэль тоже сдох...в какой-то степени помер, только вот очнулся демоном. Себастьяна жаль ВООБЩЕ НЕПЕРЕДАВАЙМО. Всю жизнь (а демоны бессмертны!!!!) служить какому-то ЧМУ (а я уважаю Сиэля, хорошо все обыграл). А Сиэль, видимо, тоже теперь будет контракты заключать ОМГ.
Вообщем, все счастливы, но я разочарованна!!!!Да.

00:29 

На заметку

Все, что живет в нашем воображении, может стать реальностью.
16:05 

10 серия или Аниме продолжает разрушать мосг

Все, что живет в нашем воображении, может стать реальностью.
10 серия Темного Дворецкого.
Нет, мне не нравится Клод. Сильна-сильна не нравится -_-" Вот он уж точно намекает на яой Сиэлю, хотя это уже не Сиэль, а что-то между Алоисом и ним. Когда Клод поцеловал ногу Сиэля, то я... О_О" %*@!!!!! WTF???!!!!! Зато, когда Сиэль покраснел, вспомнив Себастьяна) То это уже другое))хддд

16:10 

Все, что живет в нашем воображении, может стать реальностью.
Три - для Дивного народа,
Семь - для гномов из Горы,
Девять - людям Нумерона,
И Одно - для Князя Тьмы.
В темном, сумрачном Мордоре,
Чтобы вместе все собрать
И единой черной волей крепко навеки сковать.
В темном, сумрачном Мордоре.


Три для эльфов-разгильдяев,
шибко благородных.
Семь для гномов-скупердяев
в погребах холодных.
Девять - жмурикам отдам
для житья за гробом.
И одно надену сам -
просто так, для стеба.
Три бублика пудрой посыплю, трех эльфов на них подманю.
И жадные лакомки эльфы сейчас же устроят резню.
Семь каменных бубликов гномам, чтоб зубы о них поломали,
А людям - из теста сырого, чтоб тысячу лет их жевали.
Тогда без помех остальное я съем и воссяду на трон...
На все Средиземье готовит сластей кулинар Саурон.

Синее небо *__*

главная