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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как зделать ету задачу!!! HELP!!! 
:(
    Опции темы
Славан
Дата 11.11.2005, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 4.11.2005
Где: Киев

Репутация: нет
Всего: нет
Я зделал ету задачу:
Код

const
  max = 1000;
type
  TVector= array[1..max] of byte;
var
  vector:TVector;
  i,m: integer;
  f,f1:text;
procedure Vec(m:integer; var v:Tvector);
var
  B:byte;
  i,k:integer;
begin
 for k:=m downto 2 do
 for i:=1 to k-1 do
 if vector[i]> vector[i+1] then
           begin
            B:=vector[i];
            vector[i]:=vector[i+1];
            vector[i+1]:=B;
           end;
end;
  begin
  assign(f,'z3.dat');
  assign(f1,'z3.sol');
  reset(f);
  i:=1;
  while not eof(f) do
   begin
    read(f,vector[i]);
    inc(i);
   end;
   close(f);

   m:=i-1;
  Vec(m,vector);
   rewrite(f1);
   for i:=1 to m-1  do Write(f1,vector[i],' ');
   Write(f1,vector[m]);
  close(f1);
end.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

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

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

2. Публиковать ссылки на варез

3. Оффтопить

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

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


 




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


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

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