16.05.2012, 08:06 | #1 (permalink) |
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal ABC, ООП. Не могу найти ошибку
используя объектный тип ,необходимо описать данные на учеников(фамилия,улица,дом , квартира) , с методом, определяющим ,сколько учеником живет на заданной улице. к примеру Иванова Вострецова 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. вот текстовый файл |
16.05.2012, 08:06 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, потратьте минутку и прочитайте темы которые люди создавали ранее Delhi. Вставить элемент, не могу найти ошибку Помогите найти ошибку Помогите найти ошибку Создал программу, ошибку не могу найти Помогите найти ошибку Помогите найти ошибку |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|