1. Надо добавить точку в последней строке программы. Иначе работать не будет. 2. Меняется всего одна строка в программе:
program pr2;
type student = record {объявление нового типа данных student} LastName: string; {фамилия студента} bal: array [1..5] of integer; {массив для 5-ти оценок} average: real {средний студента} end;
var pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student} n, i, j, s: integer;{переменные целого типа}
begin write('Введите количество студентов: '); readln(n); for i := 1 to n do begin{запрос данных по n студентам} with pupil[i] do begin Write('Введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i} Readln(LastName); s := 0; {целочисленная переменная для определения суммы студента} for j := 1 to 5 do begin{цикл для обработки 5-ти оценок каждого студента} write('Введите оценку за экзамен №:', j, ': ' ); readln(bal[j] ); s := s + bal[j]; {суммирование 5-ти оценок студента} end; average := s / 5; {определение среднего значения и запись в переменную average} end; end; writeln; writeln( 'Студенты, имеющие средний больший или равный 4'); for i := 1 to n do begin if pupil[i].average >= 4 then {если средний студента >=4} write(pupil[i].LastName,', '); end; end.
Несмотря на то, что в данный момент выгоды от применения автоматизации в промышленности неоспоримы, остаются также проблемы при разработке ряда технологических решений, которые невозможно осуществить традиционными компонентами. Проблема внедрения сетевого оборудования в систему автоматизации производства Основной проблемой при работе по автоматизации производств является проблема внедрения тех или иных проектов, дальнейшая отладка процессов, контроль выполнения поставленных задач. Эффективное использование системы требует соответствующей организации, наличия связей между множеством элементов. Промышленное сетевое оборудование является связующим звеном между датчиками, контроллерами управления и исполнительными механизмами. Для обеспечения работо системы, нормального взаимодействия необходимо единство стандартов взаимодействия. Недостатками такого вида устройства является аварийная работо сети в результате обрыва связующих магистралей. Для предотвращения таких ситуаций применяют дублирующие каналы связи, топологию типа «кольцо». Узкая специализация элементов автоматизированной системы требует узкоспециализированных решений, удовлетворяющих потребности рабочих устройств. Малейшее изменение качества сырья, которое не было обработано и подвергнуто проверке поставить под вопрос качество готовой продукции. Например, такие устройства как гигростаты () применяются в качестве регуляторов относительной влажности сырья в пищевой промышленности, машиностроении, химической и нефтеперерабатывающей промышленности, где изменение показателя влажности также привести к выходу из строя неИнфостем. Проблема автоматизации промышленных процессов Сборочные работы в отдельных отраслях могут достигать показателя в 20–50% от общего количества потраченной энергии, что приводит к потребности не только автоматизировать отдельные участки труда, но и обеспечить связью разные технологические процессы и функциональные блоки. Производственные линии могут достигать нескольких километров в длину, что существенно затрудняет поддержание постоянно темпа сборки или обработки. Промышленное сетевое оборудование () делает возможной механизацию серийного производства на уровне 55%. Благодаря этому показателю достигается массовость. Однако не всегда существует возможность полной автоматизации, порой уровень максимально допустимой автоматизации может достигать всего лишь 5%, и связано это может быть с технологией производства, высокими потенциальными затратами на процессы. Постоянно растущий спрос на технические решения по автоматизации промышленности приводит к разработке новых технологий, увеличению сложности моделей и систем в сфере промышленного производства. Наряду с этим, дефицит квалифицированных кадров может привести к срыву работ, увеличению стоимости запланированных работ, увеличению сроков по реализации поставленных целей. Всё чаще контроллеры, адаптеры, гигростаты, сенсоры требуют высокой квалификации обслуживающего персонала. Единственным радикальным решением данной проблемы может стать расширение функциональности и автономности систем промышленной автоматизации. Переход к комплексным решениям смог бы обеспечить узкую специализацию устройств с одной стороны и их поточный контроль с друго
2. Меняется всего одна строка в программе:
program pr2;
type
student = record {объявление нового типа данных student}
LastName: string; {фамилия студента}
bal: array [1..5] of integer; {массив для 5-ти оценок}
average: real {средний студента}
end;
var
pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}
n, i, j, s: integer;{переменные целого типа}
begin
write('Введите количество студентов: ');
readln(n);
for i := 1 to n do
begin{запрос данных по n студентам}
with pupil[i] do
begin
Write('Введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i}
Readln(LastName);
s := 0; {целочисленная переменная для определения суммы студента}
for j := 1 to 5 do
begin{цикл для обработки 5-ти оценок каждого студента}
write('Введите оценку за экзамен №:', j, ': ' );
readln(bal[j] );
s := s + bal[j]; {суммирование 5-ти оценок студента}
end;
average := s / 5; {определение среднего значения и запись в переменную average}
end;
end;
writeln;
writeln( 'Студенты, имеющие средний больший или равный 4');
for i := 1 to n do
begin
if pupil[i].average >= 4 then {если средний студента >=4}
write(pupil[i].LastName,', ');
end;
end.