Паскаль. Списки

[Fatality]

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

Ребят, вопрос жизни и смерти.... Выручите плиииз((((

Ну пожалуйста...

[Chudo4258]

Поищите на форуме, таких задач здесь вагон и маленькая тележка.

[Fatality]

поискал... ничего похожего не нашел((((

[Sparky]

ну хоть что-то у тебя есть??? описание типов и т.д и т.п кинь посмотрим

[Chudo4258]

Вот тут посмотри как можно создать список:
http://www.comp-science.narod.ru/Pro...02/pas8_1.html

фамилии учеников, начинающихся на букву "P"

Обходитесписок и проверяете если S^.inf[1]='Р' то выводите на экран значение S^.inf

[Fatality]

Разбирался-разбирался, да так что вконец запутался... Ребят, решите пожалуйста, очень прошу... Я просто физически не могу тему за такое короткое время освоить...(((

Ребята, час до зачета остался.... Выручайте(((

[Stilet]

Fatality

Внизу страницы некоторые похожие темы. Загляни туда.

Вот у меня был пример для кого-то похожий:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type PUchnik=^Tuchenik;
     Tuchenik=record
      Prev,next:PUchnik;
      God:integer;
      name:string[50];
     end;
var
        FirstItem,CurItem,LastItem:PUchnik;
{Äîáàâëÿåì ýëåìåíò}
 procedure AddItem;
 begin
   new(curitem);
   with CurItem^ do begin
     Readln(God);readln(name);
    Prev:=LastItem;
    next:=nil;
    LastItem^.next:=CurItem;
    LastItem:=CurItem;
   end;
 end;

{Âûâîäèì âñå íà ýêðàí}
 procedure WriteItems; var i:PUchnik;
 begin
  i:=FirstItem;      writeln;
  writeln('God,name');
  while i<>nil do begin
   with i^ do
    if name[1]='R' then
      write(god:9,name);
   writeln;
   i:=i^.next;
  end;
 end;
begin
 new(firstitem);
  FirstItem^.Prev:=nil;
  FirstItem^.next:=nil;
  LastItem:=FirstItem;
   Writeln('Kolvo_Komnat,Etaj,Ploshad,Adres');
  AddItem;
  AddItem;


  WriteItems;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Здесь выводятся студни на имя начинающееся на R