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

Создание файла (программа, с выполнением доп.функций)

03.06.2014, 00:22. Показов 435. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать файл, содержащий сведения о сдаче студентами сессии. Каждая запись содержит поля: номер
группы, фамилия, имя, отчество студента, оценки по пяти экзаменам и пяти зачетам (зачет, незачет). На
экран и в отдельный файл вывести: фамилии неуспевающих студентов с указанием номера группы и
количества задолженностей; средний балл, полученный каждым студентом группы Х и всей группой в
целом. Номер группы вводится с клавиатуры.
Программа должна выполнять следующие дополнительные функции:
1.создание новой базы данных; открытие базы из файла;
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
uses crt;
type baza=record
surname: string[10];
name: string[10];
ocenka: integer;
zachet: char;
 
end;
 
var
 
f:file of baza; friends: array [1..100] of baza;
 
I,k, j, c, n: integer;
S, l:real;
 
 
begin
 
assign(F,'D:\baza.dat');
rewrite(f);
 
 
writeln('Введите количество людей');
readln(n);
for I:=1 to n do
begin
 
writeln ('введите фамилию человека');
readln (friends[i].surname);
writeln ('введите группу человека');
readln (friends[i].name);
write(F,friends[i]);
end;
for j:=1 to 5 do begin
 
writeln ('Введите оценку за экзамен человека');
readln( friends[j].ocenka);
writeln ('Введите зачет или незачет(з или н) человека');
readln(friends[j].zachet);
write(F,friends[j]);
writeln('---------------');
end;
close(f);
writeln;
writeln;
 
writeln('Файл успешно создан');
writeln;
reset(F);
 
while not Eof(F) do begin
 
 
for I:=1 to n do begin
read(f,friends[i]);
 
read(f,friends[j]); end;
 
 
 
for I:=1 to n do
for j:=1 to n do
 
if (( friends[j].ocenka)<26) or ((friends[j].zachet)='н') then Writeln('Фамилия и Имя не сдавшего экзамен или зачет,человека:',' ',friends[i].surname,' ',friends[i].name); end;
 
 
writeln;
{
k:=0;
c:=0;
 
for i:=1 to n do
 
if ((friends[i].ocenka)<26) or((friends[i].zachet)='н')then
 
begin inc(c);inc(k);
writeln('Количество не сдавших экзамен:', k) ;
writeln('Количество не сдавших зачет:', c);
end; }
Close(F);
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2014, 00:22
Ответы с готовыми решениями:

Сделать решение без доп файла (я сделал с доп)
Дан символьный файл. Сократить число пробелов между словами до одного. я сделал но с копированием...

Проблема с выполнением функций
Здравствуйте, мне нужна помощь. Я пишу программу и вот ее фрагмент: def play_music(zadanie): ...

массив с выполнением функций
Добрый вечер, у меня есть небольшая проблема, мне хотелось бы, сделать выпадающее меню значение...

Таймаут между выполнением функций в php
Всем привет! Подскажите как можно установить таймаут между выполнением функций. Вот пример,...

0
03.06.2014, 00:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2014, 00:22
Помогаю со студенческими работами здесь

Выпадающее меню доп.функций
Собственно видно всё на видео. Когда я зареган, меню не отображается, а когда гость - то да. В чём...

Повторно запустить оператор switch без goto, циклов и доп. функций
Как сабж? int intSum = 0; int main(void) { int intInteger01, intInteger02; int intSwitch;...

Создание доп. меню
Здравствуйте, подскажите как создать Верхнее меню (Файл, правка и т.п). Заранее благодарен.

Создание запроса на доп. реквизиты
Добрый день! Подскажите пожалуйста, как решить данную проблему: Создал небольшой запрос....

WIN32, Windows(Окна) . Создание Доп.окон.
Снова я) Есть програмка. Программная среда -VisualStudio - проект Win32 . Есть основное окно....

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


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

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

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