2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 нужно переделать программу с использыванием текстового файл
Сообщение19.03.2009, 10:11 
помогите нужно на завтра!спасибо
Program Lab20_16;
uses crt;
type
Student = record
fam:string[20];
name:string[20];
shifr:string[10];
end;
sd=array[1..50] of student;
fil=file of sd;
var
stud: sd;
f:fil;
i,j,k:integer;
Procedure Zapus(var b:fil; stud:sd; var m:integer);
begin
textcolor(8);
rewrite(b);
m:=0;
repeat
m:=m+1;
writeln;
write('fam[',m,']-'); readln(stud[m].fam);
write('name[',m,']-'); readln(stud[m].name);
write('shifr[',m,']-'); readln(stud[m].shifr);
writeln;
writeln('нажмите SPACE для выхода из ввода');
writeln('или нажмите любую клавишу для продолжения ввода');
writeln;
until readkey=#32;
write(b,stud);
end;
Begin
clrscr;
assign(f,'text');

Zapus(f,stud,j);
clrscr;
reset(f); read(f,stud);

textcolor(green);
writeln;
writeln('Однофамильцы найденные в группах');
writeln;
textcolor(red);
for i:=1 to j-1 do
for k:=i+1 to j do
if stud[i].fam=stud[k].fam then begin
writeln('Фамилия студента- ' , stud[i].fam);
writeln('Имя студента- ' ,stud[i].name);
writeln('Шифр группы- ' ,stud[i].shifr);
writeln;
writeln('Фамилия студента- ' , stud[k].fam);
writeln('Имя студента- ' ,stud[k].name);
writeln('Шифр группы- ' ,stud[k].shifr);
writeln;
end;
readkey;

close(f);
End.

 
 
 
 
Сообщение19.03.2009, 10:25 
Код:
Var   f: text;
        num: integer;
.................

assign(f, 'text');    reset(f);
num:=0;
while not eof(f) do begin
   inc(num); 
   readln(f, stud[num].fam);
   readln(f, stud[num].name);
   readln(f, stud[num].shifr);
end;
close(f);
.................

 
 
 
 
Сообщение20.03.2009, 01:39 
Люди помогите пожалуйста - что здесь нужна исправить что бы она заработала так как нужно,а точнее - выводила данные однофамильцев
!
Program Lab20_16;
uses crt;
type
Student = record
fam:string[20];
name:string[20];
shifr:string[10];
end;
stude=array[1..100] of string;
var
stud: student;
f:text;
i,j,k,r:integer; s:string;
a:stude;
begin
clrscr;
assign(f,'Lab21.txt');
rewrite(f);
repeat
writeln;
write('fam- '); readln(stud.fam); write(f,stud.fam,'':1);
write('name- '); readln(stud.name);write(f,stud.name,'':1);
write('shifr- '); readln(stud.shifr);write(f,stud.shifr,'':1);
writeln;
writeln('нажмите SPACE для выхода из ввода');
writeln('или нажмите любую клавишу для продолжения ввода');
writeln;
until readkey=#32;

reset(f);
while not Eof(f) do begin
read(f,s);
inc(i);
repeat
a[i]:=a[i]+s[j];
j:=j+1;
until ord(s[j])=32;
readln(f);
end;

textcolor(green);
writeln;
writeln('Однофамильцы найденные в группах');
writeln;
textcolor(red);
for i:=1 to j-1 do
for k:=i+1 to j do
if a[i]=a[j] then begin textcolor(10); writeln(a[i]:20);
close(f); reset(f); for k:=1 to i do read(f,s);
writeln(s); writeln;
close(f); reset(f) ;
for k:=1 to j do read(f,s);
writeln(s);



end;
readkey;

close(f);
End.

 
 
 [ Сообщений: 3 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group