Консолидация данных
1. Загрузить табличный процессор Microsoft Excel.
2. На пяти листах одновременно создать таблицы по приведенной форме (в
ячейках, содержащих символ *, выполнить расчеты).
3. Заполнить таблицу произвольными данными (не менее 10 срок).
4. Добавить в книгу 2 листа и присвоить их ярлыкам имена: Консолид_
по_распол и Консолид_ по_категор.
5. На листе Консолид_ по_распол создать сводный отчет, используя
консолидацию по расположению и итоговою функцию Сумма
(консолидировать отчеты листов 1-3).
6. Внести изменения в отчеты на Листах 4 – 5, расширить ассортимент или
изменить последовательность названный.
7. На листе Консолид_ по_категор создать сводный отчет, используя
консолидацию по категории и итоговую функцию Сумма
(консолидировать отчеты листов 1-5).
Program kontr;
var a,b:integer;
c:char;
n,m:string;
begin
writeln ('Введите первую цифру');
readln(a);
writeln ('Введите вторую цифру');
readln(b);
writeln ('Введите один из знаков: +,-,*,/');
readln(c);
case a of
0:n:='ноль';
1:n:='один';
2:n:='два';
3:n:='три';
4:n:='четыре';
5:n:='пять';
6:n:='шесть';
7:n:='семь';
8:n:='восемь';
9:n:='девять';
end;
case b of
0:m:='ноль';
1:m:='один';
2:m:='два';
3:m:='три';
4:m:='четыре';
5:m:='пять';
6:m:='шесть';
7:m:='семь';
8:m:='восемь';
9:m:='девять';
end;
case c of
'*': writeln (n,' умножить на ',m);
'/': writeln (n,' разделить на ',m);
'+': writeln (n,' плюс ',m);
'-': writeln (n,' минус ',m);
end;
end.
begin
read(n);
for i := 1 to n do
read(a[i]);
max := a[1];
min := a[1];
amount := 0;
for i := 1 to n do
begin
if a[i] > max
then
max := a[i];
if a[i] < min
then
min := a[i];
if (i mod 2 = 0) and (a[i] < 0)
then
amount := amount + 1;
end;
writeln('Sum of min and max equals ',max + min);
writeln('Amount of numbers below zero and on even places: ', amount);
for i := 1 to n do
if i mod 2 = 0
then
write(a[i], ' ');
end.