0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 39
1

Создать файл, содержащий сведения о удачи студентами 1 курса кафедры "ЭВМ" сессии

06.03.2013, 23:33. Показов 2213. Ответов 1
Метки нет (Все метки)

Создать файл, содержащий сведения о удачи студентами 1курса кафедры "ЭВМ" сессии. Структура записи: индекс группы, фамилия студента, оценки по пяти экзаменам, признак участия в общественной работе: "1"-активное участие, "0"-неучастие. Кол-во записей-10.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2013, 23:33
Ответы с готовыми решениями:

Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии
Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии. Структура записи -...

Создать типизированный файл, содержащий сведения о сдаче студентами сессии
Создать типизированный файл, содержащий сведения о сдаче студентами сессии. Каждая запись содержит...

Создать файл, содержащий сведения о результатах сессии
Подскажите, пожалуйста Создать файл, содержащий сведения о результатах сессии: фамилия и...

Файлы: оздать файл, содержащий сведения об абитуриентах, желающих поступить в "Университет"
Создать файл, содержащий сведения об абитуриентах, желающих поступить в "Университет" . Каждая...

1
218 / 50 / 52
Регистрация: 15.01.2013
Сообщений: 305
07.03.2013, 18:09 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
label 1;
type inform=record
Number:byte;
INDEX:byte;
FIO:string[15];
EX:string[10];
UCH:byte;
end;
var
FV:File of inform;
RV:inform;
begin
clrscr;
assign(FV,'m:\inform.txt');
rewrite(FV);
while true do begin
write('Номер: ');readln(RV.Number);
if RV.Number=10 then begin Close(fv);goto 1;end;
write('ИНдекс группы: ');readln(RV.INDEX);
write('Фамилия: ');readln(RV.FIO);
write('Оценки по пяти экзаменам(через пробел): ');readln(RV.EX);
write('Участие в общественной работе(1-активное,0-неучастие): ');readln(RV.UCH);
write(FV,RV);
end;
1:
assign(FV,'m:\inform.txt');
reset(FV);
while not Eof(FV) do begin
read(FV,RV);
Writeln(RV.INDEX:3,RV.FIO:15,RV.EX:15,RV.UCH:8);
end;
close(FV);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2013, 18:09
Помогаю со студенческими работами здесь

Создать файл содержащий сведения о сдаче студентами первого курса сессии
Создать файл содержащий сведения о сдаче студентами первого курса сессии. структура записи индекс...

Типизированный файл: Создать файл F1, компонентами которого являются "m" одинаковых чисел, а именно "min" элемент из файла F
Создать типизированный файл F, содержащий последовательность целых чисел. Создать файл F1,...

Создать файл, содержащий сведения о сотрудниках
Помогите сделать задачу! Пожалуйста! Нужно создать файл, содержащий сведения о сотрудниках. ...

Создать файл, содержащий сведения об автомобиле
Создать файл, содержащий сведения об автомобиле. Структура записи: марка, номер автомобиля и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru