Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2010, 15:09   #1
Kami-sama3
 
Регистрация: 17.12.2010
Сообщений: 9
Восклицание Сортировка елементов из файла. ПАСКАЛЬ!

Людишки нужно сортировку значений сделать и вывести. помогите плиз ,только пожалуйста в полном системном коде (обьяснений ненадо (сам разберусь)) ,а то уже намучался и никак немогу довести до ума Т_Т
Код:
Program kr1;

uses CRT;
        Type
                stroen=record
	             	stoimost:real;
                Tip:1..3;
                klient:record
	   	          kredit:real;
                          Vkb:real;
                          dolg:real;
	        End;
               Firma:string[30]; end;

Var
	      a,b,c,d:stroen;
        f1:file of stroen;
        i,j:integer;
        m:array[1..10] of stroen;

begin
      assign(f1,'f:\stroenie.txt');

     { rewrite(f1);
      writeln('Vvedite danie stroeni9I');
      for i:=1 to 3 do begin
          with a do begin

                        writeln('klient');
                        write('kredit'); readln (klient.kredit);
                        write('Cymma vklada v bank'); readln(klient.vkb);
                        write('Nevuplachena9I Cymma'); readln(klient.dolg);
                        write('stoimost'); readln(stoimost);
                        write('Sdelaite vibor Tipa stroeni9I:1-dom,2-garaz,3-hata'); readln(tip);
                        write('Firma-podporiadchik'); readln(Firma);
                        end;
                         write(f1,a);
                        end;

           close(f1);   }




       clrscr;
           reset(f1);
         while not(eof(f1))  do
         for i:=1 to filesize(f1) do begin
         read(f1,a);

           m[i]:=a;
           end;

         for i:=1 to filesize(f1)-1 do begin
             a:=m[i];

               for j:=i+1 to filesize(f1) do begin
                     c:=m[j];
                   if (a.tip)>(c.tip) then
                   d:=c;
                   c:=a;
                   a:=d;
                   m[i]:=a;
                   m[j]:=c;

                   end;
                   writeln(m[i].tip);
                   end;
                   close(f1);
                   readln;

                      end.

Последний раз редактировалось Kami-sama3; 20.12.2010 в 19:40.
Kami-sama3 вне форума Ответить с цитированием
Старый 20.12.2010, 15:19   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
Код:
 if a[i].tip>a[j].tip then
                   b:=a[i];
                   a[i]:=a[j];
                   a[j]:=b;
a это же структура а вы к ней как к массиву обращаетесь
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 20.12.2010, 15:22   #3
Kami-sama3
 
Регистрация: 17.12.2010
Сообщений: 9
По умолчанию

получаеться что да, но я не знаю как сделать норм
Kami-sama3 вне форума Ответить с цитированием
Старый 20.12.2010, 15:27   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

для сортировки предлагаю массив
Код:
m: array[1..10] of stroen;
к примеру
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 20.12.2010, 15:35   #5
Kami-sama3
 
Регистрация: 17.12.2010
Сообщений: 9
По умолчанию

Людишки нужно сортировку значений сделать и вывести. помогите плиз ,только пожалуйста в полном системном коде (обьяснений ненадо (сам разберусь)) ,а то уже намучался и никак немогу довести Т_Т
Код:
Program kr1;

uses CRT;
        Type
                stroen=record
	             	stoimost:real;
                Tip:1..3;
                klient:record
	   	          kredit:real;
                          Vkb:real;
                          dolg:real;
	        End;
               Firma:string[30]; end;

Var
	      a,b,c,d:stroen;
        f1:file of stroen;
        i,j:integer;
        m:array[1..10] of stroen;

begin
      assign(f1,'f:\stroenie.txt');

     { rewrite(f1);
      writeln('Vvedite danie stroeni9I');
      for i:=1 to 3 do begin
          with a do begin

                        writeln('klient');
                        write('kredit'); readln (klient.kredit);
                        write('Cymma vklada v bank'); readln(klient.vkb);
                        write('Nevuplachena9I Cymma'); readln(klient.dolg);
                        write('stoimost'); readln(stoimost);
                        write('Sdelaite vibor Tipa stroeni9I:1-dom,2-garaz,3-hata'); readln(tip);
                        write('Firma-podporiadchik'); readln(Firma);
                        end;
                         write(f1,a);
                        end;

           close(f1);   }




       clrscr;
           reset(f1);
         while not(eof(f1))  do
         for i:=1 to filesize(f1) do begin
         read(f1,a);

           m[i]:=a;
           end;

         for i:=1 to filesize(f1)-1 do begin
             a:=m[i];

               for j:=i+1 to filesize(f1) do begin
                     c:=m[j];
                   if (a.tip)>(c.tip) then
                   d:=c;
                   c:=a;
                   a:=d;
                   m[i]:=a;
                   m[j]:=c;

                   end;
                   writeln(m[i].tip);
                   end;
                   close(f1);
                   readln;

                      end.

Последний раз редактировалось Kami-sama3; 20.12.2010 в 19:41.
Kami-sama3 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сортировка из файла west.by Помощь студентам 15 12.06.2010 04:44
паскаль,одномерный массив,сортировка вставка,сортировка убывания,от максимального до конца немозг Помощь студентам 11 06.02.2010 21:57
Сортировка файла Dem6 Паскаль, Turbo Pascal, PascalABC.NET 5 07.04.2009 12:23
список елементов окна Програмёр Общие вопросы Delphi 1 23.02.2008 23:58
Типизированные файлы.Создание, удаление, редактирование, сортировка записей типизированного файла.Паскаль Студент Шиза Помощь студентам 6 08.12.2007 13:41