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

lazarus to c++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Вывести различные русские буквы трех предложений http://www.cyberforum.ru/cpp-beginners/thread284270.html
Вывести различные русские буквы трех предложений (то есть такие, какие есть только в одном из них) Добавлено через 30 секунд Помогите плиз)
C++ Работа с дробями Создать программу в виде учебника, раздел дроби, провести тестирования по теме. program s1; uses crt; Var a,b,f:word; st:string; Function HOD(a,b:word):word; var i,c:word; begin Hod:=1; http://www.cyberforum.ru/cpp-beginners/thread284265.html
C++ Всё ли я правильно делаю ?
Сегодня, считай, первый день как начал изучать С++. В качестве компиляции использую Microsoft Visual C++ 2010 Express. И хочу узнать Ваше мнение насчёт моего подхода к компиляции программ. 1) настукиваю исходный код в Notepad++; 2) затем в Вижуале: Файл -> Создать -> Проект из существующего кода; 3) запускается мастер, выбираю место хранения будущего проекта (Мои документы\c++ projects), его...
Дана строка слов, разделенных пробелами и запятыми. Подсчитайте количество слов в строке и сформируйте новую строку из самых длинных слов подстрок C++
Дана строка слов, разделенных пробелами и запятыми. Подсчитайте количество слов в строке и сформируйте новую строку из самых длинных слов подстрок.(заключенных между запятыми). Помогите пожалуйста сделать.
C++ максимальный элемент матрицы http://www.cyberforum.ru/cpp-beginners/thread284234.html
сам массив для матрицы в заголовочном файле объявляю так: int **matrix; конструктор такой: Matrix::Matrix() { srand((unsigned)time(NULL)); dimension = 5; matrix = new int*; for (int i = 0; i < dimension; i++) { matrix = new int;
C++ Компилятор под Eclipse. Скачал Eclipse c оффа, поставил. Скачал MinGW, поставил. Не пашет. Нету binary и не компилирует. Что делать? Помогите пожалуйста) подробнее

Показать сообщение отдельно
sektor2009
3 / 3 / 0
Регистрация: 15.03.2009
Сообщений: 339
27.04.2011, 12:43     lazarus to c++
Кнопка цифры
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;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 14:54. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru