Помощь - Поиск - Пользователи - Календарь
Полная версия: задача на записи2
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
RAPON
Опишите, используя структуру записи, школьный журнал.Предусмотрите в записи поля для хранения информации о фамилии учащегося, предмете, оценке. Составьте программу, считывающую с клавиатуры данные об успеваемости учащихся класс и выводящую на экран сведения об отличниках класса, о средней успеваемости учащихся класса.

Мне непонятен момент связанный с предметом..
Предмет должен одинаковый для всех?
Если представить что предметов несколько то тогда зачем под предмет отводить одно поле..?
klem4
Обычно предметов несколько и для их хранения используется массив.
Тему переименуй и вторую тоже, иначе придется закрыть. Куча похожих задач решалась, вопсользуся поиском
andriano
Если бы предмет был единственным, было бы бессмысленным отводить под него отдельное поле.
Telepat
 
type journal=record
name:string;
predmet:string;
ozenka:integer;
end;


Это будет твоя запись об ученике,его фамилии,о предмете,и оценке.
Потом создай массив учеников типа journal вот и все
А предметы наверное должны быть разные такуспеваемость учеников не может быть по одному предмету
RAPON
Const n=4;m=2;
Type
Gurnal=record
Familia:string;
Predmet:array[1..n] of string;
Ozenka:array[1..m] of byte;
End;
Var
I,g:integer;
A:array[1..n] of gurnal;
Begin
For i:=1 to n do
Begin
With a[i] do
Begin
Readln(familia);

как организовать ввод данных в массивы predmet и ozenka?
Telepat
Запускаешь цикл и считываешь например
Readln(a[i].predmet[i])

Вроде бы все , так же само и с оценками
RAPON
скажите пожалуйста а лучше покажите,каким образом в блок-схеме строятся части когда есть операторы goto и with a[i] do?просто мне надо ща блок-схему сделать а не знаю как на блок схеме обозначать что присутствуют записи.
RAPON
неужели никто не поможет?..
renesko1
Программа построения блок-схем

здесь попробуй скачать программы по ссылкам для построение блок схем.
RAPON
да я пробовал.программа работает а при построении блоксхемы ошибку выдаёт..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.