Напишите функцию sisseastumine(), при запуске которой происходит заполнение двух списков: абитуриенты[], []. Количество элементов в списках ограничивается пользователем (либо оговаривается сколько людей надо опросить, либо в режиме online- данные вносятся пока не закончатся данные о людях). После заполнения списков появляется меню с выбором действий:
• Узнать список поступивших в вуз людей(количество поступивших указывает пользователь);
• Отобразить в алфавитном порядке список людей и их ;
• Найти n людей с худшими результатами;
• Найти средний поступивших ;
• Свой вариант.
Для описания действий создайте необходимые функции
uses crt;
Var a,b,c:integer;
Begin
Write('Введите 1-ю сторону: '); Readln(a);
Write('Введите 2-ю сторону: '); Readln(b);
Write('Введите 3-ю сторону: '); Readln(c);
{Проверка на существование треугольника}
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if ((a=b)or (b=c) or (a=c)) then
Writeln('Треугольник равнобедренный');
if ((a=b) and (b=c)) then
Writeln('Треугольник равносторонний')
else Writeln('Треугольник разносторонний');
if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a)) then
Writeln('Треугольник прямоугольный');
end
else Writeln('Треугольник нельзя построить');
Readln();
END.
Объяснение:
Приведите примеры ситуаций, в которых информация:
собирается - опрос журналистом людей для статьи в газете
обрабатывается - решение учеником задачи
упрощается - тбъяснение учителем материала урока
создается - придумывание журналистом статьи (как ее написать, что в ней написать и т.д)
запоминается - выучивание учеником стиха
измеряется - рассчитывание программистом объема, который займет написанная им программа
копируется - списывание учеником домашнего задания у одноклассника
передается - распространение слухов внутри класса или школы (один рассказал, другой передал и так далее)
принимается - ученики слушают, что им рассказывает учитель на уроке
разрушается - отклонение написанной статьи журналиста
делится на части - работа с текстом на уроке русского языка (вставить запятые, буквы, например)
ищется - поиск материала для написания сообщения, доклада на какой-либо урок
Надеюсь, смогла