ANTICHAT — форум по информационной безопасности, OSINT и технологиям

A1/B1 = A2/B2

A1 * A2 + B1 * B2 = 0

text := 'abcdefghi';
Label1.Caption := '';
for i := 1 to length(text) do
  begin
    Label1.Caption := Label1.Caption + text[i];
    for j := 1 to 10 do
      begin
         sleep(10);
         Application.ProcessMessages;
      end;
  end;

//---------------------------------------------------------------------------
 
#pragma hdrstop
 
//---------------------------------------------------------------------------
 
#include <iostream.h>
#include <conio.h>
#include <string.h>
#include <vcl.h>
#include <stdio.h>
#pragma argsused
struct info
{
    int RegCode;
    char FIO[25];
    char name[255];

};
template <class t> 
class array
{
    private:
            int size;
            t** a;
            int counter;
            void SetArray( int );
    public:
        array( int );
        array(array &x);
        ~array();
        void Input(t );
        void Output();
        void OutputByIndex(int);
        void GetSize();
        array operator !();
        array operator =(array );
        void operator [](int );
        bool operator ==(array);
 
};
template <class t>
array<t>::array(int size)
{
    SetArray(size);
}
template <class t>
array<t>::array (array &x)
{
    size=x.size;
    counter = x.counter;
    a = new t*[size];
    for ( int i=0; i < counter; i++)
    {
        a[i]= x.a[i];
    }
}

template <class t>
array<t>::~array()
{
 if (a)
  delete []a;
}
//--------------------------------------------
template <class t>
void array<t>::SetArray(int siz)
{
    a = new t*[siz];
    for(int i = 0; i < siz; i++)
    {
        a[i] = 0;
    }
    size = siz;
    counter = 0;
}
template <class t>
void array<t>::Input(t x)
{
 
    if( counter != size )
    {
            a[ counter ] = new t;
            *a [ counter ] = x;
            counter++;
    }
    else
    {
        cout << "Error. Array is full";
    }
}
template <class t>
void array<t>::Output()
{
    if( counter )
    {
        for( int i = 0; i <counter; i++)
        {
            cout << "SHifr: " << a[ i ]->RegCode << "\n";
            cout << "FIO: " << a[ i ]->FIO << "\n";
            cout << "nazvanie: " << a[ i ]->name<< "\n";
             cout << "\r\n";
         }
    }
    else
    {
        cout << "Error. Array is empty"<<endl;
    }
}
template <class t>
void array<t>::OutputByIndex(int ind)
{
    if( counter )
    {
        if( ind > counter )
            cout << "Error. Index out of range";
        else
        {
                cout << "SHifr: " << a[ ind-1 ]->RegCode << "\n";
                cout << "FIO: " << a[ ind -1]->FIO << "\n";
                cout << "nazvanie " << a[ ind -1]->name << "\n";

                cout << "\r\n"<<endl;
        }
    }
    else
        cout << "Array is empty\n"<<endl;
 
}
template <class t>
void array<t>::GetSize()
{
    cout << counter  << "\n";
}
//----------------------------------------------
 template <class t>
array<t> array<t>::operator =(array<t> x)
{
    counter = x.counter;
    size = x.size;
    a = new t* [size];
    for(int i = 0; i < counter; i++)
    {
       a[i] = x.a[i];
    }
   return *this;
}
 
 template <class t>
void array<t>::operator [](int ind)
{
  OutputByIndex(ind);
}
 
 template <class t>
array<t> array<t>::operator !()
{
    if( counter )
    {
        for( int i = 0; i < counter; i++ )
        {
            delete a[i];
            a[i] = 0;
        }
    }
    counter = 0;
    return *this;
}
     template <class t>
bool array<t>::operator ==(array<t> x)
{
if (x.counter !=counter)
return false;
for (int i=0;i<counter;i++)
if (a[i]!=x.a[i] )
return false;
return true;
}
 
void menu()
{
    cout << "\n Viberite:\n";
    cout << "\n1. vvod ";
    cout << "\n2. vivod ";
    cout << "\n3. ! Clear array.";
    cout << "\n4. = Prisvaivanie." ;
    cout << "\n5. [] vivod po indeksu." ;
    cout << "\n6. == proverka na ravenstvo." ;
}
 
 
int main()
{
int x, ind;
    info temp;
    cout << "Input array size: ";
    cin >> x;
    array<double> obj(x);
    array<double> obj1(x);
    int i;
    while (true)
    {
    menu();
    cin>>i;
    clrscr();
        switch(i)
        {
            case 1:
            cout << "SHifr: ";
            cin >> temp.RegCode;
            cout << "Input FIO: ";
            cin.get();
            cin.getline(temp.FIO, 25);
            cout << "Input nazvanie: ";
            cin.getline(temp.name,255);
            obj.Input(temp);
            break;
            case 2: obj.Output(); break;
 
            case 3: !obj;!obj1; break;
            case 4:
             obj1 = obj;
             obj.Output();
             obj1.Output();
                 break;
             case 5:
            cout << "Input index: ";
            cin >> ind;
            obj[ind];
 
            break;
             case 6:
            if(obj==obj1)
           { cout<<"MHO}|{ECTBA PABHbI"<<endl;
            obj.Output();obj1.Output(); }
            else
           { cout<<"MHO}|{ECTBA HE PABHbI"<<endl;
            obj.Output();obj1.Output();     }
            break;
             case 0: return 0;
            default : cout<<"\nError!\n" ;
        }
    }
}

.model tiny
locals
.386
.code
.startup
;ввод частоты и длительности звука
beep MACRO fr,ms  
    pusha 

;расчёт коэффициента деления: c = 1193180 Гц / f
    mov ax,34DCh  ;dx:ax = 1193180
    mov dx,12h
    div fr

;запись коэффициента деления в 3-й канал таймера
    mov dx,ax
    mov al,0B6h
    out 43h,al
    mov al,dl
    out 42h,al
    mov al,dh
    out 42h,al

;включить динамик
    in al,61h
    or al,3
    out 61h,al

;задержка
    xor ax,ax
    mov es,ax
    mov ax,es:[46Ch]
    add ax,ms
delay:
    mov dx,es:[46Ch]
    cmp dx,ax
    ja exit_delay

    jmp delay
exit_delay:

;выключить динамик
    in al,61h
    and al,2
    out 61h,al
    popa
endm 

    

;приглашение ко вводу
start:
    lea dx,msg1
    call read_int
    jc exit
    mov freq,ax
    lea dx,msg2
    call read_int
    jc exit
    mov len,ax
    
    beep freq,len 
    
    jmp start  
exit:
    mov ax,4C00h
    int 21h


;--- Ввод целого числа ---
read_int  proc
 n= word ptr [bp-2]
    push bp
    mov bp,sp
    sub sp,2
    mov n,0
    mov ah,9  ;вывод промпта
    int 21h
@@read_char:  
    mov ah,8  ;ввод символа
    int 21h
    cmp al,27  ;ESC -> выход с CF = 1
    je @@cancel
    cmp al,13  ;CR -> завершение ввода
    je @@done
    cmp al,'0'  ;является ли введённый символ цифрой?
    jb @@read_char
    cmp al,'9'
    ja @@read_char
    push ax    ;эхопечать
    mov dx,ax
    mov ah,2
    int 21h
    pop bx
    sub bl,'0'  ;добавление цифры в результат
    xor bh,bh
    mov ax,10
    mul n
    add ax,bx
    mov n,ax
    jmp @@read_char
;выход с CF = 1
@@cancel:
    stc
    jmp @@exit
@@done:
;переход на новую строку
    mov dl,13
    mov ah,2
    int 21h
    mov dl,10
    mov ah,2
    int 21h
;выход с результатом в AX и CF = 0
    mov ax,n
    clc
@@exit:
    mov sp,bp
    pop bp
    ret
read_int  endp

.data?
freq    dw ?
len    dw ?

.const
msg1    db 'Chastota [Gtc]> $'
msg2    db 'Dlitelnost [1/18 c]> $'

end