+123
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream.h>
#include <conio.h>
#include <stdlib.h>
#include <stdio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 test;
int a;
int b;
int i;
int t;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject Sender)
{
Edit1->Text='0';
/*glob_check:=True;//Для поля
t:=0;
for i:=1 to 1000 do // Очищает массив
begin
a[i]:='|';
b[i]:='0'; */
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject Sender)
{
/*var z,n: integer;
begin*/
if (Sk=0) then begin
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text; //Присваевает значение массиву элементу
if (glob_check=true) then t:=t-1; // храняшему в поле мемо
edit1.text:=rezul(t);
glob_check:=true;
end
else MessageBeep(0);
end;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject Sender)
{
var n,d,z:integer;
begin
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text;
b[t]:='+';
glob_check:=true;
if ((b[2]<>'0') and (skob=false)) then
edit1.Text:=rezul(t-1);
end;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject Sender)
{
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text;
b[t]:='*';
if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-'))) and (skob=false)) then
edit1.Text:=rezul(t-1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button16Click(TObject Sender)
{
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text;
b[t]:='/';
Когда-то, когда я абсолютно не шарил в плюсах, но хотел изучить их, я откопал среду Borland Turbo C++ и проверки ради её работоспособности попросил одного чувака ( который хвастался, что изучает С++ ) прислать мне калькулятор. Ну, он прислал. В среде мне выдало хренову тучу ошибок. Я думал уже с ней что-то не так, а другой не имел. Так и отложил плюсы до поры. А сегодня откопал тот самый код калькулятора и охренел от увиденного. Это просто капец. Смесь плюсов и дельфи какая-то. И ясен пень, что оно не запашет, как не старайся заставить. Тут ещё не влезло в поле для кода... Перед кодом калькулятора были прописаны каждый с новой строки числа от 1 по 172.
Запостил: CodeStar,
16 Июля 2014
Elvenfighter 17.07.2014 00:19 # +2
Я бы не был так уверен. Местные старожилы сейчас макросов наколбасят, так оно еще и на линуксе заработает.
inkanus-gray 17.07.2014 00:26 # 0
kegdan 17.07.2014 05:59 # 0
bormand 17.07.2014 05:15 # +2
Это крестобилдер, детка. Аццкая попытка скрестить ужа и ежа - стандартная либа от делфи, и немного подпиленные для совместимости с ней кресты.
inkanus-gray 17.07.2014 10:11 # +2
bormand 17.07.2014 10:56 # +1
kegdan 17.07.2014 06:01 # +1
Я бы на его месте стыдился и плакал по ночам
1024-- 17.07.2014 06:35 # +2
kegdan 17.07.2014 06:50 # 0
http://www.it-ep.ru/files/2012/08/23/small_c_za_edu.jpg
absolut 18.07.2014 21:00 # +1
си++тх