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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  source: string;
  lexem: string;
  c : char;
  i:Integer;
  stack: array[0..100] of string;
  stackPointer: integer;

  procedure PushLexem(lexem: string);
  begin
    if lexem = 'end' then
      begin
      //найден конец блока, выталкиваем из стека
      if stackPointer = 0 then
        Writeln('Error: Found "end", but not found "begin", "case" or "record"')
      else
        dec(stackPointer)
      end
    else
      if (lexem='begin') or (lexem='case') or (lexem='record') then
        begin
          if(stackPointer>=Length(stack)) then
             Writeln('Error: Stack overflow');//переполнение стека - слишком много вложенных блоков в исходном тексте
          //кладем лексему в стек
          stack[stackPointer] := lexem;
          inc(stackPointer);
        end
  end;

begin
  //ввод проверяемого кода
  Writeln('Enter Pascal source: ');
  Readln(source);
  //переводим в нижний регистр, добавляем пробел в конце
  source := LowerCase(source)+' ';
  //перебираем символы, ищем лексемы
  lexem := '';
  for i:=1 to Length(source) do
  begin
    c := source[i];
    if c in ['a'..'z','0'..'9','_'] then
      //читаем лексему
      lexem := lexem + c
    else
    if lexem<>'' then
      begin
      //прочитана лексема, кладем в стек
      PushLexem(lexem);
      lexem := '';
      end
  end;
  //проверяем сотсояние стека, он должен быть пуст
  if stackPointer > 0 then
     Writeln('Error: Found "'+stack[stackPointer-1]+'", but not found "end"');

  Writeln('Analysis completed');
  Readln;

end.

#include<iostream>
using namespace std;
void swap(int *p1, int *p2);
int main()
{
int p[10];
	int i;
	for (i=0;i<10;i++){
	cout << "Enter array's element #"<<i+1<<"\n";
	cin >> p[i];
	if(p[i]<0 || p[i]>2)
	{ cout << "Error\n";
		break;
		
	}
	}
for(i=0;i<10;i++)
{
	for (int j=0;j<9;j++)
	{
		if (p[j]>p[j+1])
			swap (&p[j], &p[j+1]);
	}
}
for (i=0;i<10;i++)
	cout << p[i]<<" ";
return 0;
}
void swap(int *p1, int *p2)
{
	int temp=*p1;
	*p1=*p2;
	*p2=temp;
}

puts MACRO src         ; print string to STDOUT
 IFB <src>	                                     
  display "Use macro: puts <string>"
  EXITM								
 ELSE
  push ax
  push dx
  lea dx,src 						
  mov ah,09h						
  int 21h							
  pop dx
  pop ax
 ENDIF 								
ENDM

gets MACRO dst         ; read string from STDIN
local _read, _done                

 IFB <dst>                          
  display "Use macro: gets <dst>"   
  EXITM								
 ELSE 
   push ax
   push bx
   lea bx, dst            
    _read:     
      getc
      cmp al, 13
      je _done        
      mov [bx], al
      inc bx
      jmp _read
    _done:
      putc 0Ah
   pop bx
   pop ax   
 ENDIF   
ENDM