Помогите решить задачку, на записи Опции

[zaika]

Здравствуйте
Вообщем надо вывести из готовой записи студента со всеми его данными, начинающегося на букву В!!!
Вот нашла тут кое что...но это мне ничем не помогло
Сортировка студентов по фамильно в алфавитном порядке

Код

function strcomp(Key1, Key2: String): Integer;
var i,m,c: integer;
begin
    c:=0;
    m:=length(Key1);
    if m>length(Key2) then m:=length(Key2);
    for i:=1 to m do
    begin
         c:=ord(Key1[i])-ord(Key2[i]);
         if c<>0 then break;
    end;
    strcomp:=c
end;

Поможите кто чем может

[klem4]

Что значит начинающегося на букву Б ? Было бы не плохо увидеть ваш код, как организована запись.

+ FAQ : Записи

+ Поиск по форуму.

[-Катюшка-]

Может поможет:

Procedure Search_students(var f:f_student);
Var
 st1:student;
 found:boolean;
 b:char;
Begin
 b:='B';
 Found:=false;
 Reset(f);
 While not eof(f) do
  Begin
   Read(f,st1);
   If (Pos(b,st1.FIO)<>0) then
    Begin
     Writeln(st1.FIO:15,st1.godroj:6); {==здесь можно добавить ещё данные, которые тебе нужны}
     Found:=True;
    End;
  End;
 If not Found then
  Writeln('Takix stydentov net');
 Readln;
 Close(f);
End;

а запись выглядит так

Type
 student=record
  number:integer;
  FIO:string[15];
  godroj:integer;
   ocenki:record
   fiz:1..5;
   mat:1..5;
   prog:1..5;
   ist:1..5;
   end;
  end;
 f_student=file of student;
Var
 f:f_student;

[volvo]

-Катюшка-,

   If (Pos(b,st1.FIO)<>0) then

, что будет если
st1.FIO = 'ИВан Андреевич'
?

[-Катюшка-]

-Катюшка-,

   If (Pos(b,st1.FIO)<>0) then

, что будет если
st1.FIO = 'ИВан Андреевич'
?

Это же не фамилия. Или в этой задаче всё равно, что сортировать--фамилию, имя или отчество?

[volvo]

Какая разница, что это? Буква "B" присутствует? Следовательно Pos выдаст не 0, и результат уже будет ошибочный, ибо нужно только студентов, фамилия которых НАЧИНАЕТСЯ с заданной буквы...

[Гость]

Ну, проверить,есть ли пробел перед 'B'.

[volvo]

Ну, так в чем дело? Почему ты этого не сделал(а)? Нельзя ПРОВЕРЯТЬ программы, прежде чем постить?
Извини, придется!

7. Проверяйте программы перед тем, как разместить их на форуме!!!

P.S. Перед фамилией может и не быть пробела, кстати... Не забудь об этом...