Текстовые файлы: Дан файл f, содержащий сведения об учениках (фамилия, улица, дом, квартира)

@Nikushor · Регистрация: 02.05.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте,помогите пожалуйста справится с задачей.
Дан файл f, содержащий сведения об учениках (фамилия, улица, дом, квартира). Составить программу, определяющую, сколько учеников живет на улице Свердлова, списки учеников, живущих в доме номер 45.
Заранее спасибо..

Добавлено через 19 часов 41 минуту
помогите пожалуйста

@MayaNash · 24.10.2012, 18:34

Nikushor, файл текстовый или типизированный?

Kodzaev · 24.10.2012, 19:43

Керра, сабж

@MayaNash · 25.10.2012, 18:17

Kodzaev, извиняюсь, невнимательна

Добавлено через 2 минуты
Nikushor, текстовый файл должен будет содержать в первой строке количество учеников n, и далее n*4 строчек - по одной строчке на каждый пункт в том порядке, в котором вы записали

Добавлено через 12 минут
у меня все на английском, т.к. у меня в паскале нет русского. Свердлова = Sverdlova.
не тестила.

Pascal

uses crt;
 
var f: text;
    filename: string;
    familia, ulitsa: string;
    dom, kvartira: integer;
    n,i,k: integer;
 
 
begin clrscr;
write('Imea faila: '); readln(filename);
assign(f,filename); reset(f);
 
writeln('Ucheniki, jivuschie v dome nr.45 na ulitse Sverdlova:');
k := 0;
 
readln(f,n);
for i := 1 to n do
 begin
 readln(familia);
 readln(ulitsa);
 readln(dom);
 readln(kvartira);
 if (ulitsa = 'Sverdlova') or (ulitsa = 'sverdlova') then
  begin
  inc(k);
  if dom = 45 then
   writeln(familia,' - kv.',kvartira);
  end;
 end;
 
writeln;
writeln('Vsego na ulitse Sverdlova jivet ',k,' uchenikov(-a)');
 
close(f);
readkey; end.

@Nikushor 2 / 2 / 1 Регистрация: 02.05.2012 Сообщений: 59
		1
	Текстовые файлы: Дан файл f, содержащий сведения об учениках (фамилия, улица, дом, квартира) 23.10.2012, 13:14. Показов 2002. Ответов 3 Метки нет (Все метки) Здравствуйте,помогите пожалуйста справится с задачей. Дан файл f, содержащий сведения об учениках (фамилия, улица, дом, квартира). Составить программу, определяющую, сколько учеников живет на улице Свердлова, списки учеников, живущих в доме номер 45. Заранее спасибо.. Добавлено через 19 часов 41 минуту помогите пожалуйста 0

@MayaNash 1296 / 469 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	24.10.2012, 18:34	2
	Nikushor, файл текстовый или типизированный? 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	24.10.2012, 19:43	3
	Керра, сабж 0

Опции темы