//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
/*

Uzivatel zada retazec, ktory pozostava zo znakov A a B
//abb
//aba
//aaa

*/
//Vstup je veta, sifrovanie
//Rozlozenie na slova a na znaky. Znaky do binarneho, oddelene #, prvy bit z kazdeho znaku inverzn�
//Desifrovat, zobrazit.
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TForm1::Kruh(int x, int y) {
    Image1->Canvas->Brush->Color = clRed;
    Image1->Canvas->Ellipse(x-10, y-10, x+10, y+10);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Kruh(SpinEdit1->Value, SpinEdit2->Value);
}
//---------------------------------------------------------------------------
//Dorobit funkciu
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    AnsiString s = "abaaabbabbbaaba",
               str = "";
    for (int i = 0; i < Memo1->Lines->Count; i++) {
        int p = 0,
        x = 1,
        l = 0;
        AnsiString h = Memo1->Lines->Strings[i];
        for (int j = 1; j <= s.Length(); j++) {
            if ( s[j] == h[x] ) {
                l++;
            } else {
                l = 0;
                x = 1;
            }
            if ( l == h.Length() ) {
                p++;
                l = 0;
                x = 1;
            }
            if ( x == h.Length() ) {
                x = 1;
            } else {
                x++;
            }
        }
        str += h+" - "+IntToStr(p)+"x\n";
    }
    ShowMessage(str);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    AnsiString str = Trim(Edit2->Text),
               txt = "",
               binary = "",
               sifra = "";
    for (int i = 1; i <= str.Length(); i++) {
        if ( str[i] != ' ' && i < str.Length() ) {
            txt += str[i];
        } else {
            txt += Trim(str[i]);
            for (int j = 1; j <= txt.Length(); j++) {
                //8 bitov
                binary += decimalNumberToBinary(txt[j]);
            }
            txt = "";
            sifra += binaryToDecimal(binary);
            binary = "";
        }
    }
    sifra[sifra.Length()] = ' ';
    sifra = Trim(sifra);
    ShowMessage(sifra);
}
//---------------------------------------------------------------------------
AnsiString TForm1::binaryToDecimal(AnsiString binary) {
    int s = 0,
        n = 0;
    for (int i = 1; i <= binary.Length(); i++) {
        for (int j = 0; j < i; j++) {
            n += 2*2;
        }
        if ( binary[i] == '1' ) {
            s += n;
        }
    }
    return char(s);
}
AnsiString TForm1::decimalNumberToBinary(char a) {
    int c = a,
        p = 0;
    bool loop = true;
    AnsiString b = "",
               sifra = "";
    while ( loop ) {
        if ( c % 2 == 1 ) {
            if ( p < 4 ) {
                b = "0" + b;
            } else {
                b = "1" + b;
            }
        } else {
            if ( p < 4 ) {
                b = "1" + b;
            } else {
                b = "0" + b;
            }
        }
        p++;
        c /= 2;
        if ( c == 0 ) {
            for (int k = b.Length(); k < 8; k++) {
                b = "0" + b;
            }
            loop = false;
            sifra += b + "#";
        }
    }
    return sifra;
}

float TForm1::diskriminant(int a, int b, int c) {
    float d = b*b - 4*a*c;
    return d;
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    ShowMessage(FloatToStr(diskriminant(2, 1, 3)));
}
//---------------------------------------------------------------------------