RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты данной рассылки
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Вопрос № 183501: Здравствуйте уважаемые эксперты. Прошу помощь в следующем вопросе: Дан файл с набором структур типа: номер, фамилия, курс, оценка. Не используя дополнительного файла, разместить в исходном файле сведения сначала об отличниках, потом о хорошистах и... Вопрос № 183501:
Здравствуйте уважаемые эксперты. Прошу помощь в следующем вопросе:
Отправлен: 04.06.2011, 10:45 Отвечает Гусятинер Леонид Борисович aka lamed (Академик) : Здравствуйте, Посетитель - 376401! PascalABC.Net Вариант с текстовым файлом. Код : 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.
Приложение:
Ответ отправил: Гусятинер Леонид Борисович aka lamed (Академик)
Отвечает Орловский Дмитрий (Академик) : Здравствуйте, Посетитель - 376401! Не мог пройти мимо сортировки в массиве. Я бы сделал по-другому:
Приложение:
Ответ отправил: Орловский Дмитрий (Академик)
Оценить выпуск »
Задать вопрос экспертам этой рассылки »Скажите "спасибо" эксперту, который помог Вам!Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТАна короткий номер 1151 (Россия) Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов) © 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.31 от 07.05.2011 |
| В избранное | ||
