Pascal ABC, ООП. Не могу найти ошибку
Вложений: 1
Здравствуйте!Пожалуйста помогите найти ошибку в программе.
используя объектный тип ,необходимо описать данные на учеников(фамилия,улица,дом , квартира) , с методом, определяющим ,сколько учеником живет на заданной улице. к примеру Иванова Вострецова 45 5 Иванов Мира 148 28 Миронова Мира 147 15 Сидоров Фрунзе 45 5 заданная улица Мира количество учеников 2 кроме того данные на учеников записать в отдельный файл Сделала так , но программа не работает должным образом. program upr1; type student=class fame,street:string; dom,kvar:integer; constructor Create(fm,st:string; d,k:integer); procedure st(var t1:text;var l:integer); procedure print(fame,street:string;dom,kvar,l:integer); begin writeln('Фамилия: ',fame,'Улица: ',street,' Дом: ',dom,' Квартира: ',kvar); writeln('Количество: ',l); end; end; constructor student.create(fm,st:string; d,k:integer); begin fame:=fm; street:=st; dom:=d; kvar:=k; end; procedure student.st(var t1:text;var l:integer); var n,st:string; begin l:=0; reset(t1); while not eof(t1) do begin readln(t1,st); if pos(n,st)<>0 then l:=l+1; end; close(t1); end; var s:student; t: text; n1,fm,st:string; l1,d,k,l:integer; begin writeln('введите улицу'); readln(n1); assign(t,'stud.txt'); reset(t); s:=student.create(fm,st,d,k); s.st(t,l); s.print(s.fame,s.street,s.dom,s.kvar,l); end. вот текстовый файл |
Часовой пояс GMT +4, время: 12:57. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.