Распечатать список учеников музыкальной школы, которые учатся играть на скрипке

@Jlovenpk1 · Регистрация: 21.10.2012

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

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке.
Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах.

1 программа, ввода данных:

Pascal

program test;
type
zopa = record
f: string[30];
i: string[10];
o: string[10];
let: integer;
conk: string[10];
ins: string[20];
end;
var
fi: file of zopa;
uch: array[1..4] of zopa;
i:integer;
begin
assign (fi,'D:\lol.doc');
rewrite (fi);
for i:=1 to 4 do
begin
writeln ('vvedite imya: ');
readln (uch[i].i);
writeln ('vvedite familya: ');
readln (uch[i].f);
writeln ('vvedite ochestvo: ');
readln (uch[i].o);
writeln ('vvedite skolko let zanimaetsya: ');
readln (uch[i].let);
writeln ('uchastvoval(vala) student(ka) v olimpiade? : ');
readln (uch[i].conk);
write (fi,uch[i]);
writeln (‘instrument: ‘);
readln (uch[i].ins);
writeln ('__________________');
end;
writeln ('Baza dannih obnovlena');
readln
end.

Вторая программа для вывода, в ней проблема, не могу вывести людей, которые играют только на скрипе.

Pascal

program test;
type
zopa = record
f: string[30];
i: string[10];
o: string[10];
let: integer;
conk: string[10];
ins: string[20];
end;
var
fi: file of zopa;
uch: array[1..4] of zopa;
i:integer;
n:char;
begin
assign (fi,'D:\lol.doc');
reset (fi);
writeln ('');
write (' Pokazat spisok ');
readln (n);
i:=0;
while not Eof(fi) do begin
inc(i);
if (uch[i].ins) = 'skripka' then
read (fi,uch[i]);
writeln (uch[i].f);
end;
close(fi);
readln
end.

@orange_rush · 11.12.2012, 20:33

в первой забыл сделать

Pascal

1	close(fi);

ды у тебя вообще ничего не понятно, что такое n:char и зачем ты его считываешь

@Jlovenpk1 · 11.12.2012, 20:43 **[ТС]**

все равно, ошибка как была, так и осталась)

@orange_rush · 11.12.2012, 21:20

а зачем тебе вообще массив при заполнении. Смотри пример создания и заполнения типизированного файла:

Pascal

Program file11;
uses crt;
Type Student = record
      fio: string [20];
      kurs, group: integer;
end;
var zap : student;
     f: file of student;
     name: string;
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы студента');
Readln (zap.fio);
While zap.fio <> '' do
Begin
Writeln ('Введите номер курса и группы');
Readln (zap.kurs, zap.group);
Write (f, zap);
Writeln ('Введите фамилию и инициалы следующего студента ');
Readln (zap.fio);
End;
Close(f);
Writeln ('Файл создан');
readln
End.

Добавлено через 21 минуту
а понял, смотри, у тебя в первой программе поменяй местами строку 30 и 32 !

@Jlovenpk1 · 11.12.2012, 21:30 **[ТС]**

Сообщение от orange_rush

ды у тебя вообще ничего не понятно, что такое n:char и зачем ты его считываешь

Там планировал заюзать ESC, но затем забил, мусор не стал убирать.
Там все понятно.

Добавлено через 7 минут

Сообщение от orange_rush

а понял, смотри, у тебя в первой программе поменяй местами строку 30 и 32 !

Pascal

writeln ('uchastvoval(vala) student(ka) v olimpiade? : ');
readln (uch[i].conk);
write (fi,uch[i]);
writeln (‘instrument: ‘);
readln (uch[i].ins);

Pascal

writeln ('uchastvoval(vala) student(ka) v olimpiade? : ');
readln (uch[i].conk);
writeln (‘instrument: ‘);
readln (uch[i].ins);
write (fi,uch[i]);

И во второй программе надо было кое, что поправить)
спс, что навел на место ошибок.

@orange_rush · 11.12.2012, 21:33

а во второй программе у тебя массив пустой для программы, ты либо две программы в одной пиши, либо подключай как модуль или процедуру.

@Jlovenpk1 · 11.12.2012, 21:36 **[ТС]**

хз,хз, все и так работает)

@Jlovenpk1 C# Brain.net 35 / 35 / 7 Регистрация: 21.10.2012 Сообщений: 333 Записей в блоге: 12
	11.12.2012, 20:43 [ТС]	3
	все равно, ошибка как была, так и осталась) 0

@orange_rush 142 / 148 / 116 Регистрация: 15.11.2012 Сообщений: 537 Записей в блоге: 2
	11.12.2012, 21:33	6
	а во второй программе у тебя массив пустой для программы, ты либо две программы в одной пиши, либо подключай как модуль или процедуру. 1

@Jlovenpk1 C# Brain.net 35 / 35 / 7 Регистрация: 21.10.2012 Сообщений: 333 Записей в блоге: 12
	11.12.2012, 21:36 [ТС]	7
	хз,хз, все и так работает) 0

Опции темы