Задача на файлы записей, файлы записей |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача на файлы записей, файлы записей |
Zlo |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Репутация: 0 |
Помогите написать программу, а то зачет не поставят(:
Заполнить текстовый файл данными о 30 абитуриентов поступающих на три разных факультета(фамилия, имя, факультет,оценки,полученные на трех экзаменах). Переписать данные в файл записей. вывести на экран списки абитуриентов по факультетам,получивших "двойку" на одном из экзаменов. Сообщение отредактировано: Zlo - |
Тёмный Эльф |
Сообщение
#2
|
Влюблённый псих Группа: Пользователи Сообщений: 185 Пол: Женский Реальное имя: Лейла Репутация: 1 |
Помогите написать программу, а то зачет не поставят(: Заполнить текстовый файл данными о 30 абитуриентов поступающих на три разных факультета(фамилия, имя, факультет,оценки,полученные на трех экзаменах). Переписать данные в файл записей. вывести на экран списки абитуриентов по факультетам,получивших "двойку" на одном из экзаменов. А что конкретно не получается? О типе данных Записи можешь прочитать в факе: Записи, о работе с файлами здесь: Файлы |
Zlo |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Репутация: 0 |
Вообщем есть программа помогите исправить а то работает некоректно
const n=30;
type ocen=array[1..3] of byte;
student=record
Fi:string;
fak:string;
oc:ocen;
end;
var ab:array[1..30] of student;
out:file of student;
i:integer; s:string;
begin
assign(input,'input.txt');reset(input);
for i:=1 to n do begin
read(s);
ab[i].Fi:=ab[i].Fi+s;
read(s); ab[i].Fi:=ab[i].Fi+' '+s;
read(ab[i].fak);
read(ab[i].oc[1]);
read(ab[i].oc[2]);
readln(ab[i].oc[3]);
end;
close(input);
assign(out,'output.txt');
rewrite(out);
for i:=1 to n do
write(out,ab[i]);
close(out);
for i:=1 to n do
if (ab[i].fak=ab[1].fak) then
if (ab[i].oc[1]=2) or (ab[i].oc[2]=2)or(ab[i].oc[3]=2) then writeln(ab[i].Fi);
for i:=1 to n do
if (ab[i].fak<>ab[i].fak) then
if (ab[i].oc[1]=2)or(ab[i].oc[2]=2)or(ab[i].oc[3]=2) then writeln(ab[i].Fi);
end.
|
andriano |
Сообщение
#4
|
Гуру Группа: Пользователи Сообщений: 1 168 Пол: Мужской Реальное имя: Сергей Андрианов Репутация: 28 |
В чем состоит некорректность?
|
Ozzя |
Сообщение
#5
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Ввод в текстовый файл с клавиатуры:
...
type
ocen=array[1..3] of byte;
student=record
Fam,Imya:string;
fak:string;
oc:ocen;
end;
...
var
f: text;
begin
assign(f,'input.txt');rewrite(f);
for i:=1 to n do
begin
readln(ab[i].Fam);
readln(ab[i].Imya);
readln(ab[i].fak);
readln(ab[i].oc[1]);
readln(ab[i].oc[2]);
readln(ab[i].oc[3]);
end;
close(f);
|
Текстовая версия | 13.01.2025 7:02 |