Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
4 / 4 / 2
Регистрация: 27.07.2012
Сообщений: 59
1

Школьный журнал

27.07.2012, 18:19. Просмотров 2065. Ответов 3
Метки нет (Все метки)

Помогите создать журнал,чтобы можно было вводить инициалы ученика и его оценки.И ещё,чтобы Pascal ABC подсчитывал средний балл и всё,что было записано можно было посмотреть(и если можете,оно сохранялось навсегда).И если сохранил,что - то не то,можно было исправить.Пожалуйста,очень надо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.07.2012, 18:19
Ответы с готовыми решениями:

Структура: Школьный класс
нужно описать, используя структуру данных запись, школьный класс (фамилия и инициалы, дата...

Структура данных запись, школьный класс
Опишите, используя структуру данных запись, школьный класс (фамилия и инициалы, дата рождения,...

Опишите, используя структуру данных запись, школьный класс
Дана задача:Опишите, используя структуру данных запись, школьный класс (фамилия и инициалы, дата...

Опишите, используя структуру данных запись, школьный класс
Опишите, используя структуру данных запись, школьный класс (фамилия и инициалы, дата рождения,...

3
Почетный модератор
7949 / 3920 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.07.2012, 02:50 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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
uses crt;
const nmax=10;
type schule = record
     fio: string [15];
     koz: byte;
     oz:  array [1..nmax] of byte;
     sr:  real;
     end;
 
var f: file of schule;
    v: byte;
 
procedure Zapis(var z: schule);
var j: byte;
begin
with z do
     begin
     sr:=0;
     write('Фамилия, инициалы: '); readln(fio);
     write('Количество отметок: '); readln(koz);
     writeln('Внесите отметки учащегося чере пробел в строку:');
     for j:=1 to koz do
         begin
         read(oz[j]);
         sr:=sr+oz[j];
         end;
     sr:=sr/koz;
     end;
end;
 
procedure Create(var f: file of schule);
var i,n: integer;
    s: schule;
begin
clrscr;
rewrite(f);
write('Сколько записей будет внесено? '); readln(n);
for i:=1 to n do
    begin
    Zapis(s);
    write(f,s);
    end;
close(f);
writeln('Данные внесены. Enter для продолжения');
readln;
end;
 
procedure Vyvod(f: file of schule);
var i: integer; s: schule; j: byte;
begin
clrscr;
reset(f);i:=0;
writeln('----------------------------------------------------------------------');
writeln('|     | Фамилия, инициалы |             Отметки            | Ср.балл |');
writeln('----------------------------------------------------------------------');
while not (eof(f)) do
      begin
      read(f,s);
      inc(i);
      with s do
           begin
           write('|',i:4,'|':2,fio:17,'|':3);
           for j:=1 to 10 do
               if j<=koz then write(oz[j]:3) else write(' ':3);
           writeln('|':3,sr:6:1,'|':4);
           end;
      end;
writeln('----------------------------------------------------------------------');
writeln('----------------------------------------------------------------------');
close(f);
writeln('Данные выведены. Enter для продолжения');
readln;
end;
 
procedure Add(var f: file of schule);
var i,n: integer;
    s: schule;
begin
clrscr;
reset(f);
seek(f,filesize(f));
write('Сколько записей будет добавлено?'); readln(n);
for i:=1 to n do
    begin
    Zapis(s);
    write(f,s);
    end;
close(f);
writeln('Данные добавлены. Enter для продолжения');
readln;
end;
 
procedure Change(var f: file of schule);
var i,n: integer;
    s: schule;
begin
clrscr;
reset(f);
write('Номер записи для изменения: '); readln(n);
seek(f,n-1);
Zapis(s);
write(f,s);
close(f);
writeln('Данные исправлены. Enter для продолжения');
readln;
end;
 
begin
assign(f,'D:\bd.dta');
repeat
writeln('0-завершение работы');
writeln('1-создание школьного журнала');
writeln('2-вывод школьного журнала');
writeln('3-добавление записей');
writeln('4-исправление записей');
readln(v);
case v of
1: Create(f);
2: Vyvod(f);
3: Add(f);
4:Change(f);
else v:=0;
end;
until v=0;
end.
1
Модератор
60279 / 45384 / 31319
Регистрация: 18.05.2008
Сообщений: 109,022
28.07.2012, 08:32 3
Цитата Сообщение от vi fail Посмотреть сообщение
и если можете,оно сохранялось навсегда)
Для этого нужен типизированный файл а не массив.
1
4 / 4 / 2
Регистрация: 27.07.2012
Сообщений: 59
28.07.2012, 10:16  [ТС] 4
Спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.07.2012, 10:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Создать каталог из журнал и статей
Создать каталог из журнал и статей.Выдавать информацию о публикациях Удовлетворяющих тому или иному...

Задача Школьный ремонт
Перед летним ремонтом кабинетов в школе решили подсчитать, сколько кабинетов могут быть...

Школьный бал - найти количество подходящих пар
Школьный бал Финалом выпускного бала состояния выполнения школьного вальса. Для этого нужно...

Описать школьный класс, используя структуру записи (среднее арифметическое дат и месяцев)
Задание полностью: Опишите, используя структуру записи, школьный класс ( фамилия, инициалы, дата...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.