var
i: integer;
f: text;
s: string;
begin
// Создали файл
assign(f,'1.txt');
rewrite(f);
// Заполнили файл
for i:= 1 to 5 do
begin
readln(s);
writeln(f,s);
end;
close(f);
// Распечатали содержимое
reset(f);
while not eof(f) do
begin
readln(f,s);
write(s);
end;
writeln;
close(f);
// Удалили всю информацию
rewrite(f);
close(f);
end.
const
MaxN=100;
var
i,j,n: integer;
f: text;
s, tmp: string;
nom, fm, kurs, ocenka: string;
a: array[1..MaxN] of string;
begin
// Создали файл
assign(f,'1.txt');
rewrite(f);
write('n=');
readln(n);
// Заполнили файл, введя n произвольных строк
for i:= 1 to n do
begin
write('номер ');
readln(nom);
write('фамилия ');
readln(fm);
write('курс ');
readln(kurs);
write('оценка ');
readln(ocenka);
writeln(f, nom+' '+fm+' '+kurs+' '+ocenka);
end;
close(f);
// Распечатали содержимое
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
writeln;
close(f);
// Загрузили данные в массив
n:= 0;
reset(f);
while not eof(f) do
begin
inc(n);
readln(f, a[n]);
end;
// Отсортировали массив
for i:= 1 to n-1 do
for j:= n downto i+1 do
if a[j-1][length(a[j-1])]<a[j][length(a[j])] then
begin
tmp := a[j];
a[j] := a[j-1];
a[j-1] := tmp;
end;
close(f);
// Загрузили данные в файл
rewrite(f);
for i:= 1 to n do
writeln(f, a[i]);
close(f);
// Распечатали содержимое
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
writeln;
close(f);
// Удалили всю информацию
rewrite(f);
close(f);
// Убедились, что файл пуст
reset(f);
if eof(f) then
writeln('Файл пуст');
close(f);
end.
const
MaxN=100;
type
TStudent = record
nom: integer;
fm: string[30];
kurs: integer;
ocenka: integer;
end;
var
i,j,n: integer;
st, tmp: TStudent;
f: file of TStudent;
a: array[1..MaxN] of TStudent;
begin
// Создали файл
assign(f,'1.datt');
rewrite(f);
write('n=');
readln(n);
// Заполнили файл, введя n произвольных строк
for i:= 1 to n do
begin
write('номер ');
readln(st.nom);
write('фамилия ');
readln(st.fm);
write('курс ');
readln(st.kurs);
write('оценка ');
readln(st.ocenka);
write(f, st);
end;
/// close(f);
// Распечатали содержимое
/// reset(f);
seek(f,0);
while not eof(f) do
begin
read(f,st);
writeln(st.nom, ' ', st.fm, ' ', st.kurs, ' ', st.ocenka);
end;
writeln;
/// close(f);
// Загрузили данные в массив
n:= 0;
/// reset(f);
seek(f,0);
while not eof(f) do
begin
inc(n);
read(f, a[n]);
end;
// Отсортировали массив
for i:= 1 to n-1 do
for j:= n downto i+1 do
if a[j-1].ocenka<a[j].ocenka then
begin
tmp := a[j];
a[j] := a[j-1];
a[j-1] := tmp;
end;
close(f);
// Загрузили данные в файл
rewrite(f);
for i:= 1 to n do
write(f, a[i]);
/// close(f);
// Распечатали содержимое
/// reset(f);
seek(f,0);
while not eof(f) do
begin
read(f,st);
writeln(st.nom, ' ', st.fm, ' ', st.kurs, ' ', st.ocenka);
end;
writeln;
/// close(f);
// Удалили всю информацию
/// rewrite(f);
seek(f,0);
truncate(f);
/// close(f);
// Убедились, что файл пуст
/// reset(f);
seek(f,0);
if eof(f) then
writeln('Файл пуст');
close(f);
end.
const
MaxN=100;
var
i,j,n: integer;
f: text;
s, tmp: string;
nom, fm, kurs, ocenka: string;
a: array[1..MaxN] of string;
begin
// Создали файл
assign(f,'1.txt');
rewrite(f);
write('n=');
readln(n);
// Заполнили файл, введя n произвольных строк
for i:= 1 to n do
begin
write('номер ');
readln(nom);
write('фамилия ');
readln(fm);
write('курс ');
readln(kurs);
write('оценка ');
readln(ocenka);
writeln(f, nom+' '+fm+' '+kurs+' '+ocenka);
end;
close(f);
// Распечатали содержимое
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
writeln;
close(f);
// Загрузили данные в массив
n:= 0;
reset(f);
while not eof(f) do
begin
inc(n);
readln(f, a[n]);
end;
// Отсортировали массив
for i:= 1 to n-1 do
for j:= n downto i+1 do
if a[j-1][length(a[j-1])]<a[j][length(a[j])] then
begin
tmp := a[j];
a[j] := a[j-1];
a[j-1] := tmp;
end;
close(f);
// Загрузили данные в файл
rewrite(f);
for i:= 1 to n do
writeln(f, a[i]);
close(f);
// Распечатали содержимое
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
writeln;
close(f);
// Удалили всю информацию
rewrite(f);
close(f);
// Убедились, что файл пуст
reset(f);
if eof(f) then
writeln('Файл пуст');
close(f);
end.
type TStudent=record...; ... var f: File Of TStudent..., etc.
const
MaxN=100;
type
TStudent = record
nom: integer;
fm: string[30];
kurs: integer;
ocenka: integer;
end;
var
i,j,n: integer;
st, tmp: TStudent;
f: file of TStudent;
a: array[1..MaxN] of TStudent;
begin
// Создали файл
assign(f,'1.datt');
rewrite(f);
write('n=');
readln(n);
// Заполнили файл, введя n произвольных строк
for i:= 1 to n do
begin
write('номер ');
readln(st.nom);
write('фамилия ');
readln(st.fm);
write('курс ');
readln(st.kurs);
write('оценка ');
readln(st.ocenka);
write(f, st);
end;
close(f);
// Распечатали содержимое
reset(f);
while not eof(f) do
begin
read(f,st);
writeln(st.nom, ' ', st.fm, ' ', st.kurs, ' ', st.ocenka);
end;
writeln;
close(f);
// Загрузили данные в массив
n:= 0;
reset(f);
while not eof(f) do
begin
inc(n);
read(f, a[n]);
end;
// Отсортировали массив
for i:= 1 to n-1 do
for j:= n downto i+1 do
if a[j-1].ocenka<a[j].ocenka then
begin
tmp := a[j];
a[j] := a[j-1];
a[j-1] := tmp;
end;
close(f);
// Загрузили данные в файл
rewrite(f);
for i:= 1 to n do
write(f, a[i]);
close(f);
// Распечатали содержимое
reset(f);
while not eof(f) do
begin
read(f,st);
writeln(st.nom, ' ', st.fm, ' ', st.kurs, ' ', st.ocenka);
end;
writeln;
close(f);
// Удалили всю информацию
rewrite(f);
close(f);
// Убедились, что файл пуст
reset(f);
if eof(f) then
writeln('Файл пуст');
close(f);
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.