Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с задачей. [D7, XP]

Страницы: < 1 2 3 4 >
Stasxxx © (2008-01-22 12:58:00)
var
Form1: TForm1;
f1:textfile;
s1,s2,m:string;
k:longint;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
f2:textfile;
begin
assignFile(f1,'F:\chisla1.txt');
assignfile(f2,'F:\chisla2.txt');
{$I-}
reset(f1);
rewrite(f2);

{$I+}
if IOResult0 then
begin
Messagedlg('Îøèáêà äîñòïà ê ôàéëó',mterror,[mbok],0);
exit;
end;
While not (Eof(f1)) do
Begin
If (Eof(f1)) Then
begin
messagedlg('Ôàéë ïóñò',mterror,[mbok],0);
exit;
end;
ReadLn(f1,s1);

begin
for i:=1 To Length(s1) do
begin
n:=strtoint(s1[i]);
if (n mod 2)0
then
begin
m:=inttostr(n);
write(f2,m);
end;
Label1.Caption:='×èñëà â ôàéë çàïèñàíû...'+#13;

end;
end;
end;
Closefile(f1);
Closefile(f2);
assignfile(f2,'F:\chisla2.txt');
reset(f2);
readln(f2,s2);
k:=length(s2);
closefile(f2);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
f:file of integer;
buf1,buf2,m:integer;
n:longint;
ok:boolean;
begin
assignfile(f,'F:\chisla2.txt');
reset(f);
repeat
ok:=true;
for n:=0 to k-2 do
begin
seek(f,n);
read(f,buf1);
read(f,buf2);
if buf1>buf2 then
begin
seek(f,0);
write(f,buf2);
write(f,buf1);
ok:=false;
end;
end;
until ok;
closefile(f);
end;
end.

Вот код задачи, компиляция проходит, когда начинаешь сортировать, выходит ощибка, read beyond end of file, подскажите в чем проблема!

Сергей М. (2008-01-22 14:19:00) [41]

> Stasxxx © (22.01.08 13:49) [25]

> Дан файл А целых чисел

В задании не сказано, что файл текстовый.
А ты работаешь с ним как с текстовым.

> Получить новый файл С всех нечетных чисел файла А, которые
> должны быть упорядочены по невозрастанию

Опять же формат результирующего файла не упомянут.
Почему же он у тебя обязательно текстовый ?

И какой алгоритм сортировки ты применил ?
Если эти вопросы тебе задаст препод, ты не сможешь на них ответить, что равносильно "низачоту".

Stasxxx (2008-01-22 14:10:00) [42]

> > Какая разница как у меня описан, textfile или file of
> integer
> > в первой процедуре? Там задача работает правильно, она
> записывает
> > нечетные числа как и должна, а=она не работает во второй
>
> > процедуре! Когда нужно отсортировать эти числа!
>
> Рыдал... Здесь делать нечего. Нельзя объяснить что-то индивидуму,
> который не имеет ни малейшего представления об основах.
>

А что ты объяснить пытался, ты мне скажи? Ты хоть что нибудь сказал, кроме твоих "очень остроумных" приколов? Сайт для новиков, вот и объяснил бы, а не умничал, или лучше бы код написал, я бы был бы благодарен!

Stasxxx (2008-01-22 14:06:00) [43]
Сайт называется для начинающих, и типа помощь им, а вот реальной помощи я не вижу тут.

Плохиш (2008-01-22 14:06:00) [44]

> Какая разница как у меня описан, textfile или file of integer
> в первой процедуре? Там задача работает правильно, она записывает
> нечетные числа как и должна, а=она не работает во второй
> процедуре! Когда нужно отсортировать эти числа!

Рыдал... Здесь делать нечего. Нельзя объяснить что-то индивидуму, который не имеет ни малейшего представления об основах.

Stasxxx (2008-01-22 13:59:00) [45]

> Вот, просто интересно, по каким критериям в приведённом
> "коде" используются textfile и file of integer при доступе
> к одному и тому же физическому файлу?

Какая разница как у меня описан, textfile или file of integer в первой процедуре? Там задача работает правильно, она записывает нечетные числа как и должна, а=она не работает во второй процедуре! Когда нужно отсортировать эти числа!

Stasxxx (2008-01-22 13:56:00) [46]

