|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
09.02.2014, 18:01 | #1 (permalink) |
Member
Регистрация: 09.12.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Динамические структуры Turbo Pascal
Задача была такая, Создать список записей, содержащих сведения об учениках. Структура записи имеет следующий вид: type PNT=^S; LerBook = record ученик Fam: String [20]; фамилия ученика Year: 1..10; год обучения Ch: Char; буква (от А до К) next: PNT; end; var rec, beg, endd, current: PNT; Выяснить, имеются ли однофамильцы в каком-нибудь классе Примерный код есть, но нужно исправить ошибки, потому что проблемы с этим вообще Код:
Program PR5; Uses crt; type PNT=^S; LerBook = record Fam: String [20]; Year: 1..10; Ch: Char; next: PNT; end; var rec, beg, endd, current: PNT;im:string[20]; Procedure CreateLL(var pBegin, pEnd: PComp; var Fam: String [20] ); begin New(pBegin); pBegin^.pNext:=NIL; pBegin^.Fam:=current; pEnd:=pBegin end; Procedure AddLL(var pEnd: PComp; var current: PNT ); var pAux: PComp; begin New(pAux); pAux^.pNext:=NIL; pEnd^.pNext:=pAux; pEnd:=pAux; pEnd^.Fam:=current; end; procedure okno; begin textbackground(0); clrscr; window(2,2,79,24); textbackground(11); textcolor(15); clrscr; end; Begin clrscr; okno; writeln('| God obychenia | Familia |'); writeln(' ---------------------------------'); for rec:=1 to n do begin beg:=rec+2; write(' '); gotoXY(15,beg); readln(LerBook[i].Fam); gotoXY(27,beg); readln(LerBook[i].Year); end; End; BEGIN write('Vvedite familiy: ');readln(im); endd:=0; for rec:=1 to n do begin if ord(im[1])=ord(LerBook[rec].Fam[1]) then if ord(im[2])=ord(LerBook[rec].Fam[2]) then if ord(im[3])=ord(LerBook[rec].Fam[3]) then endd:=endd+1; end; writeln('kolichestvo odnofamilcev, 'im', = ',endd); pAux:=pBegin; repeat writeln(pAux^.Fam); pAux:=pAux^.pNext; until pAux=NIL readln; END. |
09.02.2014, 18:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию топики, которые так или иначе схожи с вашим Pascal. Динамические списки Программирование циклической структуры в Pascal ABC Turbo Pascal |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|