IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Файлы + Запись
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Антон

Репутация: -  0  +


Составить программу обработки информации о некоторых студентах

ФИО | Год Рождения| Пол | Оценка По Физике| По математике | По информатике| Стипендия |



Вывести фамилии студентов женского пола имеющих 5 по информатике

Нужно сделать через запись и чтобы данные читались из файла .

через запись я сделал но как сделать чтобы данные читались из фала и выполнялось условие(вывести фамилии студенток у которых 5 по информатике)?

помогите plz

Сообщение отредактировано: sugutor -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 7)
сообщение
Сообщение #2


Гость






Цитата
через запись я сделал
То есть, ты предлагаешь нам ТОЖЕ сделать сначала через запись, потом включить телепатические способности, проверить так ли мы сделали, как ты, и если так - то дополнить программу работой с файлом?

Нужна помощь - присоединяй код...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Антон

Репутация: -  0  +


ок .. заранее спасибо

Код
program spisok;
uses crt;
type zap=record
     fio,pol: string[15];
     gr,ocf,ocm,oci,stip: integer;
     end;
var sp:array[1..15] of zap;
    z:array[1..15] of zap;
k,q,n,m,i,Sum: integer;

begin
k:=1;
clrscr;
writeln ('vvesti kol-vo studentov');
readln (n);
repeat m:=m+1;
write ('vvedite FIO '); readln (sp[m].fio);
write ('vvedite God Rozhdeniya '); readln (sp[m].gr);
write ('vvedite Pol '); readln (sp[m].pol);
write ('vvedite Ocenka Fizika '); readln (sp[m].ocf);
write ('vvedite Ocenka Matematika '); readln (sp[m].ocm);
write ('vvedite Ocenka Informatika '); readln (sp[m].oci);
write ('Stipendia '); readln (sp[m].stip);
until (n=m);

for i:=1 to n do
begin
writeln ('FIO: ',sp[i].fio);
writeln ('God Rozhdenia: ',sp[i].gr);
writeln ('Pol: ',sp[i].pol);
writeln ('Ocenka Fizika: ',sp[i].ocf);
writeln ('Ocenka Matematika: ',sp[i].ocm);
writeln ('Ocenka Informatika: ',sp[i].oci);
writeln ('Stipendia: ',sp[i].stip);
writeln;
end;
for i:=1 to n do
if (sp[i].pol='f') and (sp[i].oci=5) then
writeln('Stydentka kotoraya imeet po informatike 5: ',sp[i].fio);
end.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


FAQ по файлам читал?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Антон

Репутация: -  0  +


читал но вроде как нужного не нашел ..мб я ошибся... подскажите плиз) .. заранее извиняюсь если там все таки есть пример на эту тему мб я просто не понял
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


FAQ - файлы
вперед - раздел "Чтение и запись".


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 6
Пол: Мужской
Реальное имя: Антон

Репутация: -  0  +


ну помогите с кодом в конце концов зачем свой выкладывал .. в теории это одно(мда прочитал я что делают операторы read, write, и функция eof и сразу все понял) .. а соответствующего примера там нет
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


тебе осталось вставить строчки записи записи в файл (что такое write ты прочитал) и чтения записи из файла (read).
в чем тут помогать-то?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.09.2020 15:37
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name