Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.944 RSS
←   Апрель 2012   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.944 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Pascal


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Академик
Рейтинг: 10374
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 7156
∙ повысить рейтинг » 		lamed
Статус: Академик
Рейтинг: 5945
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1234
Дата выхода:11.04.2012, 16:30
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:92 / 107
Вопросов / ответов:1 / 1

Консультация # 185784: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Помогите найти ошибку в коде. Задача: написать процедуру, упорядочивающую значения в типизированном файле. Возможно "врёт" файловый буфер. Как управлять им (и возможно ли) в Pascal ABC мне не известно. Мой код:

Код :

Консультация # 185784:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Помогите найти ошибку в коде.
Задача: написать процедуру, упорядочивающую значения в типизированном файле.
Возможно "врёт" файловый буфер. Как управлять им (и возможно ли) в Pascal ABC мне не известно.
Мой код:

Код :
procedure FileSort(Name: String);
var f: file of byte; i, j, min, PosMin, tmp: byte; 
begin
  assign(f,name);
  reset(f);
  for i:=0 to FileSize(f)-2 do
  begin
    seek(f,i);
    read(f,min);
{Поиск минимума}    
    for j:=i+1 to FileSize(f)-1 do
    begin
      seek(f,j);
      read(f,tmp);
      if tmp<min then
      begin
        min:=tmp;
        PosMin:=j
      end;
    end;
{Обмен}    
    seek(f,i);
    read(f,tmp);
    seek(f,i);
    write(f,min);      
    seek(f,PosMin);
    write(f,tmp);
  end;
  seek(f,0);
  while not eof(f) do
  begin
    read(f,tmp);
    write(tmp:4);
  end;
  close(f);
end;
var f: file of byte; s: string; i,x: byte;
begin
  s:='C:\PABCWork.NET\Pas\FileSort.dat';
  assign(f,s);
  rewrite(f);
  randomize;
  for i:=0 to 9 do
  begin
    x:=random(256);
    write(f,x);
    write(x:4);
  end;
  writeln;
  close(f);
  FileSort(s);
end.

Дата отправки: 08.04.2012, 16:10
Вопрос задал: Максим Юрьевич (7-й класс)
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Micren (Профессор):

Здравствуйте, Максим Юрьевич!
Достаточно сделать инициализацию PosMin:=i;
FreePascal:

Код :
procedure FileSort(Name: String);
var f: file of byte; i, j, min, PosMin, tmp: byte;
begin
  assign(f,name);
  reset(f);
  for i:=0 to FileSize(f)-2 do
  begin
    PosMin:=i;
    seek(f,i);
    read(f,min);
    {Поиск минимума}
    for j:=i+1 to FileSize(f)-1 do
    begin
      seek(f,j);
      read(f,tmp);
      if tmp<min then
      begin
        min:=tmp;
        PosMin:=j
      end;
    end;
    {Обмен}
    seek(f,i);
    read(f,tmp);
    seek(f,i);
    write(f,min);
    seek(f,PosMin);
    write(f,tmp);
  end;
  seek(f,0);
  while not eof(f) do
  begin
    read(f,tmp);
    write(tmp:4);
  end;
  close(f);
end;
var f: file of byte; s: string; i,x: byte;
begin
  s:='C:\PABCWork.NET\Pas\FileSort.dat';
  assign(f,s);
  rewrite(f);
  randomize;
  for i:=0 to 9 do
  begin
    x:=random(256);
    write(f,x);
    write(x:4);
  end;
  writeln;
  close(f);
  FileSort(s);
end.


Код :
/home/micren/projects/Pascal/test
 194 144 172  98 119  79 149  92  85 161
  79  85  92  98 119 144 149 161 172 194

Консультировал: Micren (Профессор)
Дата отправки: 08.04.2012, 16:55

5
нет комментария
-----
Дата оценки: 08.04.2012, 17:08
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное