Язык Pascal в среде Delphi

[технарь]

Сегодня уже не помогу - только с работы приполз. Там нужно интернет порыть на предмет использования компонента Chart

[Olga]

Ноут купила новый и поставила Delphi 2009,будудальше учиться на нем,а вот к третьей лабе надо будет вернуться потом,да и калькулятору заодно  00))  *SCRATCH* :D

[Olga]

Delphi 2009 снесла и поставила Delphi XE3 2010,скачала по этой

Извините, Вам не разрешено просматривать этот текст. Пожалуйста, войдите или зарегистрируйтесь.

,качала с торрентов,потому что есть очень хороший учебник Рубанцева,вот щас сижу и изучаю.  :good:

[Olga]

Сделала программу-расчет веса и жира,а хотела еще добавить плотность тела,ан,нет,пока не получается

(открыть/скрыть)

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Panel1: TPanel;
    sbAge: TScrollBar;
    sbRost: TScrollBar;
    lblAge: TLabel;
    lblRost: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lblVes: TLabel;
    sbVes1: TScrollBar;
    lblVes1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    lblZhir: TLabel;
    Label7: TLabel;
    lblPlot: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure sbAgeChange(Sender: TObject);
    procedure sbRostChange(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure sbVes1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Ves:single;
    function Zhir:single;
    procedure Plot;
  end;

var
  Form1: TForm1;
  age,rost,ves1:Integer;
  ves,zhir:single;
  plot:Real;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
age:=sbAge.Position;
rost:=sbRost.Position;
lblVes.Caption:=IntToStr(round(ves));
ves1:=sbVes1.Position;
lblZhir.Caption:=IntToStr(round(zhir));

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
lblVes.Caption:=IntToStr(round(ves));
lblZhir.Caption:=IntToStr(round(zhir));

end;

procedure TForm1.sbAgeChange(Sender: TObject);
begin
age:=sbAge.Position;
lblAge.Caption:=IntToStr(age);
lblVes.Caption:=IntToStr(round(ves));
lblZhir.Caption:=IntToStr(round(zhir));
end;

function TForm1.Ves:single;
begin
 if RadioGroup1.ItemIndex=0 then
 Result:=(rost*3-450+age)*0.25+45//мужской пол
 else
 Result:=(rost*3-450+age)*0.225+40.4;
 if Result<0 then Result:=4;
end;
procedure TForm1.sbRostChange(Sender: TObject);
begin
rost:=sbRost.Position;
lblRost.Caption:=IntToStr(rost);
lblVes.Caption:=IntToStr(round(ves));
lblZhir.Caption:=IntToStr(round(zhir));
end;

procedure TForm1.sbVes1Change(Sender: TObject);
begin
ves1:=sbVes1.Position;
lblVes1.Caption:=IntToStr(ves1);
lblVes.Caption:=IntToStr(round(ves));
lblZhir.Caption:=IntToStr(round(zhir));

end;
function TForm1.Zhir:single;

begin
  if RadioGroup1.ItemIndex=0 then
  Result:=(ves1-ves)/ves1*100+15
  else
  Result:=(ves1-ves)/ves1*100+22;
  if Result<0 then Result:=0;
  if result>100 then Result:=100;
  end;
  procedure TForm1.Plot;
  var
  ves,zhir:single;
  plot:Real;
  begin
  if RadioGroup1.ItemIndex=0 then
  begin
  ves:=(rost*3-450+age)*0.25+45;
  zhir:=(ves1-ves)/ves1*100+15;
  plot:=(8.90*zhir+11*(100-zhir))/1000;
  lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);
  end
  else
  begin
  ves:=(rost*3-450+age)*0.225+40.4;
  zhir:=(ves1-ves)/ves1*100+15;
  plot:=(8.90*zhir+11*(100-zhir))/1000;
  lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);
  end;
  end;



end.

никак не дойду до диаграмм и графиков функций.

[технарь]

поставила Delphi XE3 2010

Попробовал - не понравилось. Мне для моих задач Delphi 7 более чем...

[Olga]

технарь, а мне вроде понравилось,да самоучитель по нему скачала вот и читаю каждый день.  :D

[технарь]

да самоучитель по нему скачала вот и читаю каждый день.

Понятно. Но я думаю, что ваши проекты у меня и на седьмых дельфях запустятся.

[Olga]

технарь, посмотри,почему не считает плотность

[технарь]

Мне нужен весь ваш проект.

[Olga]

технарь, щас сброшу на мыло,правда начала кой чего добавлять,но пока не до конца

[технарь]

Olga, ну вы и накрутили. Еле разобрался. :D

Попробуйте так...

(открыть/скрыть)

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Panel1: TPanel;
    sbAge: TScrollBar;
    sbRost: TScrollBar;
    lblAge: TLabel;
    lblRost: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lblVes: TLabel;
    sbVes1: TScrollBar;
    lblVes1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    lblZhir: TLabel;
    Label7: TLabel;
    lblPlot: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure sbAgeChange(Sender: TObject);
    procedure sbRostChange(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure sbVes1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Calculate ;
  end;

var
  Form1: TForm1;
  age,rost,ves1:Integer;
  ves,zhir:single;
  plot:Real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  sbAge.Position:=20;
  sbRost.Position:=170;
  sbVes1.Position:=70;
  Calculate;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Calculate;
end;

procedure TForm1.sbAgeChange(Sender: TObject);
begin
  age:=sbAge.Position;
  Calculate;
end;

procedure TForm1.sbRostChange(Sender: TObject);
begin
  rost:=sbRost.Position;
  Calculate;
end;

procedure TForm1.sbVes1Change(Sender: TObject);
begin
  ves1:=sbVes1.Position;
  Calculate;
end;

procedure TForm1.Calculate;
begin
  age:=sbAge.Position;
  rost:=sbRost.Position;
  ves1:=sbVes1.Position;
  if RadioGroup1.ItemIndex=0 then
    begin
    ves:=(rost*3-450+age)*0.25+45;
    zhir:=(ves1-ves)/ves1*100+15;
    plot:=(8.90*zhir+11*(100-zhir))/1000;
    lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);
    end
  else
    begin
    ves:=(rost*3-450+age)*0.225+40.4;
    zhir:=(ves1-ves)/ves1*100+15;
    plot:=(8.90*zhir+11*(100-zhir))/1000;
    lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);
    end;
  lblAge.Caption:=IntToStr(age);
  lblVes.Caption:=IntToStr(round(ves));
  lblVes1.Caption:=IntToStr(ves1);
  lblRost.Caption:=IntToStr(rost);
  lblZhir.Caption:=IntToStr(round(zhir));
  lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);
end;

end.

Правильность работы вычислений не анализировал, уже не до того.

[Olga]

технарь, спасибо!Я поняла  :D

[Olga]

технарь, я только до оператора calculate еще не дошла  :cry: , а так у тебя все изящно  .Мне хотелось добить тот способ,которым я делала,самое интересное что,работает,только надо нажимать кнопки-мужской,женский.

(открыть/скрыть)

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Panel1: TPanel;
    sbAge: TScrollBar;
    sbRost: TScrollBar;
    lblAge: TLabel;
    lblRost: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lblVes: TLabel;
    sbVes1: TScrollBar;
    lblVes1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    lblZhir: TLabel;
    Label7: TLabel;
    lblPlot: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure sbAgeChange(Sender: TObject);
    procedure sbRostChange(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure sbVes1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Ves:single;
    function Zhir:single;
    procedure Plot;
  end;

var
  Form1: TForm1;
  age,rost,ves1:Integer;
  ves,zhir:single;
  plot:single;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
//снимаем значения со скроллеров
var
plot:single;
begin
age:=sbAge.Position;//задаем рост
rost:=sbRost.Position;//задаем рост
ves1:=sbVes1.Position;//задаем реальный вес
//вычисление веса,жира и плотности
plot:=(8.9*zhir+11*(100-zhir))/1000;
lblVes.Caption:=IntToStr(round(ves));
lblZhir.Caption:=IntToStr(round(zhir));
lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
plot:single;
begin
plot:=(8.9*zhir+11*(100-zhir))/1000;
lblVes.Caption:=IntToStr(round(ves));//вычисляем вес
lblZhir.Caption:=IntToStr(round(zhir));//вычисляем жир
lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);//вычисляем плотность

