Исходники и листинги ::: 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
  unit Unit1;
 
  interface
 
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Buttons, ExtCtrls;
 
  type
    TForm1 = class(TForm)
      Label1: TLabel;
      Label2: TLabel;
      Edit1: TEdit;
      Edit2: TEdit;
      BitBtn1: TBitBtn;
      Panel1: TPanel;
      Label3: TLabel;
      Label4: TLabel;
      Label5: TLabel;
      Label6: TLabel;
      Edit3: TEdit;
      Edit4: TEdit;
      Edit5: TEdit;
      Edit6: TEdit;
      BitBtn2: TBitBtn;
      Label7: TLabel;
      procedure BitBtn1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
 
  var
    Form1: TForm1;
 
  implementation
 
  {$R *.dfm}
 
  procedure TForm1.BitBtn1Click(Sender: TObject);
  var a,b,d,k,l,t:int64; i:byte;
  begin
    a:=strTOint(edit1.text);
    b:=strTOint(edit2.text);
 
   { // true число
    l:= length(edit1.Text);
    t:=2;
    for i:=1 to l do t:=t*2;
    t:=t-1;
    label7.Caption:=inttostr(l); }
    
    d:=a or b;
    k:=a and b ;
    i:=((a xor 1) or  b);
 
    edit3.Text:=intTOstr(d );
    edit4.Text:=intTOstr(k);
    edit5.Text:=intTOstr(i);
     edit6.Text:=intTOstr((a xor 1));
  end;
 
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Логический калькулятор
Автор: Taow*
Город: Дульдурга
 Дата: 20.11.2006  19:13
Комментариев: 6
Просмотров: 359
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Здесь сложность была только в том, что на делфи операция not работает не правильно с целыми числами, те иначе чем на Pascal пришлось придумывать кооткий выход из ситуации
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
wolong ::: комментарий от 28.11.2006 | 20:18
wolong Искатель (ур.5)
Очки: 383
Город: Tomsk
Тв. работ: 1
Рег: 15.06.2006 (280)
к модерам: )

вот когда не надо мы мои комменты удаляете, лучче удалите этот и предидущий, у меня брауз глючит


--------------------
$_="1K8}3v3w8(5f1o2q5y6n3h1s5%2R0e9{7s9)5m1b6i2m6k3u";s/(.)(.)/pack('C',ord($2)-$1)/eg;print;
wolong ::: комментарий от 28.11.2006 | 20:16
wolong Искатель (ур.5)
Очки: 383
Город: Tomsk
Тв. работ: 1
Рег: 15.06.2006 (280)
непонял смысл программы

not работает нормально, специально счас перепроверил, тока нада чтоб руки из нужного места росли


--------------------
$_="1K8}3v3w8(5f1o2q5y6n3h1s5%2R0e9{7s9)5m1b6i2m6k3u";s/(.)(.)/pack('C',ord($2)-$1)/eg;print;
wolong ::: комментарий от 28.11.2006 | 20:14
wolong Искатель (ур.5)
Очки: 383
Город: Tomsk
Тв. работ: 1
Рег: 15.06.2006 (280)
непонял смысл программы

not работает нормально, специально счас перепроверил, тока нада чтоб руки из нужного места росли


--------------------
$_="1K8}3v3w8(5f1o2q5y6n3h1s5%2R0e9{7s9)5m1b6i2m6k3u";s/(.)(.)/pack('C',ord($2)-$1)/eg;print;
Taow* ::: комментарий от 21.11.2006 | 12:26
Taow Гуру (ур.19)
Очки: 50829
Город: Дульдурга
Тв. работ: 590
Рег: 04.09.2006 (509)
Ответ для Legolas 21.11.2006 | 00:14:

Приметив?! Когда решено, то да. А когда я циклы запускал... ставил not который отказывался работать, мне так не казалось


--------------------
Видеть необычное в обычном, вот признак таланта!
Администратор 1-го ранга (Координатор) Legolas ::: комментарий от 21.11.2006 | 00:14
Legolas Герой (ур.14)
Очки: 14466
Город: Shattrath city
Тв. работ: 19
Рег: 27.04.2006 (27)
Честно.. примитив!!! Мне было стыдно пропускать работу..


--------------------
cat /dev/legs > /dev/mouth