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

@lexilexustkn · Регистрация: 06.03.2013

Author24 — интернет-сервис помощи студентам

Создать файл, содержащий сведения о удачи студентами 1курса кафедры "ЭВМ" сессии. Структура записи: индекс группы, фамилия студента, оценки по пяти экзаменам, признак участия в общественной работе: "1"-активное участие, "0"-неучастие. Кол-во записей-10.

@StrelokCj · 07.03.2013, 18:09

Pascal

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.

@lexilexustkn 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 39
		1
	Создать файл, содержащий сведения о удачи студентами 1 курса кафедры "ЭВМ" сессии 06.03.2013, 23:33. Показов 2550. Ответов 1 Метки нет (Все метки) Создать файл, содержащий сведения о удачи студентами 1курса кафедры "ЭВМ" сессии. Структура записи: индекс группы, фамилия студента, оценки по пяти экзаменам, признак участия в общественной работе: "1"-активное участие, "0"-неучастие. Кол-во записей-10. 0

	07.03.2013, 18:09

Опции темы

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

Решение