end;

procedure TForm1.sbAgeChange(Sender: TObject);
var
plot:single;
//задаем возраст
begin
age:=sbAge.Position;
lblAge.Caption:=IntToStr(age); //выводим на экран
lblVes.Caption:=IntToStr(round(ves));//вычисляем вес
lblZhir.Caption:=IntToStr(round(zhir)); //вычисляем жир
lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);//вычисляем плотность
end;
//выбор пола
function TForm1.Ves:single;//вычисляем вес
begin
 if RadioGroup1.ItemIndex=0 then
 Result:=(rost*3-450+age)*0.25+45//мужской пол
 else
 Result:=(rost*3-450+age)*0.225+40.4; //женский пол
 if Result<0 then Result:=4;
end;
procedure TForm1.sbRostChange(Sender: TObject);//задаем рост
var
plot:single;
begin
rost:=sbRost.Position;//задаем рост
lblRost.Caption:=IntToStr(rost);//выводим рост на экран
lblVes.Caption:=IntToStr(round(ves));//вычисляем вес
lblZhir.Caption:=IntToStr(round(zhir)); //вычисляем жир
lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);//вычисляем плотность

end;

procedure TForm1.sbVes1Change(Sender: TObject);//задаем реальный вес
var
plot:Real;
begin
ves1:=sbVes1.Position;//задаем вес реальный
lblVes1.Caption:=IntToStr(ves1);//выводим реальный вес на экран
lblVes.Caption:=IntToStr(round(ves)); //вычисляем вес
lblZhir.Caption:=IntToStr(round(zhir));//вычисляем жир
lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);//вычисляем плотность
end;
function TForm1.Zhir:single;//задаем пол
begin
  if RadioGroup1.ItemIndex=0 then
  Result:=(ves1-ves)/ves1*100+15//для мужчин расчет жира
  else
  Result:=(ves1-ves)/ves1*100+22;//для женщин расчет жира
  if Result<0 then Result:=0;
  if result>100 then Result:=100;
  end;
procedure TForm1.Plot;
var
age,ves1,rost:Integer;
zhir,plot,ves:single;
begin
 ves:=Ves;//вызываю функцию веса
 zhir:=Zhir;//вызываю функцию TFormm1.Zhir-жира
 plot:=(8.9*zhir+11*(100-zhir))/1000;//вычисляю плотность
 lblPlot.Caption:=FloatToStrF(plot,ffFixed,1,4);//выводим плотность на экран
end;
end.

[технарь]

я только до оператора calculate еще не дошла

Такого оператора нет. Это созданная мной процедура.
В этой процедуре мы получаем данные, производим вычисления и отображаем результат. Всё остальное в коде - это обработчики различных событий, которые просто вызывают эту процедуру.

Так как вы пытались сделать с моей точки зрения делать нельзя. Хотя я могу и ошибаться, но тогда мне нужно про это где-то прочитать.
Киньте мне книжку, котрую вы читаете и подскажите какая страница из этой книги навела вас на подобных ход решения этой задачи.

P.S: Делфи у меня снова нет - разрываюсь, не знаю какую версию поставить. У вас панели компонентов видны?

[Olga]

технарь, я тебе скину книгу Рубанцева-самоучитель Delphi XE3.По этой версии программы,панель компонентов находится внизу слева,хотя можно настроить,что будет как в Delphi 7