Ещё одна задача... но на двухмерный массив (матрицу), Наведите меня на логику и понимания задачи:) Опции

[Димас]

Здача 1077 б

Дан двухмерный массив. Превратить:
б.) первый столбец на место последнего, при этом вторую,тертью... последний столбцы сместить влево.


Лично я ничего не понял из написаного выше... обясните пожалуйста логику задачи:-)

эх..... как всё у меня запущено и трудно

[Димас]

Такс, ещё одна тренировка на записи(рекорд)....

Задача 1248

В таблице хранятся следуйщие данные об учениказ: фамилия,имя,отчество,рост,маса.
Вычеслить средний рост учеников, рост самого высокого и самого низкого ученика. Сколько учеников могут заниматся в баскетбольной секции, если рост баскетболиста должен быть больше 170 см


Я реши тякс:

Program z1248;

   uses crt;

   const kol_uchniv = 10; {количество учеников}
    {------------тип------------}
   type
        dani_uchniv = record
        fam        :  string;
        imya       :  string;
        otchestvo  :  string;
        rost       :  integer;
        masa       :  integer;
   end;
   {---------------------------}

   var
   {------------------массив-----------------------}
   mass_u:Array[1..kol_uchniv] of dani_uchniv;
   {-----------------------------------------------}
   i:integer;
   s_rost:real;
   ser_rost:real;
   max_rost,max_i:integer;
   min_rost:integer;
   kol_uchniv2:integer;
Begin
ClrScr;
{------------------Таблица учеников--------------}
 {1}
 mass_u[1].fam:='Белый   ';mass_u[1].imya:=' Дима'; mass_u[1].otchestvo:='  Юрьевич   '; mass_u[1].rost:=170;
 mass_u[1].masa:=60;
 {end}

 {2}
 mass_u[2].fam:='Пупкин  ';mass_u[2].imya:=' Андрей'; mass_u[2].otchestvo:='Николаевич'; mass_u[2].rost:=175;
 mass_u[2].masa:=70;
 {end}

 {3}
 mass_u[3].fam:='Барбакарь';mass_u[3].imya:='Вика'; mass_u[3].otchestvo:='  Батьковна '; mass_u[3].rost:=155;
 mass_u[3].masa:=45;
 {end}

 {4}
 mass_u[4].fam:='Кулик   ';mass_u[4].imya:=' Вован'; mass_u[4].otchestvo:=' Батькович '; mass_u[4].rost:=185;
 mass_u[4].masa:=80;
 {end}
 {5}
 mass_u[5].fam:='Литвин';mass_u[5].imya:='   Тарас'; mass_u[5].otchestvo:=' Пукинович '; mass_u[5].rost:=170;
 mass_u[5].masa:=55;
 {end}
 {6}
 mass_u[6].fam:='Тарасюк';mass_u[6].imya:='  Саня'; mass_u[6].otchestvo:='  Батькович '; mass_u[6].rost:=170;
 mass_u[6].masa:=60;
 {end}
 {7}
 mass_u[7].fam:='Дрозач';mass_u[7].imya:='   Толя'; mass_u[7].otchestvo:='  Леонидович'; mass_u[7].rost:=190;
 mass_u[7].masa:=70;
 {end}
 {8}
 mass_u[8].fam:='Сидоров';mass_u[8].imya:='  Тарас'; mass_u[8].otchestvo:=' Иванович  '; mass_u[8].rost:=150;
 mass_u[8].masa:=55;
 {end}
 {9}
 mass_u[9].fam:='Иванов';mass_u[9].imya:='   Саня'; mass_u[9].otchestvo:='  Иванович  '; mass_u[9].rost:=200;
 mass_u[9].masa:=90;
 {end}
 {10}
 mass_u[10].fam:='Куку';mass_u[10].imya:='    Натали'; mass_u[10].otchestvo:='Ивановна  '; mass_u[10].rost:=190;
 mass_u[10].masa:=70;
 {end}
{-----------------------------------------------}
         textcolor(2);
         writeln('-----------------------------------------------------------------');
         writeln('| N/N | Фамилия  | Имя     |   Отчество   |  Рост(см) |  Маса(кг)|');
         writeln('-----------------------------------------------------------------');
{---------------------Цыкл для вывода-------------------}
     textcolor(7);

for i:=1 to kol_uchniv do
 begin
    writeln('   ',i,'    ',mass_U[i].fam,'   ',mass_U[i].imya,'      ',mass_U[i].otchestvo,'      ', mass_u[i].rost,
    '     ',mass_u[i].masa);
 end;
{------------------Цыкл для середнього роста--------------------------}
    s_rost:=0;

for i:=1 to kol_uchniv do
  begin
    {----ниже формула сумы ростов----}
    s_rost:=s_rost + mass_u[i].rost;
  end;
{-----------Средний рост------------}
    ser_rost:=s_rost/kol_uchniv;
{-----------------------------------}

{---------------цыкл для вычисления максимального роста учеников---------------------}
   max_rost:=0;
    max_i:=0;
   for i:=1 to kol_uchniv do
    begin
          if (max_rost<mass_u[i].rost)
    then

      begin
           max_rost:=mass_u[i].rost ;
           max_i:=i;
      end;

      end;
   textcolor(7);
{---------------------------------конец цыкла max------------------------------}

{--------------------цыкл для вычисления минимального роста учеников----------}
   min_rost:=mass_u[max_i].rost;

for i:=1 to kol_uchniv do
  begin
    if min_rost>mass_u[i].rost
  then
  min_rost:=mass_u[i].rost;
  {min_i:=i;}
  end;
{--------------------------------конец цыкла min-------------------------------}

{------------------------Вычисления баскетболистов---------------------------}

   kol_uchniv2:=kol_uchniv;

for i:=1 to kol_uchniv do
 begin
   if mass_u[i].rost<170
 then
 kol_uchniv2:=kol_uchniv2-1;

end;
{---------------------конец вычисления баскетболистов---------------------------------------------}

{---------------------------------Вывод итогов--------------------------------------}
textcolor(2);
   writeln('--------------------------------------------------------------');
textcolor(4);

  writeln(' Cередний Рост Учеников = ', ser_rost:5:1 ,' см');
   writeln;
  writeln(' Рост самого высокого Ученика = ',mass_u[max_i].rost,' см');
   writeln;
  writeln(' Рост самого низкого Ученика = ',min_rost);
   writeln;
  writeln(' Могут Заниматься в Баскетбольной Секции Только ',kol_uchniv2,' чел ',' из ',kol_uchniv,' чел' );
   textcolor(2);
   writeln('--------------------------------------------------------------');
   textcolor(9);
   writeln('Made in Ukrane! Produce By STORM!');
   textcolor(2);
   writeln('Для завершения просмотра нажмите любую клавишу');
readkey;
end.

И теперь думаю немного с записями разрулился

теперь мне не составит труда решить задачу 1066б

Спасибо всем кто помогал! с Наступающим 2007 новым годом Всех!!!!!

офф