Казахстанские технические форумы
Программное обеспечение => Языки программирования => Тема начата: b2 от 17 Апреля 2006, 00:12:06
-
Ищу людей которым нравится паскаль, людей которые пишут или учатся писать на паскале, в том числе и в дельфи.
Собственно все.
Если что пишите сюда
b2@topmail.kz
буду рад пообщаться с единомышленниками.
-
Я и не поклонник Delphi ,но на нем тоже делают выкрутасы...............
-
Мне очень нравится делфи .. ,он очень подходит для начинающих ,когда на нем делал даже вирусы...
-
Помогите пожалуйста с квадратным уравнением на DELPHI!/
Выложите пожалуйста исходник: ax2(квадрат)+bx+c=0 ???
-
Помогите пожалуйста с квадратным уравнением на DELPHI!/
Выложите пожалуйста исходник: ax2(квадрат)+bx+c=0 ???
Всем СПС!.Я его сделал!.Вот Код Кому будет интересно!!!
unit SqRoot_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Label5: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
// решает квадратное уравнение
procedure SqRoot( a,b,c : real; var x1, x2 : real; var ok : boolean);
{ a,b,c - коэффициенты уравнения
x1,x2 - корни уравнения
ok = True - решение есть
ok = False - решения нет }
var
d : real; // дискриминант
begin
d:= Sqr( b ) - 4*a*c;
if d < 0
then
ok := False // уравнение не имеет решения
else
begin
ok := True;
x1 := (-b + Sqrt(d)) / (2*a);
x2 := ( b + Sqrt(d)) / (2*a);
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
k1,k2: real; // корни уравнения
rez: boolean; // True - решение есть, False - решения нет
mes: string; // сообщение
begin
SqRoot(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text), k1,k2,rez);
if rez then
mes := 'Корни уравнения' + #13 +
'x1='+FloatToStrF(k1,ffGeneral,4,2)+#13+
'x2='+FloatToStrF(k2,ffGeneral,4,2)+#13
else
mes := 'Уравнение не имеет решения';
label5.Caption := mes;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
winhelp(Form1.Handle,'sqroot.hlp',HELP_CONTEXT,1);
end;
end.
Пользуйтесь на здоровье!!!
-
Мне тоже нравится Delphi, но заодно я хотел бы задать вопрос бывалым - как с помощью кода узнать общий объём видеопамяти на компьютере, а? Ну ОЧЕНЬ нужно! ???
-
Приветствую! Дельфи хорошая программа, но я ее не обожаю... Так программирую...
-------------------------------------------------------------------------------------------------
Pascal- Rulez!!!!!!!!!!!!!
(;?)
-
Мне тоже нравится Delphi, но заодно я хотел бы задать вопрос бывалым - как с помощью кода узнать общий объём видеопамяти на компьютере, а? Ну ОЧЕНЬ нужно! ???
У тебя какая версия делфи???
-
Мужики! На Python пишите, а то бывает нужна какая-либо прога на линух, а её нету...
PS: сорри за оффтоп, сразу не прочёл название топика...
-
Мужики! На Python пишите, а то бывает нужна какая-либо прога на линух, а её нету...
PS: сорри за оффтоп, сразу не прочёл название топика...
Дельфи для Linux 2007= Kylix;
Питон? С++ и точка...
-
Дельфи для Linux 2007= Kylix;
Kylix, Kylix (13/) ааа, это тот. Не ужели кто про него помнит :) Даром не нужен.
-
что то и вправду informatik устаревшие языки предлагает: паскаль, kylix...
Питон? С++ и точка...
А на счёт c++. это да... согласен..
-
Питон? С++ и точка...
Вот блин, а мужики то не знают (http://python.com.ua/forum/) :)
-
Дельфи для Linux 2007= Kylix;
Kylix, Kylix (13/) ааа, это тот. Не ужели кто про него помнит :) Даром не нужен.
А может и дельфи не нужна:-)
-
А может и дельфи не нужна:-)
Ну ты же сам говоришь - "С++ и точка" (,.)
А если серьезно, Kylix давно уже не обновляется и не поддерживается Borland'ом (кстати Kylix совсем не борландовская разработка а создана вроде кем то из "наших"), да и насколько я слышал реализовано там все через wine, лучше уж теже виндовские проги запускать через wine, по крайней мере он то уж чуть ли не каждую неделю обновляется.
-
Фак по делфи
Большой фак (delphi-bigfaq.rar)
http://depositfiles.com/files/4108140
Большой фак (delphi-faq-1.0.rar)
http://depositfiles.com/files/4108150
WIN API (WIN API.rar)
http://depositfiles.com/files/4108153
-
Приветствую!
Прям как в рекламе(перефразировано)... "Не любишь Дельфи? Ты просто не умеешь в ней программировать"
Замечание пользователю informatik. No offtop please!!!
-
Здрасте всем! Слышал что на Delphi можно писать драйвера. Подскажите, где про это можно почитать по подробнее. Кстати есть интересная ссылка: www.delphiworld.narod.ru .Там очень много исходников.
-
Приглашаю всех на тематический форум программистов Казахстана http://lix.kz
-
Слышал что на Delphi можно писать драйвера. Подскажите, где про это можно почитать по подробнее.
Мне кажется, его уже никто не использует в прикладных целях... Так для баловства, может только.