VPF::Помогите с блок-схемами!!!! - Форум программистов

avaness

Дата 4.5.2006, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Прошу помочь в написании блок-схем для процедуры:
1.

Код


procedure Sort(FileName:string; Sortby:integer);{сортирует записи по заданным параметрам}

var mas:array of auto;
    k: array of integer;
    f:file of auto;
    N,i,j,x:integer;
  function Compare(i,sortby:integer):boolean;
      begin
    case sortby of
    1:Result:=mas[k[i]].marka>mas[k[i+1]].marka;
    2:Result:=mas[k[i]].tip_auto>mas[k[i+1]].tip_auto;
    3:Result:=mas[k[i]].Color>mas[k[i+1]].Color;
    4:Result:=mas[k[i]].God_vypuska>mas[k[i+1]].God_vypuska;
    5:Result:=mas[k[i]].cenu>mas[k[i+1]].cenu;

          else
            Result:=mas[k[i]].marka>mas[k[i+1]].marka;
    end;{case}
  end;  {end function Compare}
begin
  Assign(f,FileName);
  Reset(f);
  N:=FileSize(f);
  Setlength(mas,N);
  Setlength(k,N);
  For i:=0 to N-1 do
                    begin
                      read(f,mas[i]);
                      k[i]:=i;
                    end;
  For j:=1 to N-1 do
  For i:=0 to N-j-1 do
      if Compare(i,sortby) then
                           begin
                            x:=k[i];
                            k[i]:=k[i+1];
                            k[i+1]:=x;
                           end;
      for i:=0 to N-1 do begin
                          Writeln('Rec # ',i+1);
                          writeln('********');
                          PrintRec(mas[k[i]]);
                         end;
end; {end procedure Sort}

Это сообщение отредактировал(а) Girder - 5.5.2006, 08:29

avaness

Дата 4.5.2006, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Код


Procedure Find (fileName:string;x:string);{поиск записи} 
  var  f:file of auto;
       p:auto; I:integer;
   begin
        assign(f, filename);
        i:=0;
        if fileExists(fileName) then
          begin
            reset(f);
            while not Eof(F) do
               begin
                   Read(f,P);
                   If P.Marka=X then
                          begin
                            PrintRec(P);
                            Inc(I);
                          end;
               end;
            close(f);
            Writeln('***All record find*** - ',i);
         end; {if}
    end;

Код


 Procedure Delete(FileName,Marka:string);{удаление записи}
var
   f,f1: file of auto;
   cnt:integer;
   P:auto;
begin
  Assign(f,filename);
cnt:=0;
  if fileexists(filename) then
  begin
       reset(f);
       Assign(f1,'temp.dat');
       Rewrite(f1);
       While not Eof(f) do
         begin
             read(f,P);
             If P.marka<> Marka then
                begin
                  Write(F1,P);
                  //writeln(Marka,'   ',P.marka);
                end
                  else
                      Inc(cnt);
         end;
  Close(f); Close(f1);
  DeleteFile(fileName);
  RenameFile('temp.dat',FileName);
  DeleteFile('temp.dat');
  end
     else
         Writeln('***Sorry,file not found***');
Writeln('***Count record delete*** - ',cnt);
end;

Это сообщение отредактировал(а) Girder - 5.5.2006, 08:29

avaness

Дата 4.5.2006, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Код


function SrCennik (fileName: string):real;{средняя цена}
var f: file of auto; z:auto;
   s:real;
begin
  assign(f,fileName);
        if fileExists(fileName) then
        begin
            reset(f);
            s:=0;
            while not eof (f) do
             begin
              Read(f,z);
              s:=s+z.cenu;
             end;
             s:=s/(1*fileSize(f));
          close(f);
          SrCennik:=s;
   end
      else  begin
      Writeln('*******file not Found*******');
      sleep(3000);
      srCennik:=0;
        end;
end;   {SrCennik}

Это сообщение отредактировал(а) Girder - 5.5.2006, 08:29

bagira

Дата 4.5.2006, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2858
Регистрация: 25.10.2003
Где: в тайге Уральских гор

Репутация: нет
Всего: 123

Цитата(avaness @ 4.5.2006, 17:08

)

Прошу помочь в написании блок-схем для процедуры:

Их разве пишут??? Вроде бы, всегда рисовали... smile

--------------------

Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил...
Ф.Х. Дагларджа (Турция)
http://zveriolginovour.ru/
https://vmeste.yandex.ru/zveriolginovour

Sunvas

Дата 5.5.2006, 07:39 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

avaness, тебе сюда http://forum.vingrad.ru/index.php?showforum=146
Да и пользуйся кнопкой "код". (наверное ты и правил не читал)

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

RWander

Дата 5.5.2006, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 349
Регистрация: 4.5.2006
Где: Russia.Udm.Izhevs k

Репутация: нет
Всего: 6

avaness
MS Visio и вперед smile

--------------------

Microsoft Certified Technology Specialist - ASP.NET Applications

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »