Нужно составить описание к программке(Задание - Составить перечень, содержащийсведения об n
Нужно составить описание к программке(Задание - Составить перечень, содержащий сведения об n студентах. Для каждого студента должно быть указано:
- фамилия;
- ИНН;
- дата рождения;
- год поступления в институт;
- курс;
- группа;
- оценки текущей сессии по трем предметам.
Информацию о каждом студенте оформить в виде записи. Совокупа записей соединить в массив. Составить программку, которая обеспечивает ввод исходных данных, обработку и вывод на экран информации в согласовании с вариантом задания.
Вывести на экран фамилии 3-х самых юных студентов)
program pr5;const
N = 5;
type
student = Record
fam: String;
inn: string;
Year: integer;
god_p: integer;
kurs: 1..5;
gruppa: string;
b1, b2, b3: 1..5;
End;
var
spisok: Array [1..N] Of student;
FF: Text;
b, a: string;
i, j, k1: Integer;
begin
for i := 1 To N Do
with spisok[i] Do
begin
Writeln('Введите фамилию');Readln(fam);
Writeln('Введите ИНН');Readln(inn);
Writeln('Введите три оценки');Readln(b1, b2, b3);
Writeln('год поступления');Readln(god_p);
Writeln('курс');Readln(kurs);
Writeln('группа');Readln(gruppa);
Writeln('Введите дату рождения(GGGGMMDD)без пробелов и точек всё пишем слитно(19971231)');Readln(Year);
end;
for i := 1 to n - 1 do
for j := 1 to n - i do
if spisok[j].Year gt; spisok[j + 1].Year
then
begin
k1 := spisok[j].Year;
a := spisok[j].fam;
spisok[j].Year := spisok[j + 1].Year;
spisok[j].fam := spisok[j + 1].fam;
spisok[j + 1].Year := k1;
spisok[j + 1].fam := a
end;
writeln;
for i := 1 to 3 do
begin
write(spisok[i].fam);
writeln;
end;
end. Задать свой вопрос
1 ответ
Пилипович
Карина
Описывается перечень с полями сообразно заданию
type
student = Record
fam: String;
inn: string;
Year: integer;
god_p: integer;
kurs: 1..5;
gruppa: string;
b1, b2, b3: 1..5;
End;
Объявляются необходимые переменные и массив с типом записи
var
spisok: Array [1..N] Of student;
b, a: string;
i, j, k1: Integer;
И заполняется от 1 до N (N=5 установлена константа)
for i := 1 To N Do // идем от 1 до N и заполняем перечень
with spisok[i] Do
begin
Writeln('Введите фамилию');Readln(fam);
......
end;
Позже обрабатывается согласно заданию по вариантам
Скорее всего, что-то типо сортировки по году рождения, самых юных пихают в начало.(глупо. можно было не городить таковой кусок кода, а уместить все в один цикл с проверкой и выводом ИМХО)
Потом выводится 3 фамилии самых юных
for i := 1 to 3 do
begin
write(spisok[i].fam);
writeln;
end;
type
student = Record
fam: String;
inn: string;
Year: integer;
god_p: integer;
kurs: 1..5;
gruppa: string;
b1, b2, b3: 1..5;
End;
Объявляются необходимые переменные и массив с типом записи
var
spisok: Array [1..N] Of student;
b, a: string;
i, j, k1: Integer;
И заполняется от 1 до N (N=5 установлена константа)
for i := 1 To N Do // идем от 1 до N и заполняем перечень
with spisok[i] Do
begin
Writeln('Введите фамилию');Readln(fam);
......
end;
Позже обрабатывается согласно заданию по вариантам
Скорее всего, что-то типо сортировки по году рождения, самых юных пихают в начало.(глупо. можно было не городить таковой кусок кода, а уместить все в один цикл с проверкой и выводом ИМХО)
Потом выводится 3 фамилии самых юных
for i := 1 to 3 do
begin
write(spisok[i].fam);
writeln;
end;
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов