Форум программистов, компьютерный форум CyberForum.ru

lazarus to c++ - C++

Восстановить пароль Регистрация
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.73
sektor2009
3 / 3 / 0
Регистрация: 15.03.2009
Сообщений: 339
27.04.2011, 12:43     lazarus to c++ #1
Кнопка цифры
Pascal
1
2
3
4
5
6
7
8
procedure TCalculator.FiveClick(Sender: TObject);
begin
  if bf<=1 then
  if bf=1 then begin
  Box.Text:=IntToStr(5);bf:=0;end else
  if Box.Text=IntToStr(0) then begin Box.Text:=IntToStr(5);bf:=0;end else begin
  Box.Text:=Box.Text+IntToStr(5);bf:=0;end else bf:=2;
end;
кнопка сложения
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TCalculator.PlusClick(Sender: TObject);
begin
if bf=2 then bf:=2 else begin
  if ard>0 then  begin
    x:=StrToFloat(Box.Text);
    if ard=1 then
    otv:=y+x;
    if ard=2 then
    otv:=y-x;
    if ard=3 then
    otv:=y*x;
    if ard=4 then
    if x=0 then begin Box.Text:='Деление на ноль невозможно';bf:=2;end else
    otv:=y/x;
    ard:=1;y:=otv;if bf<>2 then begin Box.Text:=FloatToStr(otv);bf:=1;end;end else
  y:=StrToFloat(Box.Text);
  ard:=1;bf:=1;end;
end;
кнопка равенства
Pascal
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
procedure TCalculator.EqualyClick(Sender: TObject);
begin
if bf=2 then bf:=2 else begin
otv:=StrToFloat(Box.Text);
  if ard=0 then begin
    y:=StrToFloat(Box.Text);
    if ard2=1 then
    otv:=y+x;
    if ard2=2 then
    otv:=y-x;
    if ard2=3 then
    otv:=y*x;
    if ard=4 then
    if x=0 then begin Box.Text:='Деление на ноль невозможно';bf:=2;end else
    otv:=y/x;end
  else begin
    x:=StrToFloat(Box.Text);
    if ard=1 then
    otv:=y+x;
    if ard=2 then
    otv:=y-x;
    if ard=3 then
    otv:=y*x;
    if ard=4 then
    if x=0 then begin Box.Text:='Деление на ноль невозможно';bf:=2;end else
    otv:=y/x;
    ard2:=ard;ard:=0;end;
  if bf<>2 then begin Box.Text:=FloatToStr(otv);bf:=1;end;end;
end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2011, 12:43     lazarus to c++
Посмотрите здесь:

Lazarus
C# lazarus to c#
Перекомпиляция программы(простой) Win Lazarus в Linux Lazarus
Lazarus
5 задач в Lazarus
OpenGL OpenGl и Lazarus
Lazarus

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Deviaphan
Делаю внезапно и красиво
Эксперт C++
 Аватар для Deviaphan
1283 / 1217 / 50
Регистрация: 22.03.2011
Сообщений: 3,744
27.04.2011, 13:04     lazarus to c++ #2
http://lmgtfy.com/?q=pascal+to+c%2B%2B+converter
rangerx
1908 / 1517 / 139
Регистрация: 31.05.2009
Сообщений: 2,876
27.04.2011, 13:29     lazarus to c++ #3
В С++ нет встроенных средств для работы с графическим пользовательским интерфейсом. Определись для начала с библиотекой которую будешь использовать для построения GUI на C++.
Yandex
Объявления
27.04.2011, 13:29     lazarus to c++
Ответ Создать тему
Опции темы

Текущее время: 06:37. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru