Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задачка по записям.

Автор: Rom1k 9.04.2007 2:37

Данные о студентах содержат фамилию и набор оценок на экзаменах.Требуется занести данные с клавиатуры в массив записей,упорядочить по фамилиям в алфавитном порядке.


Вот всё,что я смог сделать.мне кажется что в процедуре я что-то не правильно вырезаю.Помогите плиз.Ведь там не так много подправить надо.

program n1;
const
    nmax=7;
type
    sotr=record
     name:string[20];{Фамилия}
     matan,progr,ist:byte;{Ocenki}
    end;

function readdata(var rec:sotr):integer;
   var
    s:string[80];{Строка ввода}
    p:integer;{Номер позиции в строке}
    matanS,progrS,istS:string[1];{Строка, содержащая оценку за матан,progr и историю}
    error:integer;{Код ошибки при преобразовании строки в число}
   begin
    readln(s);
    if S='' then
      ReadData:=-1
    else
     begin
      p:=pos(' ',s);
      if p=0 then
       ReadData:=1
      else
       begin
	rec.name:=copy(s,1,p-1);
	delete(s,1,p);
	matanS:=copy(S,1,pos(' ',s));
	val(matanS,rec.matan,error);
	delete(s,1,length(matanS));
	progrS:=copy(S,1,pos(' ',s));
	val(progrS,rec.progr,error);
	delete(s,1,length(progrS));
	istS:=copy(S,1,pos(' ',s));
	val(istS,rec.ist,error);
	delete(s,1,length(istS));
	if Error <> 0 then
	 ReadData:=1
	else
	 ReadData:=0;
       end;
     end;
   end;
VAR
   data:array[1..nmax] of sotr;{Массив записей о служащих}
   N:integer;
   readResult:integer;{Результат ввода записи}
   I,j:integer;{номер очередного эл-та массива}
   t:string[25];
BEGIN

   {Ввод числа записей}
   repeat
    write('Задайте число служащих (1..',nmax,')');
    readln(n);
    if (n<=0) or (N>nmax) then
     writeln('Вы ошиблись! Повторите!');
   until (n>0) and (n<=nmax);

   {Ввод массива записей}
   writeln('Введите фамилии студентов и через пробел их оценки ');
   for i:=1 to n do
    begin
     repeat
      ReadResult:=ReadData(data[I]);
      if ReadResult <> 0 then
       writeln('Вы ошиблись! Повторите!');
     until ReadResult=0;
    end;

 for i:=1 to n-1 do
  for j:=i+1 to n do
   if data[i].name>data[j].name then
    begin
     t:=data[i].name;
     data[i].name:=data[j].name;
     data[j].name:=t;
    end;


   writeln('Фамилия матан прогр история ');
 for i:=1 to n do
  writeln(data[i].name,'   ',data[i].matan,'   ',data[i].progr,'  ',data[i].ist);
  end.



Автор: Rom1k 9.04.2007 3:03

никто ничем не может помочь?

Автор: Айра 9.04.2007 3:24


Может)))
Замени 

rec.name:=copy(s,1,p-1);
	delete(s,1,p);
	matanS:=copy(S,1,pos(' ',s));
	val(matanS,rec.matan,error);
	delete(s,1,length(matanS));
	progrS:=copy(S,1,pos(' ',s));
	val(progrS,rec.progr,error);
	delete(s,1,length(progrS));
	istS:=copy(S,1,pos(' ',s));
	val(istS,rec.ist,error);
	delete(s,1,length(istS));
на 
rec.name:=copy(s,1,p-1);
	delete(s,1,p);
	matanS:=copy(S,1,1);
	val(matanS,rec.matan,error);
	delete(s,1,2);
	progrS:=copy(S,1,1);
	val(progrS,rec.progr,error);
	delete(s,1,2);
	istS:=copy(S,1,1);
	val(istS,rec.ist,error);
	delete(s,1,length(istS));

Но это работает правильно, только если пользователь вводит между оценками по одному пробелу... Хотя сообщение об ошибке выдается.

Автор: КМА 9.04.2007 3:25

 
for i:=1 to n-1 do
  for j:=i+1 to n do
   if data[i].name>data[j].name then
	begin
	 t:=data[i].name;
	 data[i].name:=data[j].name;
	 data[j].name:=t;
	end;



Здесь ошибка. У тебя не правильно сортируется. Я так понял, ты хочешь пузырьком? Тогда тебе надо по другому, вот так: 
 
for i:=1 to n-1 do
  for j:=1 to n-i do
   if data[j].name>data[j+1].name then
	begin
	 t:=data[j].name;
	 data[j].name:=data[j+1].name;
	 data[j+1].name:=t;
	end;


Автор: Rom1k 9.04.2007 3:47

КМА неправильно ты мне сортировку написал.Он так не сортирует их вообще.сортировка у меня правильная.
Айра.Большое спасибо!

только вот не пойму.Он мне во что выводит.не правильно!!!!
Где-то ошибка.подскажите плиз!

Изображение

Автор: Айра 9.04.2007 4:01

Цитата
Он так не сортирует их вообще.сортировка у меня правильная.

Странно, у меня и при твоей сортировке и при варианте KMA результат одиноковый. Только все идет не от A до Z (от А до Я), а наоборот. И таже самая проблема с оценками.
Хотя, по-моему, так оно и будет. Ты же в сортировке меняешь номер только параметра Name... Наверное надо поработать и с оценками...

Автор: Rom1k 9.04.2007 4:08

что-то я вообще ничего не пойму.Может кто нить помочь и исправить ошибку?

Автор: Айра 9.04.2007 4:25

Замени свою сортировку на

for i:=1 to n-1 do
  for j:=1 to n-i do
   if data[j].name>data[j+1].name then
	begin
	 t:=data[j].name;
	   data[j].name:=data[j+1].name;
	   data[j+1].name:=t;
          m:=data[j].matan;
            data[j].matan:=data[j+1].matan;
            data[j+1].matan:=m;
          p:=data[j].progr;
            data[j].progr:=data[j+1].progr;
            data[j+1].progr:=p;
          y:=data[j].ist;
            data[j].ist:=data[j+1].ist;
            data[j+1].ist:=y;
         end;

Это по методу KMA'я. Смысл в том, что надо для всех пунктов записи прописать изменение. Хотя мне кажется, что есть и другой способ - менять местами всю запись целиком, но я не знаю как это сделать.
Но у меня все равно сортировка идет от Я до А. Как с этим бороться я пока не придумала...

Автор: Rom1k 10.04.2007 0:29

потом прост выводить ответ по downto наверное.спасибо большое.

Автор: volvo 10.04.2007 0:38

Цитата
Хотя мне кажется, что есть и другой способ - менять местами всю запись целиком, но я не знаю как это сделать.
Все просто:

var t: sotr;
...
for i:=1 to n-1 do
  for j:=1 to n-i do
   if data[j].name>data[j+1].name then begin
     t := data[j]; data[j] := data[j+1]; data[j+1] := t;
   end;
...


Цитата
Но у меня все равно сортировка идет от Я до А
Меняем знак в операции сравнения с "больше" на "меньше", при этом направление сортировки меняется на противоположное...

Автор: Rom1k 10.04.2007 0:43

глупый вопрос.а как называется этот метод сортировки? меня просто по нему спросить могут!

Автор: КМА 10.04.2007 0:59

Этот метод назвается "Пузырек". И у меня он был записан правильно, по поводу того что сортировал не целую запись это я действительно оплашался.

Автор: Айра 10.04.2007 1:14

Спасибо volvo, я пыталась так делать, но у меня была проблема с выбором типа переменной t. 

var t: sotr;

Что значит sotr? Объясните rolleyes.gif

Автор: volvo 10.04.2007 1:25

Ну, так это же тип, описанный автором программы smile.gif

В качестве буферной переменной должна быть переменная того же типа, как и элемент массива... Поскольку массив описан, как

data:array[1..nmax] of sotr;
, то T должна быть типа sotr

Автор: Tan 10.04.2007 1:25

t это перменная тип которой запись, описанная выше.

Автор: Rom1k 10.04.2007 1:46

Блин ребята.я вам мега благодарен! ! !Откуда у вас стока ума? blink.gif