Мастера 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 15:13:00) [1]
Stasxxx © (22.01.08 15:08) [73]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

учить наизусть.

животрепещущую дискуссию можно смело закрывать.

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

> > Stasxxx ©
>
>
> Хочу заметить следующее:
> 1. Здесь тебе никто не напишет код просто так.
> 2. Здесь тебе никто не будет ничего объяснять просто так.
>
> 3. Здесь тебе никто не будет отвечать на пространные вопросы.
>
> 4. Очень часто встречается ответ "function ... + F1". Это
> означает, что нужно посмотреть хелп по этой функции, код
> тебе писать никто не будет.
>
> Если всё это тебя не устраивает - иди либо в дворники, либо
> в солдаты; программирование не для лентяев и идиотов.

Ты слишком много не по сути говоришь! Будут говорить не будут, тебя это касаться не должно, не хочешь помогать, тебя ни кто не уговаривает. Читай другие тесы форума. И умничать не нужго на счет дворнков. Я проффисиональный водитель, я себе работу найду, не бери слишком много на себя, не ищи мне работу!

Плохиш (2008-01-22 15:11:00) [3]

> Ega23 © (22.01.08 15:07) [72]

Забыл главный пункт :-)

0. Здесь никто никому ничего не должен

:-)

Сергей М. (2008-01-22 15:10:00) [4]

> сделать программу мне нужно в дельфи в оконом приложение

Неужели препод по т.н. предмету "Программирование" прямо так и сказал - "сделать программу нужно в дельфив оконом приложени е" ?!

Stasxxx (2008-01-22 15:08:00) [5]

> Спасайся кто может ?)

Предмет программирование! А сделать программу мне нужно в дельфи в оконом приложение, кто изас дурак так это уж ты! Ты на самом деле зря смеешься!Смешного я ничего не сказал.

Ega23 (2008-01-22 15:07:00) [6]

> Stasxxx ©

Хочу заметить следующее:
1. Здесь тебе никто не напишет код просто так.
2. Здесь тебе никто не будет ничего объяснять просто так.
3. Здесь тебе никто не будет отвечать на пространные вопросы.
4. Очень часто встречается ответ "function ... + F1". Это означает, что нужно посмотреть хелп по этой функции, код тебе писать никто не будет.

Если всё это тебя не устраивает - иди либо в дворники, либо в солдаты; программирование не для лентяев и идиотов.

Сергей М. (2008-01-22 15:05:00) [7]

> Могу очень грубо ответить!

Спасайся кто может ?)

Skyle (2008-01-22 15:05:00) [8]
Всё-таки верить похоже будем реализации.
Считай, что Button1Click написано верно, но очень грязно.

Переходим к следующей процедуре.
Button3Click.

можешь словами написать, как ты здесь сортируешь файл?

Сергей М. (2008-01-22 15:04:00) [9]

> Программирование! В среде делфи, в оконном приложении!

ты точно дурак)

Нет такого предмета.
И быть не может.

Stasxxx (2008-01-22 15:03:00) [10]

> файл f2 должен быть такой: 133335
>
>
> Ты дурак или прикидываешься ?
> Где тут "невозрастание" ?)

Ошибочка вышла! Наоборот должно быть! Оскорбления тут ни к чему, а то я тут еле сдержваюсь, уже нервы сдают!!!!Могу очень грубо ответить!

Ega23 (2008-01-22 15:03:00) [11]

> Stasxxx © (22.01.08 14:43) [54]
>
>
> > Продолжаем разговор.
> >
> > Кинь сюда пример содержимого файла F:\chisla1.txt
>
> 356436463143 это все!
>

Ну и что это?
Числа 3, 5, 64, 36, 463, 1, 43?
Или числа 3564, 3646, 3143?
Или как-то по-другому?

Сергей М. (2008-01-22 15:02:00) [12]

> этим я займусь позже

Да щщщассс !

Или "этим" ты займешься прямо сейчас или "это" тебе не дано.

Выбирай ?)

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

> файл f2 должен быть такой: 133335

Ты дурак или прикидываешься ?
Где тут "невозрастание" ?)

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

> Ну и "триумфальные" действия - последовательный вызов процедур
> 1,2,3 при клике на кнопку.
>
> Т.е. еще одна процедура. Точнее процедурный метод объекта.
>
>
> Предмет-то как зовется - программирование на языке Паскаль
> ? [Визуальное] Программирование в среде Delphi ?

Программирование! В среде делфи, в оконном приложении!

Сергей М. (2008-01-22 14:58:00) [15]
Ну и "триумфальные" действия - последовательный вызов процедур 1,2,3 при клике на кнопку.

Т.е. еще одна процедура. Точнее процедурный метод объекта.

Предмет-то как зовется - программирование на языке Паскаль ? [Визуальное] Программирование в среде Delphi ?

Stasxxx (2008-01-22 14:58:00) [16]

>
> > разделил и сделал двумя кнопками
>
>
> Почему не одной ? Не тремя ? Не шестью ?
>
> Структура программы прямо-таки напрашивается:
>
> - процедура №1 читает исходные данные из файла в память
> (в массив или в список - не суть как важно)
>
> - процедура №2 выполняет ключевые действия над прочитанными
> данными - сортировка и фильтрация
>
> - процедура №3 записывает результаты работы процедуры №2
> из памяти в файл
> <Цитата>

Я это понимаю все прекрасно, я не понимаю как реализовать, я же говорю, я только учусь, а сейчас изучать книги у меня нет веремени, этим я займусь позже, сейчас мне нужно сдать эту задачу.

Stasxxx (2008-01-22 14:56:00) [17]

> А где же тут сортировка?

Так я же говорю сортировка с помощью другой кнопки организованна!По идеии файл f2 должен быть такой: 133335

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

> разделил и сделал двумя кнопками

Почему не одной ? Не тремя ? Не шестью ?

Структура программы прямо-таки напрашивается:

- процедура №1 читает исходные данные из файла в память (в массив или в список - не суть как важно)

- процедура №2 выполняет ключевыедействия над прочитанными данными - сортировка и фильтрация

- процедура №3 записывает результаты работы процедуры №2 из памяти в файл

Skyle (2008-01-22 14:54:00) [19]

> Stasxxx © (22.01.08 14:53) [58]
> Не заметил [55] 353313

А где же тут сортировка?

Stasxxx (2008-01-22 14:53:00) [20]
Не заметил [55] 353313

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

Наверх

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