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

  • Автор темы -
  • Дата начала

Гость
#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
Кто може помочь мне рисунок описание алгоритма
 
W

WKBAPKA

Гость
#2
ну паскаль, работа с файлами, алгоритм простой, даже комментарии есть )