Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите решить задачку
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
zaika
Здравствуйте rolleyes.gif
Вообщем надо вывести из готовой записи студента со всеми его данными, начинающегося на букву В!!!
Вот нашла тут кое что...но это мне ничем не помогло rolleyes.gif
Сортировка студентов по фамильно в алфавитном порядке
Код

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;

Поможите кто чем может rolleyes.gif
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 = 'ИВан Андреевич'
?
-Катюшка-
Цитата(volvo @ 1.05.2006 14:08) *

-Катюшка-,
   If (Pos(b,st1.FIO)<>0) then
, что будет если
st1.FIO = 'ИВан Андреевич'
?

Это же не фамилия. Или в этой задаче всё равно, что сортировать--фамилию, имя или отчество?
volvo
Какая разница, что это? Буква "B" присутствует? Следовательно Pos выдаст не 0, и результат уже будет ошибочный, ибо нужно только студентов, фамилия которых НАЧИНАЕТСЯ с заданной буквы...
Гость
Ну, проверить,есть ли пробел перед 'B'.
volvo
Ну, так в чем дело? Почему ты этого не сделал(а)? Нельзя ПРОВЕРЯТЬ программы, прежде чем постить?
Извини, придется!

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


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