Калькулятор

@rassver · Регистрация: 20.11.2013

Студворк — интернет-сервис помощи студентам

Решил написать калькулятор с графическим интерфейсом, который будет реагировать на мышь. Основу интерфейса сделал, а вот как соединить его с функционалом не очень понимаю. Кто-то может подсказать?

Кликните здесь для просмотра всего текста

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
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
program kalk;
 
uses
  graphabc, events, ABCObjects;
 
var
  a, b, c: real;x, y, i: integer;e: string;                       
  d: array[1..9] of circleABC;                                  
  p, m, u, d1, r: circleABC;
 
procedure MouseDown(x1, y1, mb: integer);
begin
  if mb = 1 then
  begin
    if(x1 > 40) and (x1 < 60) and (y1 > 40) and (y1 < 60)
      then write(1);
    if(x1 > 60) and (x1 < 80) and (y1 > 40) and (y1 < 60)
      then write(2);
    if(x1 > 80) and (x1 < 100) and (y1 > 40) and (y1 < 60)
      then write(3);
    if(x1 > 100) and (x1 < 120) and (y1 > 40) and (y1 < 60)
      then write('+');
    if(x1 > 120) and (x1 < 140) and (y1 > 40) and (y1 < 60)
      then write('*');
    if(x1 > 100) and (x1 < 120) and (y1 > 60) and (y1 < 80)
      then write('-');
    if(x1 > 100) and (x1 < 120) and (y1 > 80) and (y1 < 100)
      then write('=');
    if(x1 > 120) and (x1 < 140) and (y1 > 60) and (y1 < 80)
      then write('/');
    if(x1 > 40) and (x1 < 60) and (y1 > 60) and (y1 < 80)
      then write(4);
    if(x1 > 60) and (x1 < 80) and (y1 > 60) and (y1 < 80)
      then write(5);
    if(x1 > 80) and (x1 < 100) and (y1 > 60) and (y1 < 80)
      then write(6);
    if(x1 > 40) and (x1 < 60) and (y1 > 80) and (y1 < 100)
      then write(7);
    if(x1 > 60) and (x1 < 80) and (y1 > 80) and (y1 < 100)
      then write(8);
    if(x1 > 80) and (x1 < 100) and (y1 > 80) and (y1 < 100)
      then write(9);
  end;
end;
 
begin
  SetWindowSize(150, 150);
  SetWindowTitle('Калькулятор-2000');
  x := 50;y := 50;
  for i := 1 to 3 do
  begin
    d[i] := circleABC.create(x, y, 10, clwhite);
    e := inttostr(i);d[i].text := e;
    x := x + 20;
  end;
  p := circleABC.create(x, y, 10, clwhite);
  p.Text := '+';
  u := circleABC.create(x + 20, y, 10, clwhite);
  u.Text := '*';
  m := circleABC.create(x, y + 20, 10, clwhite);
  m.Text := '-';
  r := circleABC.create(x, y + 40, 10, clwhite);
  r.Text := '=';
  d1 := circleABC.create(x + 20, y + 20, 10, clwhite);
  d1.Text := '/';
  x := x - 60;
  y := y + 20;
  for i := 4 to 6 do
  begin
    d[i] := circleABC.create(x, y, 10, clwhite);
    e := inttostr(i);d[i].text := e;
    x := x + 20;
  end;
  x := x - 60;
  y := y + 20;
  for i := 7 to 9 do
  begin
    d[i] := circleABC.create(x, y, 10, clwhite);
    e := inttostr(i);d[i].text := e;
    x := x + 20;
  end;
  
  onmousedown := mousedown;
  
end.

@just a dream · 25.11.2013, 20:03

Я тут уже видел наработки чьи-то в калькуляторе, там было по красивее

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
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
uses graphabc;
const matrix: array [1..4,1..4] of char=(('7','8','9','/'),   //матрица калькулятора
                                         ('4','5','6','*'),
                                         ('1','2','3','-'),
                                         ('.','0','=','+'));
var c: char;
    s: string;
    n1,n2: integer;
 
//вывод "формы"
procedure View1;
begin
 rectangle(0, 0, 200, 100);           {Поле вывода значений}
 line(0, 60, 200, 60);{Линия разделения}
  setfontsize(20);
for var i:=1 to 4 do
  for var j:=1 to 4 do
    roundrect(i*50-50,j*50+100,i*50,j*50+50,20,20);
end;
//вывод подписей
procedure View2;
begin
for var i:=1 to 4 do
  for var j:=1 to 4 do
    textout(i*50-30,j*50+60,matrix[j,i]);
end;
 
 
procedure mousedown(x, y, mb: integer);
begin
  if mb = 1 then
      begin
      if matrix[(y-50) div 50,(x+50) div 50] in ['0'..'9'] then //если нажата цифра - надо "собирать число из запчастей", иначе надо переходить к сборке следующего
          begin
          s:=s+ matrix[(y-50) div 50,(x+50) div 50];   //собираем число - к существующей строке добавляем цифру справа
          textout(180-(length(s)*15), 63,s);    //выводим все число
          end
          else 
            begin
            rectangle(0, 0, 200, 100);           {Поле вывода значений очищаем}
            line(0, 60, 200, 60);{Линия разделения}
            textout(20, 20,s);   //выводим число на экран
            textout(180-(length(s)*15), 63, matrix[(y-50) div 50,(x+50) div 50]); 
            n2:=strtoint(s); //в дальнейшем, если будут дробные числа 0,254, придется заменить на strtofloat
            s:='';
            //здесь запуск обработки нажатия кнопки - то есть переход к вычислениям
            end;
      end;
end;
 
begin
s:='';
  setwindowsize(200, 300);
 View1;
  View2;
  onmousedown := mousedown;
end.

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .