Описание алгоритма пожалуйста помогите

Тема в разделе "Свободное общение", создана пользователем -, 5 май 2008.

  1. Гость

    program
    { Including necessary modules }
    Uses Crt;

    { Constants part }
    Const
    MAX_SIZE = 1000;

    { Variables description }
    Var
    F : Text;
    TmpData, FName : String;
    Data, Stack, Queue : Array[1..MAX_SIZE] Of Integer;
    I, P, Err, Number, QueuePointer, StackPointer : Integer;


    { Main program part }
    Begin
    { Initialize variables }
    StackPointer := 1;
    QueuePointer := 1;
    P := 1;

    { Clearing screen }
    ClrScr;

    { Request file name }
    Write('Input file name with data:');
    ReadLn(FName);

    Assign(F, FName);
    {$I-}
    Reset(F);
    {$I+}
    If (IOResult <> 0) Then
    Begin
    WriteLn('File not found');
    WriteLn('Press any key to continue...');
    ReadKey;
    Halt;
    End;

    { Reading data }
    While Not Eof(F) Do
    Begin
    ReadLn(F, TmpData);
    Val(TmpData, Number, Err);

    { Only if readed data is a number }
    If (Err = 0) Then
    Begin
    { Only if maximum number of numbers not reached }
    If (P < MAX_SIZE) Then
    Begin
    Data[P] := Number;

    { Even numbers to stack }
    If (Data[P] mod 2 = 0) Then
    Begin
    Stack[StackPointer] := Data[P];
    Inc(StackPointer);
    End Else
    Begin
    Queue[QueuePointer] := Data[P];
    Inc(QueuePointer);
    End;



    Влад87
    Кто може помочь мне рисунок описание алгоритма
     
  2. WKBAPKA

    WKBAPKA Гость

    ну паскаль, работа с файлами, алгоритм простой, даже комментарии есть )
     
Загрузка...

Поделиться этой страницей