Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2008, 11:58   #1
Vladislav_87
Пользователь
 
Регистрация: 15.05.2008
Сообщений: 20
По умолчанию Пожалуйста срочно помочь мне исправить ошибку в задаче

{ 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;

Inc(P);
End;
End;
End;


{ Closing file }
Close(F);

{ Printing results }
WriteLn('Source data:');
For I := 1 To P-1 Do Write(Data[I], ' ');
WriteLn;

WriteLn;
WriteLn('Stack data:');
For I := StackPointer-1 DownTo 1 Do Write(Stack[I], ' ');
WriteLn;

WriteLn;
WriteLn('Queue data:');
For I := 1 To QueuePointer-1 Do Write(Queue[I], ' ');
WriteLn;

{ Waiting for a key }
WriteLn;
WriteLn('Press any key to continue...');
ReadKey;
End. { End of 'main' part }
Vladislav_87 вне форума Ответить с цитированием
Старый 19.05.2008, 12:10   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ошибка наверное в том что автор понятия не имеет на какую ошибку попал.

Как по мне код работает без особых проблем...
I'm learning to live...

Последний раз редактировалось Stilet; 19.05.2008 в 12:14.
Stilet вне форума Ответить с цитированием
Старый 19.05.2008, 12:18   #3
Vladislav_87
Пользователь
 
Регистрация: 15.05.2008
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Ошибка наверное в том что автор понятия не имеет на какую ошибку попал.

Как по мне код работает без особых проблем...
Stilet - ты попробуешь нажми Ctrl +F9
Vladislav_87 вне форума Ответить с цитированием
Старый 19.05.2008, 12:19   #4
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Vladislav_87, оформляйте листинг тэгом CODE и сообщайте в чём именно ошибка.

P.S. И не надо столько глаголов в повелительном наклонении в названии темы.
B_N вне форума Ответить с цитированием
Старый 19.05.2008, 13:40   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Подтверждаю. Код - РАБОЧИЙ.
Ctrl-F9 нажал, меня спросило имя файла, ввёл имя, отработатала программа...
что не так?! У Вас в файле не то, что надо?! ну так определитесь, что Вам надо, заполните файл правильно и всё будет.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.05.2008, 14:06   #6
Vladislav_87
Пользователь
 
Регистрация: 15.05.2008
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Подтверждаю. Код - РАБОЧИЙ.
Ctrl-F9 нажал, меня спросило имя файла, ввёл имя, отработатала программа...
что не так?! У Вас в файле не то, что надо?! ну так определитесь, что Вам надо, заполните файл правильно и всё будет.
Serge_Bliznykov -а почему у меня не работает?
Vladislav_87 вне форума Ответить с цитированием
Старый 19.05.2008, 16:35   #7
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Цитата:
Сообщение от Vladislav_87 Посмотреть сообщение
Serge_Bliznykov -а почему у меня не работает?
Хороший вопрос. Для того чтоб ответить на вопрос "Почему не работает" нужно узнать "Что она должна делать".
Можно конечно посидеть над кодом, но этим врятли ктото занимается....

1. Полное условие задачи.
2. Где возникает ошибка. Текст ошибки.
3. Что именно вам не нравится в работе программы.
4. От себя......
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 20.05.2008, 18:11   #8
Vladislav_87
Пользователь
 
Регистрация: 15.05.2008
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Карась Посмотреть сообщение
Хороший вопрос. Для того чтоб ответить на вопрос "Почему не работает" нужно узнать "Что она должна делать".
Можно конечно посидеть над кодом, но этим врятли ктото занимается....

1. Полное условие задачи.
2. Где возникает ошибка. Текст ошибки.
3. Что именно вам не нравится в работе программы.
4. От себя......
Карась - я убрал текст,и совсем нечего не получилось.я нажимал ентер кнопку и дальше были результати,и я нажимал цифри и дальше ок но получилось выключение программи.пожалуйста если сможешь исправь ету задачу
Vladislav_87 вне форума Ответить с цитированием
Старый 20.05.2008, 20:46   #9
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

Vladislav_87, да дай же нам ТЕКСТ ошибки! Чем ругается компилятор?
А то из этого, извиняюсь, бреда:
Цитата:
нажимал ентер кнопку и дальше были результати,и я нажимал цифри и дальше ок но получилось выключение программи
Ничего не понятно.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите исправить ошибку в задаче Vladislav_87 Паскаль, Turbo Pascal, PascalABC.NET 4 04.07.2008 12:27
Помогите пожалуйста найти и исправить ошибку Sam04 Паскаль, Turbo Pascal, PascalABC.NET 4 10.06.2008 08:28
Прошу помощи. Нада проверить правильность составления проги. И помочь исправить ошибку Ascor Общие вопросы C/C++ 4 03.06.2008 10:54
Помогите дописать и исправить ошибку в задаче Vladislav_87 Паскаль, Turbo Pascal, PascalABC.NET 5 30.05.2008 00:14
Помогите исправить ошибку в задаче VANOLORD Паскаль, Turbo Pascal, PascalABC.NET 9 19.05.2008 22:16