1. Apache13.05.2025 в 20:45от
Загрузка...
Загрузка...

есть ли сейчас на форуме кто, знающий паскаль?

Тема в разделе "Софт", создана пользователем Pro_Man, 26.02.2012.

  1. Pro_Man

    Pro_Man

    Статус:
    Оффлайн
    Регистрация:
    25.01.12
    Сообщения:
    394
    Репутация:
    70 +/-
    короче не знаю как знак = прописать(((
    прогу написал, а как знак = написать не знаю(((
    nit Unit1;

    interface

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

    type
    TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    a, b, v: string;
    implementation

    {$R *.dfm}

    procedure TForm1.Edit1Change(Sender: TObject);
    begin
    a:= form1.Edit1.text;
    end;

    procedure TForm1.Edit2Change(Sender: TObject);
    begin
    b:= form1.edit2.Text;
    end;

    procedure TForm1.BitBtn4Click(Sender: TObject);
    begin
    edit3.Text:=edit3.Text+'+';
    end;

    procedure TForm1.BitBtn3Click(Sender: TObject);
    begin
    edit3.Text:=edit3.Text+'-'
    end;

    procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
    edit3.Text:=edit3.Text+'*'
    end;

    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
    end;

    end.
     
  2. AlexandrL

    AlexandrL

    Статус:
    Оффлайн
    Регистрация:
    17.02.12
    Сообщения:
    568
    Репутация:
    261 +/-
    ну :=

    Или я не правильно понял, что ты имеешь ввиду?
     
  3. phaeck

    phaeck

    Статус:
    Оффлайн
    Регистрация:
    11.02.12
    Сообщения:
    172
    Репутация:
    68 +/-
    Не, он имеет ввиду код выполняющий операцию равно))
     
  4. MazaHacker

    MazaHacker

    Статус:
    Оффлайн
    Регистрация:
    20.01.12
    Сообщения:
    443
    Репутация:
    187 +/-
    это же делфи?или меня глючит?
     
  5. AlexandrL

    AlexandrL

    Статус:
    Оффлайн
    Регистрация:
    17.02.12
    Сообщения:
    568
    Репутация:
    261 +/-
    нету такого в паскале.
     
  6. talraash

    talraash

    Статус:
    Оффлайн
    Регистрация:
    18.11.11
    Сообщения:
    33
    Репутация:
    17 +/-
    MazaHacker
    Он самый...

    а по теме разве нельзя просто С:=A+B и вывести тот самый С (сори знаком только с ТП, так что не судите строго))) в смысле присвоить третей переменной результат сложения нужных и его вывести)))
    P.S. третья переменная "v" у автора объявлена, но в коде не используется...
     
    Последнее редактирование: 26.02.2012
  7. Danyadanya

    Danyadanya

    Статус:
    Оффлайн
    Регистрация:
    11.11.11
    Сообщения:
    199
    Репутация:
    57 +/-
    Может я и херню скажу но все таки
    ввести еще одну переменную которая будет представлять сумму
    тоесть А:=Б+В
     
  8. Pro_Man

    Pro_Man

    Статус:
    Оффлайн
    Регистрация:
    25.01.12
    Сообщения:
    394
    Репутация:
    70 +/-
    я просто до этого писал только в консоли. я в первый раз пишу норм прогу, а не консольное приложение. я просто в тупике. можете мне написать завершающую часть? у меня в учебнике вообще нет инструкций как писатт таковое. а в гугле поискал, решения не нашел.
    и у меня щас кстать 2:37))))

    это делфи)
    я имел ввыду как описать кнопку равно, т.е завершающую часть программы
     
  9. Pro_Man

    Pro_Man

    Статус:
    Оффлайн
    Регистрация:
    25.01.12
    Сообщения:
    394
    Репутация:
    70 +/-
    ну так кто?