Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 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.



вот текстовый файл
Вложения
Тип файла: txt stud.txt (335 байт, 349 просмотров)
Ильгиза вне форума   Ответить с цитированием

Старый 16.05.2012, 08:06
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пожалуйста, потратьте минутку и прочитайте темы которые люди создавали ранее

Delhi. Вставить элемент, не могу найти ошибку
Помогите найти ошибку
Помогите найти ошибку
Создал программу, ошибку не могу найти
Помогите найти ошибку
Помогите найти ошибку

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 08:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.