>
> Это уже гораздо интереснее.
> Но всё равно, до конца непонятно. Что значит файл целых
> чисел? Каков его формат? Каков должен быть формат второго
> файла? Каким образом преподавательн будет просмотривать
> результирующий файл?
>
> И т.п.
>
> З.Ы. Учиться надо в семестре, а не на сессии.

Самое смешное, что это нам дали на самостоятельное изучение, и дали срок, неделю. А во время этого идут другие экзамены, их учить надо.

Stasxxx (2008-01-22 13:53:00) [47]

> Не знаю как Плохиш, а лично я - старший сержант запаса,
> спецназ ВВ МВД РФ.
>
> И ничо. Живой. :)

Ну мужик, че сказать! Интересное совмещение, старший сержант запаса,
спецназ ВВ МВД РФ и программист, или это твое хобби?

Плохиш (2008-01-22 13:53:00) [48]

> Stasxxx © (22.01.08 13:49) [25]

> Вот задача! Дан файл А целых чисел. Получить новый файл
> С всех нечетных чисел файла А, которые должны быть упорядочены
> по невозрастанию.

Вот, просто интересно, по каким критериям в приведённом "коде" используются textfileи file of integerпри доступе к одному и тому же физическому файлу?

Ega23 (2008-01-22 13:52:00) [49]

> Вот задача! Дан файл А целых чисел. Получить новый файл
> С всех нечетных чисел файла А, которые должны быть упорядочены
> по невозрастанию.

Это уже гораздо интереснее.
Но всё равно, до конца непонятно. Что значит файл целых чисел? Каков его формат? Каков должен быть формат второго файла? Каким образом преподавательн будет просмотривать результирующий файл?

И т.п.

З.Ы. Учиться надо в семестре, а не на сессии.

Stasxxx (2008-01-22 13:50:00) [50]

> Тебе же перевели с буржуйского на русский текст сообщения
> об ошибке - это разве не помощь ?

Перевести то я и сам могу, я же не с таким вопрос обращался обращался!

Stasxxx (2008-01-22 13:50:00) [51]

> Тебе же перевели с буржуйского на русский текст сообщения
> об ошибке - это разве не помощь ?

Перевести то я и сам могу, я же не с таким вопрос обращался обращался!

Ega23 (2008-01-22 13:49:00) [52]

> А ты остроумный я смотрю!!!Ну и как ты там пожил в армии?
> Судя по многоточиям не очень хорошо!!!

Не знаю как Плохиш, а лично я - старший сержант запаса, спецназ ВВ МВД РФ.

И ничо. Живой. :)

Stasxxx (2008-01-22 13:49:00) [53]

>
> Ты вот даже задачу не соизволил изложить в оригинальной
> ее постановке.
> Не царское дело что ли ?)
> <Цитата>

Вот задача! Дан файл А целых чисел. Получить новый файл С всех нечетных чисел файла А, которые должны быть упорядочены по невозрастанию.

Stasxxx (2008-01-22 13:47:00) [54]

> Да, тут рыбу не подают, тут учат удочкой пользоваться...

Ты тут для находишься? Советы даешь или умничаешь?

Сергей М. (2008-01-22 13:45:00) [55]

> задачу в любом случае разберу

Ты вот даже задачу не соизволил изложить в оригинальной ее постановке.
Не царское дело что ли ?)

Stasxxx (2008-01-22 13:45:00) [56]

> В армии тоже жить можно...

А ты остроумный я смотрю!!!Ну и как ты там пожил в армии? Судя по многоточиям не очень хорошо!!!

Плохиш (2008-01-22 13:44:00) [57]

> Stasxxx © (22.01.08 13:42) [19]

Да, тут рыбу не подают, тут учат удочкой пользоваться...

Сергей М. (2008-01-22 13:44:00) [58]

> тут помощи не дождешься

Тебе же перевели с буржуйского на русский текст сообщения об ошибке - это разве не помощь ?

Stasxxx (2008-01-22 13:42:00) [59]

> Зачем ?
>
> Чтобы ты не вникая сдал его преподу как свой собственный
> код ?

У нас не такой препод, ему просто не даш, не понимая, я задачу в любом случае разберу, короче ребята я смотрю тут помощи не дождешься!

Плохиш (2008-01-22 13:40:00) [60]

> Stasxxx © (22.01.08 13:39) [17]

В армии тоже жить можно...

Страницы: < 1 2 3 4 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »