Фабрика звезд 7
www.news29.ru/index.php?newsid=18

фся правда о фабрике звезд 7 www.news29.ru/index.php?newsid=18

Скинь на мыло сайты о Dr.dre (меня прет его творчество) Заранее благодарен,а сайт у тебя ништяк

sdfsdsdfsdfsfd

unit Unit1;

interface

uses
Windows, Messages, SysUtils,Math, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f1,f2:textfile;
x,p:real; y:array[1..100]of real;
xx:array[1..100]of real;
kol,i:integer; fname1,fname2:string;

implementation

{$R *.dfm}
procedure rez;
begin
xx[1]:=x;
for i:=1 to kol do
begin
y[i]:=(1/(x*x+x));//*((power(x,1/3)-exp(-x))*sin(x));
xx[i+1]:=xx[i]+p;
end;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
fname1:=''E:''+edit1.Text;
fname2:=''E:''+edit2.Text;
assignFile(f1,fname1);
reset(f1);
read(f1,x,p,kol);
closefile(f1);
rez;
assignfile(f2,fname2);
rewrite(f2);
writeln(f2,''Результаты решения уравнения: '');
writeln(f2);
writeln(f2,'' +-------+-------+-------+'');
writeln(f2,'' ¦ № ¦'','' X ¦'','' Y ¦ '');
writeln(f2,'' +-------+-------+-------+'');
for i:=1 to kol do
begin
writeln(f2,i:2,x:2:0,y[i]:4:0);
x:=x+p;
writeln(f2,'' +------+------+------+'');
closefile(f2);
messageDlg(''Данные записанны в файл ''+ fname2,mtInformation,[mbOK],0);
end;

end;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b,z,c:real;
begin
writeln(''Vvedute z'');
readln(z);
a:=arctan(sqrt(8*sqr(sin(z/2))));
b:=5-4*cos(z);
c:=exp(a+b);
writeln("c='',c:0:3);
end.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;

type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
Button1: TButton;
Button2: TButton;
Edit3: TEdit;
Label3: TLabel;
Label4: TLabel;
New1: TMenuItem;
Exit1: TMenuItem;
N4: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
Var n,k:real;
a1,a2,a3,a4:integer;
begin
x:=StrtoFoat(edit1.Text);
k:=StrtoFoat(edit2.Text);
n:=0;
if (n>0)then
begin
a1:=sqrt(abs(x))+1;
a2:=1;
for k:=1 to n do
begin
if (x<0)then
writeln(''Вы ненправильно ввели x'');
readln();
end;
a2:=a2*((k*ln(x)+3/7)/(sqrt(exp(x))));
end;
a3:=a1-a2;
Label3,Caption:=''Ответ:''+FloattoStrF(A3,ffGeneral,3,3);
end
else
showmessage(''Введено неправельное n'')
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

program Den_Dyo;

{$APPTYPE CONSOLE}

uses
SysUtils;

label er1;
var
x,a,b,J: real;
begin
er1:
writeln(''Please input x:'');
readln(x);
if (x=1) or (x=-1)
then
begin
writeln(''X does not match input another X!'');
goto er1;
end
else
begin
a:=sin(2*arctan(x));
b:=(1-sqr(x))/(1+sqr(x));
J:=sqr(ln(abs(a/b)));
end;
writeln(''J='', J:3:3);
readln;
end.

Привет всем!!!!

А теперь хочу сказать тем "девчонкам", которые недавно оставили здесь свой наитупейший мессадж КЛАЛ Я НА ВАС С БОЛЬШИМ ПРИБОРОМ!!!!!!!!!!!!!!!
ВАШ КОРОЛЬ ДИНАМИТА!!!!!!!!!!!

Где я могу купить диск "Жестокие игры 1-2"?

Прикольный сайт!Загляните и ко мне!У меня лучший сайт
о R&B, там куча инфо!

Хмм.. ну дарова дэн... буду говорить чесно и открыто.
Дизайна нет вообще html незнаеш вообще пользуешся шаблонами как лузер.. это не серьезно ... ну правда если тебе нравится то флаг в руки

В первый раз у Вас в гостях. Посоветуйте, где в Москве можно оптом купить видео оптом?

Еще раз поздравляю тебя с наступающим НОВЫМ ГОДОМ!