Лабораторная работа №4 Программа «Деканат».
В деканат поступили данные о результатах сдачи сессии группой студентов из N человек. Сессия состояла из трех экзаменов (математика, информатика, физика). Требуется:
1. Определить число студентов, сдавших сессию (не получивших ни одной двойки).
2. Число студентов, сдавших все экзамены на 4 и 5.
3. Число отличников (вывести их фамилии).
4. Средний по каждой дисциплине.
5. Средний группы.
6. Список студентов, чей средний выше, чем средний по группе.
Рекомендации:
1. Фамилии и инициалы студентов хранить в строковом массиве
string[] Fio;
Fio= new string[N];
Fio[i] = Console.ReadLine();
2. Для хранения оценок завести отдельные числовые массивы для каждого предмета.
3. Вводить информацию о студентах в следующем порядке:
Вначале вводится N – число студентов, затем для каждого студента вводится его фамилия и экзаменационные оценки по трем предметам.
Пример ввода:
Количество студентов: 3
Фамилия 1 студента: Иванов
Оценка по математике 5
Оценка по физике 5
Оценка по информатике 5
Фамилия 2 студента: Петров
Оценка по математике 4
Оценка по физике 4
Оценка по информатике 4
Фамилия 3 студента: Сидоров
Оценка по математике 3
Оценка по физике 3
Оценка по информатике 2
Вывод
1. Число студентов, сдавших сессию, - 2
2. Число студентов, сдавших все экзамены на 4 и 5, -2
3. Число отличников -1
Иванов
4. Средний по каждой дисциплине:
Математика - 4
Физика - 4
Информатика – 3,6
5. Средний группы. – 3,8
6. Список студентов, чей средний выше, чем средний по группе:
Иванов
Петров
Приведём все степени к основанию 2
2^3702-2^468+2^1620-108
-108 можно представить как -128 + 16 + 4
2^3702-2^468+2^1620-2^7 + 2^4 + 2^2
Теперь выстраиваем степени в порядке убывания:
2^3702+2^1620-2^468-2^7 + 2^4 + 2^2
В выражении два вычитания подряд, избавимся от этого, заменив -2^468 на -2^469 + 2^468
2^3702+2^1620 -2^469+2^468-2^7 + 2^4 + 2^2
2^3702 - 1 единица
2^4 - 1 единица
2^2 - 1 единица
Количество единиц в вычитаниях будет равно разнице степеней. Например 1000000-100=1111
2^1620 -2^469 - количеств единиц 1620-469 = 1151
2^468-2^7 - количество единиц 468-7 = 461
Общее количество единиц равно 3+1151+461 = 1615
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}