Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не выполняется код 
:(
    Опции темы
gambit
Дата 11.10.2006, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
Обьясните почему кусок кода помеченый коментарием 1-5 не выполняется никогда???
Код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var f:textfile;
var n,i:integer;
var m: array of string;

begin
assignfile(f,'input.txt');
reset(f);
readln(f,n);
setlength(m,n);
for i:=0 to n do
readln(f,m[i]);
closefile(f);                          //1

assignfile(f,'output.txt');     //2
rewrite(f);                           //3
for i:=n downto 0 do          //4
writeln(f,m[i]);                    //5
closefile(f);                          
end.
PM MAIL ICQ Skype   Вверх
ASGDeveloper
Дата 11.10.2006, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


developer
**


Профиль
Группа: Участник
Сообщений: 389
Регистрация: 1.4.2006

Репутация: 1
Всего: 1
Цитата(gambit @  11.10.2006,  13:35 Найти цитируемый пост)
Обьясните почему кусок кода помеченый коментарием 1-5 не выполняется никогда???

Попробуй отключить оптимизацию в настройках проекта.
PM MAIL   Вверх
Snowy
Дата 11.10.2006, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Я думаю, что банально вылетает по ошибке.
PM MAIL   Вверх
gambit
Дата 11.10.2006, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
Пробал на многих машинах, везде такая фигня, откл. оптимизиции не помогает!!
PM MAIL ICQ Skype   Вверх
Alexeis
Дата 11.10.2006, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
gambit, выполгяется нормально, нажал F9 все строчки пометелись точками без всякого отключения оптимизации.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Guedda
Дата 11.10.2006, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Попробуй так:
Код

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
  var f,g:textfile;
var n,i:integer;
var m: array of string;
begin
assignfile(f,'input.txt');
reset(f);
readln(f,n);
setlength(m,n);
for i:=0 to n do
readln(f,m[i]);
closefile(f);                          //1
assignfile(g,'output.txt');     //2
rewrite(g);                           //3
for i:=n downto 0 do          //4
writeln(g,m[i]);                    //5
closefile(g);                          
end.


Либо после первого CLoseFile делай Flush(f);


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Rodman
Дата 11.10.2006, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
а так???
Код

var f:textfile;
     n,i:integer; 
     m: array of string;
begin
assignfile(f,'input.txt');
reset(f);
readln(f,n);
setlength(m,n);
for i:=0 to n do
readln(f,m[i]);
closefile(f);                          //1
assignfile(f,'output.txt');     //2
rewrite(f);                           //3
for i:=n downto 0 do          //4
writeln(f,m[i]);                    //5
closefile(f);                          
end.


не знаю поможет ли, но строки которые не выполняются, содержат переменные которые были во втором и третьем var


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Snowy
Дата 11.10.2006, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(gambit @  11.10.2006,  13:35 Найти цитируемый пост)
for i:=0 to n do
PM MAIL   Вверх
gambit
Дата 11.10.2006, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
alexeis1, Попробуй пошаговая отладка!!! После выполнения 1 цикла прога перескакивает на конец пропуская кусок. А то что точками они помечаются это я и так знаю
PM MAIL ICQ Skype   Вверх
Snowy
Дата 11.10.2006, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Значит тонких намёков не понимаем.....
У ТЕБЯ ОШИБКА В СТРОКЕ

Цитата(gambit @  11.10.2006,  13:35 Найти цитируемый пост)
for i:=0 to n do
и
Цитата(gambit @  11.10.2006,  13:35 Найти цитируемый пост)
for i:=n downto 0 do

Добавлено @ 16:03 

Надо:
Код

  for i:=0 to n - 1 do


Код

  for i:=n-1 downto 0 do

Добавлено @ 16:04 

Хоть этот мой пост кто-нить заметил?
Или дальше гадать будете?
PM MAIL   Вверх
gambit
Дата 11.10.2006, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
Snowy,  тонкие намеки я понимаю, просто у меня небыло возможности написать. Большое спасибо, ты уже не первый раз мне помогаеш!!

Код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var f:textfile;
var n,i:integer;
var m: array of string;




begin
assignfile(f,'input.txt');
reset(f);
readln(f,n);
setlength(m,n);
dec(n); //Вот так
for i:=0 to n do
readln(f,m[i]);
closefile(f);

assignfile(output,'output.txt');
rewrite(output);
for i:=n downto 0 do
writeln(output,m[i]);
closefile(output);
end.
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0583 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.