Разработать проект исчисления стоимости золота, которым покрывают шарик радиусом р (Delphi 7)

[slavik444]

Всем привет. помогите пожалуйста мне с задачей в Делфи 7. Я чайник в этом деле не могу понять как сделать эту задачу в Делфи. Условие - Разработать проект исчисления стоимости золота, которым покрывают шарик радиусом р. Толщина слоя позолота х -, известна плотность золота - п. На форме выводятся: радиюс р, толщина х, плотность п, цени за 1 г золота. Результат вычисления вывести на форму.
Вот такие сдачи задают на домашнее задание студентам 1-го курса помогите ... а то талон будет по информатике спс

[veniside]

> Вот такие сдачи задают на домашнее задание студентам

объем сферы учат вычислять вроде в 5 классе, вычисление массы по объему и плотности должны объяснять тогда же, а умножение чисел проходят в третьем. Может, со студентами что-то не так?

[slavik444]

Сообщение от veniside

> Вот такие сдачи задают на домашнее задание студентам

объем сферы учат вычислять вроде в 5 классе, вычисление массы по объему и плотности должны объяснять тогда же, а умножение чисел проходят в третьем. Может, со студентами что-то не так?

Да ето я сам могу сделать на листочку ети решение, но как ето зделать в програме что б нажать ран и все работало вот ето проблема(

[WorldMaster]

Сообщение от slavik444

Да ето я сам могу сделать на листочку ети решение, но как ето зделать в програме что б нажать ран и все работало вот ето проблема(

То есть на первом курсе ПРОГРАММЕРСКОГО факультета вы до сих пор не можете написать элементарнейшую задачу на языке программирования?
В классе 7 уже учат на паскале простейшие формулы забивать, а вы и к универу ничего подобного не тянете... так может задуматся, и сменить таки профессию на более простую? или хотя бы на ту в которой вы больше понимаете.

что в вашей программе у вас не получается сделать? покажите ваши наработки, авось тут и помогут вам, а иначе только в раздел фриланс.

[slavik444]

Сообщение от WorldMaster

То есть на первом курсе ПРОГРАММЕРСКОГО факультета вы до сих пор не можете написать элементарнейшую задачу на языке программирования?
В классе 7 уже учат на паскале простейшие формулы забивать, а вы и к универу ничего подобного не тянете... так может задуматся, и сменить таки профессию на более простую? или хотя бы на ту в которой вы больше понимаете.

что в вашей программе у вас не получается сделать? покажите ваши наработки, авось тут и помогут вам, а иначе только в раздел фриланс.

я журналист а не програмист

[WorldMaster]

так что у вас не получаеся то??? Вы хотите чтобы за вас все сделали??? или хотите сделать самостоятельно???

[slavik444]

вот моя ошибка я плохо прописал ВАР и в бегине етот пункт Label5.Caption :=Floattostr(stoim);
мне помогли уже вот результат

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  pl,radSh,radSh1,tolZol,price,WSh1,WSh2,BeetShr,stoim:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
pl:=StrToFloat(Edit3.Text);
radSh:=StrToFloat(Edit1.Text);
tolZol:=StrToFloat(Edit2.Text);
price:=StrToFloat(Edit4.Text);
radSh1:=radSh+tolZol;
WSh1:= 4/3*pi*radSh*radSh*radSh;
WSh2:= 4/3*pi*radSh1*radSh1*radSh1;
BeetShr:=WSh2-WSh1;
stoim:=price*BeetShr*pl;
Label5.Caption :=Floattostr(stoim);

end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[slavik444]

спс ребят ето уровень 5-7 класу...полгруппьі шас ето просмотрели и такого в жизни не видели. спс что потролили нуба в делфи