|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.05.2008, 11:58 | #1 |
Пользователь
Регистрация: 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 } |
19.05.2008, 12:10 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ошибка наверное в том что автор понятия не имеет на какую ошибку попал.
Как по мне код работает без особых проблем...
I'm learning to live...
Последний раз редактировалось Stilet; 19.05.2008 в 12:14. |
19.05.2008, 12:18 | #3 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 20
|
|
19.05.2008, 12:19 | #4 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Vladislav_87, оформляйте листинг тэгом CODE и сообщайте в чём именно ошибка.
P.S. И не надо столько глаголов в повелительном наклонении в названии темы. |
19.05.2008, 13:40 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Подтверждаю. Код - РАБОЧИЙ.
Ctrl-F9 нажал, меня спросило имя файла, ввёл имя, отработатала программа... что не так?! У Вас в файле не то, что надо?! ну так определитесь, что Вам надо, заполните файл правильно и всё будет. |
19.05.2008, 14:06 | #6 |
Пользователь
Регистрация: 15.05.2008
Сообщений: 20
|
Serge_Bliznykov -а почему у меня не работает?
|
19.05.2008, 16:35 | #7 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Хороший вопрос. Для того чтоб ответить на вопрос "Почему не работает" нужно узнать "Что она должна делать".
Можно конечно посидеть над кодом, но этим врятли ктото занимается.... 1. Полное условие задачи. 2. Где возникает ошибка. Текст ошибки. 3. Что именно вам не нравится в работе программы. 4. От себя......
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
20.05.2008, 18:11 | #8 | |
Пользователь
Регистрация: 15.05.2008
Сообщений: 20
|
Цитата:
|
|
20.05.2008, 20:46 | #9 | |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Vladislav_87, да дай же нам ТЕКСТ ошибки! Чем ругается компилятор?
А то из этого, извиняюсь, бреда: Цитата:
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить ошибку в задаче | 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 |