VPF::[Delphi] ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ С ИСПОЛЬЗОВАНИЕМ ЗАПИС

hunt3r

Дата 21.5.2010, 10:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


Unit UnZap;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids;
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
 implementation
 {$R *.DFM}
type
 zap=record                   // объявление  записи
      fio         :string[20];
      mat,fiz,soch:integer;
      srbal       :extended
     end;
var                             
 MZap:array[1..9] of zap;    // объявление  массива записей
procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin
  with StringGrid1 do
 begin                            // занесение информации в ячейки StringGrid1
  Cells[0,0]:='№пп’;
  Cells[1,0]:='Фамилия,инициалы';
  Cells[2,0]:='Математика';
  Cells[3,0]:='Физика';
  Cells[4,0]:='Сочинение';
  Cells[5,0]:='Ср.балл';
  for i:=1 to 9 do
   Cells[0,i]:=IntToStr(i);
  Cells[1,1]:='Первый П.П.'; Cells[2,1]:='3'; Cells[3,1]:='3'; Cells[4,1]:='3';
  Cells[1,2]:='Второй В.В.'; Cells[2,2]:='3'; Cells[3,2]:='3'; Cells[4,2]:='4';
  Cells[1,3]:='Третий Т.Т.'; Cells[2,3]:='3'; Cells[3,3]:='4'; Cells[4,3]:='4';
  Cells[1,4]:='Четвертый Ч.Ч.'; Cells[2,4]:='4'; Cells[3,4]:='4'; Cells[4,4]:='4';
  Cells[1,5]:='Пятый П.П.'; Cells[2,5]:='3'; Cells[3,5]:='4'; Cells[4,5]:='5';
  Cells[1,6]:='Шестой Ш.Ш.'; Cells[2,6]:='5'; Cells[3,6]:='4'; Cells[4,6]:='4';
  Cells[1,7]:='Седьмой С.С.'; Cells[2,7]:='5'; Cells[3,7]:='5'; Cells[4,7]:='4';
  Cells[1,8]:='Восьмой В.В.'; Cells[2,8]:='5'; Cells[3,8]:='5'; Cells[4,8]:='5';
  Cells[1,9]:='Девятый Д.Д.'; Cells[2,9]:='3'; Cells[3,9]:='5'; Cells[4,9]:='5';
  for i:=1 to 9 do
   with MZap[i] do
    begin             // формирование полей массива записей
    fio:=Cells[1,i];
    mat:=StrToInt(Cells[2,i]);
    fiz:=StrToInt(Cells[3,i]);
    soch:=StrToInt(Cells[4,i]);
    srbal:=(mat+fiz+soch)/3;                    // вычисление значения ср. балла
    Cells[5,i]:=FloatToStrF(srbal,ffFixed,5,2);  // вывод значения ср.балла
    end;                                                              // в последнюю колонку StringGrid1
 end;
end;
 procedure TForm1.Button1Click(Sender: TObject);
var
 i,j :integer;
 vper:zap;
 begin
  for i:=1 to 9 do
   with StringGrid1,MZap[i] do
    begin
    fio:=Cells[1,i];
    mat:=StrToInt(Cells[2,i]);
    fiz:=StrToInt(Cells[3,i]);
    soch:=StrToInt(Cells[4,i]);
    srbal:=(mat+fiz+soch)/3;
    Cells[5,i]:=FloatToStrF(srbal,ffFixed,5,2);
    end;
 for i:=2 to 9 do                   // сортировка методом "пузырька"
  for j:=9 downto i do
   if MZap[j-1].srbal<MZap[j].srbal then

                                     begin
                                          vper:=MZap[j-1];
                                MZap[j-1]:=MZap[j];
                                    MZap[j]:=vper;
                                     end;
  for i:=1 to 9 do           // заполнение ячеек StringGrid1 полями массива записей
   with StringGrid1,MZap[i] do
    begin
    Cells[1,i]:=fio;
    Cells[2,i]:=IntToStr(mat);
    Cells[3,i]:=IntToStr(fiz);
    Cells[4,i]:=IntToStr(soch);
    Cells[5,i]:=FloatToStrF(srbal,ffFixed,5,2);
    end;
 end;
end.

решение похожей задачи. кто сможет переделать под эту: Поля шахматной доски характеризуются Поля шахматной доски характеризуются записью
    Type
      Pole=record
                Ver: 1..8;                     {вертикальные координаты}
                Hor: (a,b,c,d,e,f,g,h);  {горизонтальные координаты}
               end;
   Вывести шахматную доску, пометив крестиками все поля, которые «бьет» ферзь, стоящий на поле с координатами Veri и Hori, и ноликами все остальные поля.

~FoX~

Дата 21.5.2010, 11:17 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Цитата(hunt3r @ 21.5.2010, 11:14

)

кто сможет переделать под эту

hunt3r, Я смогу.... Скока?

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

…множественность никогда не следует полагать без необходимости…

hunt3r

Дата 21.5.2010, 12:42 (ссылка)

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

Загрузка ...

Новичок

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

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

а скоко дашь?

~FoX~

Дата 21.5.2010, 14:58 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Цитата(hunt3r @ 21.5.2010, 13:42

)

а скоко дашь?

Не дашь, а возьмешь...Тысчу...

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

…множественность никогда не следует полагать без необходимости…

bems

Дата 21.5.2010, 18:14 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

Обижено школьников: 8

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