alex15
1

Типизированные файлы

29.11.2011, 00:49. Показов 1504. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите с составлением кода по теме типизированные файлы. Тоже условие задачи по теме Записи(STRING) у меня есть. Как связать это с типизированными файлами. Спасибо за помощь.
Разработать программу записи подготовленных данных во внешний файл, вывод исходных данных из файла, добавление данных в файл и обработка данных согласно варианту: Студенты получающие стипендию (со средним баллом на экзаменах 7,5). Условие:Для студентов некоторой группы задана следующая информация: порядковый номер, ФИО, дата рождения, курс, год поступления, и оценки на последней сессии (три оценки по 10бальной системе). Составить программу, которая обеспечивает вывод полученной информации, распечатку ее в виде таблицы, а также распечатку ее согласно варианту Вот код без файлов:
Код
uses crt;
type
studlib=record
FIO:string;
Birth_Date:string;
Course:integer;
Year: word;
Marks:Array [1..3] of integer;
Mmark: Real;
end;

var
stud: Array [1..10] of studlib;
i,N: integer;
Procedure Out_Date (std: Studlib);
var j: integer;
begin
with std do
begin
write (FIO);
FOR J:=Length (FIO)+ 1 TO 30 DO WRITE ('');
WRITE (Birth_Date);
write (Course:3);
write (Year:5);
for j:= 1 to 3 do
write (Marks [j]:4);
writeln (Mmark:7:2);
end;
end;
BEGIN
clrscr;
N:=0;
writeln ('Vvodite dannie o studentah');
repeat
Inc(N);
WITH stud[N] do
begin
write ('FIO:');
readln(FIO);
WRITE ('Birth Date (dd.mm.yyyy):');
readln(Birth_Date);
write('Course');
write('Year of entry:');
readln(Year);
Mmark:=0;
for i:=1 to 3 do
begin
write('Mark',i,'=');
readln(Marks[i]);
Mmark:=Mmark+Marks[i]/3;
end;
end;
clrscr;
writeln ('Enter-continue, ESC-quit');
until (readkey=#27) or (N=100);
clrscr;
writeln ('Granted students:');
for i:=1 to N do
if stud[i]. Mmark>=7.0 then
Out_Date(stud[i]);
readkey;
END.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2011, 00:49
Ответы с готовыми решениями:

Типизированные файлы
Описать процедуру append(f,g,h) от трех типа char, которая записывает в файл f сначала все...

Типизированные файлы
Нужна помощь с задачей: В файле f записей хранится следующая информация о товарах, имеющихся на...

типизированные файлы
Люди, помогите пожалуйста с программой! Файл Finp содержит матрицу из m х n целых чисел....

Не типизированные файлы.
Доброго времени суток. Прошу проверить логику программы. Задание следующие: Создать не...

3
albor
29.11.2011, 23:20 2
Вы уже почти все сами и сделали. Чем помочь то?
alex15
29.11.2011, 23:45 3
так не знаю как до конца доделать. связать все с файлами. Помогите доделать.
albor
30.11.2011, 00:18 4
У Вас есть запись:
Pascal
1
2
3
4
5
6
7
8
9
type
studlib=record
  FIO:string;
  Birth_Date:string;
  Course:integer;
  Year: word;
  Marks:Array [1..3] of integer;
  Mmark: Real;
end;
Подсказка:

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
Program MyTypedFile;
 
type
studlib=record
  FIO:string;
  Birth_Date:string;
  Course:integer;
  Year: word;
  Marks:Array [1..3] of integer;
  Mmark: Real;
end;
 
var
  i: integer;
  studrec : studlib;         {запись}
  StudFile: file of studlib; {сам файл}
begin
  Fillchar(StudRec,Sizeof(StudRec),0); {зачищаем от мусора}
  Assign(StudFile, 'StudFile.dat');        {объявляем файл }
  Rewrite(StudFile);                          {создаем или открываем Reset файл}
 
  for i:=1 to 10 do                            {и чего нибудь пишем в него....}
  begin
    StudRec.Course := i;
    Write(StudFile, StudRec);
  end;
 
  Close(StudFile);              {не забываем закрыть}
end.                               {для того чтобы прочитать или записать нужную запись}
                                     {не забываем позиционирование на нее Seek(StudFile, MyRecNo)}
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2011, 00:18
Помогаю со студенческими работами здесь

Типизированные файлы
Создать файл F1, компонентами которого являются целочисленные массивы a1,.., a10, закрыть его....

типизированные файлы
даны два символьных файла одинакового размера.проверить,совпадают ли их компоненты.если нет,то...

типизированные файлы
Добрый ВЕЧЕР!Запарился с задачкой, помогите мне пожалуйста! Задан файл содержащий...

Типизированные файлы
Дан файл,содержащий данные о выдаче книг в библиотеке. Он содержит дату выдачи,фамилию автора и...

Типизированные файлы
Эту задачу уже решали и она правильно решена! Только мне нужно чтобы в этой задаче использовалась...

Типизированные файлы
Ввести файл F1 . Записать в файл F2 компоненты файла F1 в обратном порядке. В каждом из файлов...


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

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

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