oksannna
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста составить список группы из 25 студентов. Для каждого студента нужно описать Ф.Т.О., дату рождения, год поступления, курс, средний бал. Информацию о каждом студенте оформить в виде записи, записи обьединить в массив. Вывести на печать данные о студентах, у которих оценка "хорошо" и "отлично".
Вторая задача. Дано непустое множество символов. Нужно построить и вывести на печать множество, элементами которого есть цифры "0" .."9".
Заранее благодарна)))))))
Добавлено:
Вот то, что я пыталась сотворить по первой задачи
Program Students;
type
tablica=record;
name: string[25];
date_birth: integer;
rik_vstypy: integer;
kyrs: integer;
grypa: string[8];
bal: byte;
end;
const n=25;
Var
i, j: integer;
a: tablica; mas: array [1..N] of tablica;
begin
for I:=1 to N do
Writeln('vvedit imya i prizvishe studenta № ',I,' :');
Readln(Name);
Writeln('data narodgennya:');
Readln(date_birth);
Writeln('rik vstypy:');
Readln(rik_vstypy);
Writeln('kyrs:');
Readln (kyrs);
Writeln('grypa:');
Readln(grypa);
Writeln ('seredniy bal');
Readln (bal);
writeln('Name: data narodgennya: rik vstypy: kyrs: grypa: seredniy bal:');
end.
Добавлено:
Я попыталась составить хотя бы сам список, как сделать отбор по оценкам не знаю. Не пузырьком ведь? А в том, что написала не работает счетчик и данные таблицей не выводятся... |
часики рисовал 