0 / 0 / 0
Регистрация: 21.06.2015
Сообщений: 3
1

Перевести код на Дельфи

04.09.2015, 14:30. Показов 564. Ответов 9
Метки нет (Все метки)

Кто может перенести это в Delphi???
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
type // конфета
  TCandy = record
    Name: string;  // название
    Price: double; // цена
  end;
 
type // покупка
  TBuy = record
    Arcticle: TCandy; // что купили
    Count: double;    // сколько
  end;
 
type // мальчик
  TBoy = record
    Money: double;          // деньги
    Buying: array of TBuy;  // покупки
  end;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  // мальчик
  Boy: TBoy = (Money: 1000; Buying: nil);
const // конфеты
 Candys: array[0..2] of TCandy = (
 (Name: 'Валетные'; Price: 100),
 (Name: 'Ириски'; Price: 200),
 (Name: 'Птичье молоко'; Price: 300));
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin // заполняем список конфетами
for i:=0 to High(Candys) do
 ListBox1.Items.Add(Candys[i].Name); // пишем баланс мальчика
Label1.Caption := 'Денег у мальчика ' + FloatToStr(Boy.Money);
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin // если конфеты не выбраны, то выходим
if ListBox1.ItemIndex=-1 then exit;
// пишем стоимость конфет
Label2.Caption := 'Стоимость за 1КГ ' +
 FloatToStr(Candys[ListBox1.ItemIndex].Price);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin // если конфеты не выбраны, то выходим
if ListBox1.ItemIndex=-1 then exit;
// увеличиваекм размер массива
SetLength(Boy.Buying, Length(Boy.Buying)+1);
// заносим данные о покупке. Сколько и чего купили
Boy.Buying[High(Boy.Buying)].Count := StrToFloat(Edit1.Text);
Boy.Buying[High(Boy.Buying)].Arcticle := Candys[ListBox1.ItemIndex];
// списываем деньги
Boy.Money := Boy.Money -
Boy.Buying[High(Boy.Buying)].Count*Candys[ListBox1.ItemIndex].Price;
// пишем сдачу
Label1.Caption := 'Денег у мальчика ' + FloatToStr(Boy.Money);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i: integer; c: double;
begin
c := 0; // денег не потрачено
for i:=0 to High(Boy.Buying) do // считаем сумму покупок
 c := c + Boy.Buying[i].Count*Boy.Buying[i].Arcticle.Price;
// пишем сумму покупок
Label3.Caption := 'Итого покупок на сумму ' + FloatToStr(c);
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.09.2015, 14:30
Ответы с готовыми решениями:

Перевести код из С++ в Дельфи
помогите перевести код плиз!из с++ в код делфи! using namespace std; int main() { const...

Перевести код из Паскаля в Дельфи
помогите перекинуть код из паскаля в делфи uses crt; const nmax=20; mar:array of...

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

Перевести код с Паскаля на Дельфи
ПОМОГИТЕ ПОЖАЛУЙСТА ПЕРЕВЕСТИ НА ДЕЛФИ var A,B,n:word; begin write('A= '); readln (A); B:=A;...

9
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32232 / 20872 / 8085
Регистрация: 22.10.2011
Сообщений: 36,111
Записей в блоге: 7
04.09.2015, 14:31 2
Из Дельфи в Дельфи? Вряд ли кто-то справится...
0
70 / 71 / 23
Регистрация: 14.10.2013
Сообщений: 532
04.09.2015, 15:51 3
Actimelko, это и есть код Delphi. Что тут переводить то?
0
Cyborg Drone
04.09.2015, 17:33
  #4

Не по теме:

Actimelko, в этой вот Вашей теме: Метрики Холстеда, Вам что, места было мало, чтоб развернуться? Или Вы постеснялись у VladWH спросить, на чём же он Вам программу написал? Или, может, полагаете, что на вопрос, вырванный из контекста обсуждения, быстрее ответ найдётся? Рекомендую Вам ознакомиться с правилами форума. Не надо дублировать темы, ни полностью, ни частично. В правилах, кстати, ещё написано, что для поднятия актуальности темы достаточно написать в тему новое сообщение.

Кроме правил форума, рекомендую Вам почитать любой учебник по Delphi. Полагаю, на первое время, трёхсот страниц будет достаточно. Если я правильно всё понял, Вы вообще о Delphi в целом не имеете ни малейшего представления, а не только о том, как на форме разместить соответствующие компоненты и связать их события с соответствующими подпрограммами.

0
Модератор
8093 / 5360 / 2209
Регистрация: 21.01.2014
Сообщений: 23,034
Записей в блоге: 3
04.09.2015, 17:35 5
Actimelko, тебе надо готовый проект по предоставленному коду? А самостоятельно прочитать хоть что-то из учебника и попробовать - это не судьба?
1
0 / 0 / 0
Регистрация: 21.06.2015
Сообщений: 3
05.09.2015, 14:29  [ТС] 6
Я с Delphi незнаком вообще. Вот в этом то и проблема. Мне по этому коду надо посчитать операторы и т.д. по метрике Холстеда... Никто не может помочь?
0
243 / 193 / 94
Регистрация: 01.05.2015
Сообщений: 732
05.09.2015, 22:04 7
Цитата Сообщение от Actimelko Посмотреть сообщение
Мне по этому коду надо посчитать операторы и т.д. по метрике Холстеда... Никто не может помочь?
Метрики Холстеда
Метрика Холстеда относится к метрикам, вычисляемым на основании анализа числа строк и синтаксических элементов исходного кода программы.

Основу метрики Холстеда составляют четыре измеряемые характеристики программы:

NUOprtr (Number of Unique Operators) — число уникальных операторов программы, включая символы-разделители, имена процедур и знаки операций (словарь операторов);
NUOprnd (Number of Unique Operands) — число уникальных операндов программы (словарь операндов);
Noprtr (Number of Operators) — общее число операторов в программе;
Noprnd (Number of Operands) — общее число операндов в программе.
На основании этих характеристик рассчитываются оценки:

Словарь программы (Halstead Program Vocabulary, HPVoc): HPVoc = NUOprtr + NUOprnd;
Длина программы (Halstead Program Length, HPLen): HPLen = Noprtr + Noprnd;
Объем программы (Halstead Program Volume, HPVol): HPVol = HPLen log2 HPVoc;
Сложность программы (Halstead Difficulty, HDiff): HDiff = (NUOprtr/2) × (NOprnd / NUOprnd);
На основе показателя HDiff предлагается оценивать усилия программиста при разработке при помощи показателя HEff (Halstead Effort): HEff = HDiff × HPVol.

ну а дальше считайте, начало примерно такое:

Оператор | Количество | Операнд | Количество
: _________ 31 __________ i _________ 7
= _________ 8 __________ -1 ________ 2
:= .................................................. .................
.................................................. .....................
0
пофигист широкого профиля
4580 / 3050 / 847
Регистрация: 15.07.2013
Сообщений: 17,528
06.09.2015, 00:36 8
VladWH, ТС
Цитата Сообщение от Actimelko Посмотреть сообщение
с Delphi незнаком вообще. Вот в этом то и проблема.
Ему не алгоритмы нужны и даже не код. Ему нужен готовый проект.
Может быть ему даже надо чтобы на сдачу этого проекта пришел кто-нибудь вместо него
Ибо сам он ничего делать не хочет.
0
243 / 193 / 94
Регистрация: 01.05.2015
Сообщений: 732
06.09.2015, 00:50 9
Цитата Сообщение от northener Посмотреть сообщение
Ему не алгоритмы нужны и даже не код. Ему нужен готовый проект.
тогда в раздел фриланс и нет проблем, только тогда не понятно зачем в ВУЗ поступал
0
пофигист широкого профиля
4580 / 3050 / 847
Регистрация: 15.07.2013
Сообщений: 17,528
06.09.2015, 01:02 10
Цитата Сообщение от VladWH Посмотреть сообщение
только тогда не понятно зачем в ВУЗ поступал
+100500
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.09.2015, 01:02
Помогаю со студенческими работами здесь

Перевести из паскаля в Дельфи
преведите дайте код на кнопку и тд var n,i,a,sp,so:integer; begin write('n='); readln(n);...

Необходимо перевести часть кода на Дельфи
Текст вобщем тут строки этот код написал на С++ билдере мне его необходимо перевести на Дельфи....

Интегрирование функции. Перевести с Паскаля на Дельфи
Здравствуйте, уважаемые программисты! Помогите пожалуйста нужно переписать программу, чтобы она...

Код Дельфи
procedure TForm1.btn1Click(Sender: TObject); var x,y:real; i,n:Integer; begin x:=0; for i:=1...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru