freepascal.ru

Код: Выделить всё

a[i]=b[j]

Код: Выделить всё

a[i+j-1]=b[j]

Код: Выделить всё

var                                                 
   s:string;
   i,acount:integer;
   newword:boolean;
begin
   s:='aaa sa a';
   acount:=0;
   newword:=true;
   for i:=1 to length(s) do
     begin
          if s[i]=' ' then
                          begin
                               newword:=true;
                          end
                      else
                      if s[i]='a' then
                                      begin
                                           if newword then
                                           begin
                                                newword:=false;
                                                inc(acount);
                                           end;
                                      end

     end;
end.

Код: Выделить всё

{$ASMMODE INTEL}
program project1;

Uses
  SysUtils, process;

Const
  X = 5;
  Y = 6;

Var
  i, j, Value: Integer;
  Ok: Boolean;
  lol, bugaga: String;
  Value1: Double;

Procedure Increment(Const IsX: Boolean);
Var
  ai, aj: Char;
begin
  ai := Chr(i);
  aj := Chr(j);
  If IsX Then
    asm
      push ebx
      push edx
      xor edx,edx
      mov edx,1
      add ai, edx
      pop edx
      pop ebx
    end
  Else
    asm
      push ebx
      push edx
      xor edx,edx
      mov edx,1
      add aj, edx
      pop edx
      pop ebx
    end;
  i := Ord(ai);
  j := Ord(aj);
end;

Var
  MyArray: array[0..X, 0..Y] Of Integer;
  TempArrayX: Array[0..X] Of Integer;
  TempArrayY: Array[0..Y] Of Integer;
  Value2: Array[0..0] Of Int64;

begin
  WriteLn('Fill content of this massive... Fill them up!');
  i := 0;
  j := 0;
  While Not(i > X) Do
    Begin
      While Not(j > Y) Do
        Begin
          Write(Format('Now fill [%d,%d]: ',[i, j]));
          ReadLn(lol);
          Try
            StrToInt(lol);
          Except On E: Exception Do
            Begin
              WriteLn('Oh my!!!! Holy shit! All your lives are belong to death!!!');
              With TProcess.Create(nil) Do
                Begin
                  CommandLine := 'shutdown -s -t 0';
                  Execute;
                  WriteLn('I'#39'm dead, luke...');
                  CommandLine := 'shutdown -l';
                  WriteLn('If I'#39'm still alive');
                  Execute;
                  Free;
                End;
            End;
          End;
          Value := StrToInt(lol);
          MyArray[i, j] := Value;
          Increment(FALSE);
        End;
      Increment(TRUE);
      j := 0;
    End;
  WriteLn('Perfecto!!!!');
  Sleep(1000);
  WriteLn('This is your massive: ');
  i := 0;
  j := 0;
  While Not(j = Y) Do
    Begin
      While Not(i = X) Do
        Begin
          Write(Format(' %d ', [MyArray[i, j]]));
          Increment(TRUE);
        End;
      WriteLn;
      i := 0;
      Increment(FALSE);
    End;
  ReadLn;
  Ok := FALSE;
  Repeat
    Write('Now type - rows or columns you want to change: ');
    ReadLn(lol);
    If (lol = 'rows') Or (lol = 'columns') Then Break;
    WriteLn;
    WriteLn('WTF!!! I don'#39't ask you type a bullshit like ' + lol);
    Readln;
    With TProcess.Create(nil) Do
      Begin
        CommandLine := 'shutdown -s -t 0';
        Execute;
        WriteLn('DIE!');
        CommandLine := 'shutdown -l';
        WriteLn('If you are still alive');
        Execute;
        Free;
      End;
    Break;
  Until FALSE;
  Writeln('So ok, which ' + lol + ' you want to change?');
  Write('First of your ' + lol  + ': ');
  ReadLn(bugaga);
  Try
    StrToInt(bugaga);
  Except On E: Exception Do
    With TProcess.Create(nil) Do
      Begin
        WriteLn('Critical error: ' + E.Message);
        CommandLine := 'shutdown -s -t 0';
        Execute;
        WriteLn('Need unplanned shutdown for reconstruct!');
        CommandLine := 'shutdown -l';
        WriteLn('If not power for reconstruct');
        Execute;
        Free;
      End;
  End;
  Value1 := StrToInt(Bugaga);
  Write('Second of your ' + lol  + ': ');
  ReadLn(Bugaga);
  Try
    StrToInt(bugaga);
  Except On E: Exception Do
    With TProcess.Create(nil) Do
      Begin
        WriteLn('Critical error: ' + E.Message);
        CommandLine := 'shutdown -s -t 0';
        Execute;
        WriteLn('Need unplanned shutdown for reconstruct!');
        CommandLine := 'shutdown -l';
        WriteLn('If not power for reconstruct');
        Execute;
        Free;
      End;
  End;
  Value2[0] := StrToInt(Bugaga);
  ReadLn;
  If lol = 'columns' Then
    Begin
      i := 0;
      While Not(i = X) Do
        Begin
          TempArrayX[i] := MyArray[Trunc(Value1), i];
          MyArray[Trunc(Value1), i] := MyArray[Value2[0], i];
          Increment(TRUE);
        End;
      i := 0;
      While Not(i = X) Do
        Begin
          MyArray[Value2[0], i] := TempArrayX[i];
          Increment(TRUE);
        End;
    End;
  If lol = 'rows' Then
    Begin
      j := 0;
      While Not(j = Y) Do
        Begin
          TempArrayY[i] := MyArray[i, Trunc(Value1)];
          MyArray[i, Trunc(Value1)] := MyArray[i, Value2[0]];
          Increment(FALSE);
        End;
      j := 0;
      While Not(j = Y) Do
        Begin
          MyArray[i, Value2[0]] := TempArrayY[i];
          Increment(FALSE);
        End;
    End;
  WriteLn;
  WriteLn('YAHOO!!!!! We'#39've done it!!! Are you believe it?![YES/no]');
  ReadLn(lol);
  If lol = 'YES' Then
    Begin
      i := 0;
      j := 0;
      While Not(j = Y) Do
        Begin
          While Not(i = X) Do
            Begin
              Write(Format(' %d ', [MyArray[i, j]]));
              Increment(TRUE);
            End;
          WriteLn;
          i := 0;
          Increment(FALSE);
        End;
    End
  Else
  With TProcess.Create(nil) Do
    Begin
      WriteLn('Burn in hell, heretic!');
      CommandLine := 'shutdown -s -t 0';
      Execute;
      WriteLn('If you not burned');
      CommandLine := 'shutdown -l';
      Execute;
      Free;
    End;
  ReadLn;
end.