Rozaroza1234
02.12.2021 23:16

Задания по теме:
№ 1
1.Подготовить таблицу. В столбце «Цена в р.» поместите формулу (эквивалент $ US*курс доллара). Отсортировать данные по наименованию товаров. Построить круговую диаграмму по цене в руб. Добавить подписи данных. Вывести наименования товара по цене больше 50$.
2. скопировать таблицу на второй лист, изменить курс доллара. На третьем листе консолидировать данные, определив среднюю цену в рублях. Листы 1 и 2 переименовать – март, апрель
Курс доллара 71,1 руб.
Наименование товара Эквивалент $ US Цена в руб.
Кресло рабочее 39 ?
Стеллаж 35 ?
Стойка компьютерная 60 ?
Стол приставной 42 ?
Стол рабочий 65 ?
Стул для посетителей 20 ?
Тумба выкатная 65 ?
Шкаф офисный 82 ?

№2
1. Подготовить таблицу. Рассчитать необходимые показатели. Построить круговую диаграмму по сумме к выплате. Отсортировать данные таблицы по фамилиям сотрудников. Вывести данные по сотрудникам, зарплата которых выше 17000 руб.
2. Скопировать таблицу на лист 2 и лист 3. Изменить процент премии. На листе 4 определить сумму к выплате за три месяца, консолидировав данные. Листы переименовать – январь, февраль, март, квартал
Фамилия Оклад НДФЛ (%) Премия (%) Сумма к выплате
Иванов И.И 18000 13 20 ?
Казаченко С.П 12000 13 25 ?
Зайцев А.В 25500 13 25 ?
Полянских П.Е 17800 13 30 ?
Сидоров А.С 19000 13 20 ?
Итого к выплате Х ?

№ 3
1.По данным, представленных в виде таблицы построить гистограмму и линейный график на отдельных листах. Сделать вывод. Рассчитайте средний арифметический показатель по всем параметрам сравнения машин. Вывести данные по лучшему автомобиля при фильтра.
2. скопировать таблицу на второй и третий листы, изменить оценки. На 4 листе определить средний по всем параметрам, консолидировав данные. Листы переименовать – 1 эксперт, 2 эксперт, 3 эксперт, средний
Автомобили. Комфорт при езде
Марка Амортизация ударов Шум в салоне
впереди/сзади Вентиляция Отопление
Ford Escort 1,4 i CLX 4 4 4 4
Opel Astra 1,6 i CD 5 5 4 4
Renault R 19 1,8 RT 4 4 4 5
VW Golf 1,8 GL 4 4 4 4
№4
1.Данные голосования представлены в виде таблицы. Внести расчеты. Построить круговую диаграмму, отражающую долю голосов в целом. Вывести данные при условии, что количество голосов больше 600.
2. скопировать таблицу на второй лист, изменив количество голосов. На третьем листе определить общее количество голосов, консолидировав данные. Листы переименовать – 1 группа, 2 группа, итог
Фамилия кандидата Количество голосов Доля %
Петров И.И 450 ?
Иванов В.И 570 ?
Сидоров С.П 890 ?
Гаврилов В.П. 650 ?
Думкин О.Л. 700 ?
Итого ? 100

№5
1. Создать таблицу. Внести расчеты. Отсортировать данные по убыванию номера отдела и в отделах по алфавиту сотрудников. Скопировать таблицу на лист 2. Вывести данные тех сотрудников, кто работает в первом отделе и имеет зарплату выше 19000 руб. Построить круговую диаграмму, отражающую уровень заработной платы сотрудников.
2. скопировать таблицу на 3 лист, изменив размер заработной платы. На 4 листе определить среднюю заработную плату за квартал, консолидировав данные. Листы переименовать –январь, февраль, март, квартал
Фамилия Отдел Заработная плата, руб
Кузнецов 1 15000
Петров 2 18000
Сидоров 1 19600
Иванов 2 16000
Шишкин 2 20000
Гасилова 1 12000
Жукова 2 16000
Фролов 1 20000
Карымова 2 17500
Травкин 1 18500
Итого ?

№ 6
1.Подготовить таблицу. Рассчитать необходимые показатели. Построить диаграмму, отражающую средний каждого учащегося. Отсортировать данные по среднему . Вывести данные учащихся, получивших по все предметам оценку выше 3.
2. скопировать таблицу на второй лист, изменив оценки по предметам. На третьем листе определить средний для каждого учащегося по каждому предмету, консолидировав данные. Листы переименовать – 1 семестр, 2 семестр, год.
ФИО Оценка по Средний
математике Русс.языку физике химии информатике
Иванов И.И 4 3 4 3 4
Сидоров П.П. 5 5 3 3 3
Галкин М.П. 4 3 4 3 5
Петров А.В 4 4 5 4 4
Дудкин Р.М. 3 4 5 4 5
Средний

Все 6 заданий выполнить в одной книге Excel, переименовывая листы в соответствии с заданиями. Книгу сохранить под именем «Ваша фамилия 6»
Все 6 файлов выслать на проверку.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
11lol22
02.05.2023 19:30

Первое поколение. Компьютеры на электронных лампах (194х-1955)

Быстродействие: несколько десятков тысяч операций в секунду.

Компьютер на электронных лампах

Особенности:

Поскольку лампы имеют существенные размеры и их тысячи, то машины имели огромные размеры.

Поскольку ламп много и они имеют свойство перегорать, то часто компьютер простаивал из-за поиска и замены вышедшей из строя лампы.

Лампы выделяют большое количество тепла, следовательно, вычислительные машины требуют специальные мощные охладительные системы.

Примеры компьютеров:

Колоссус – секретная разработка британского правительства (в разработке принимал участие Алан Тьюринг). Это первый в мире электронный компьютер, хотя и не оказавший влияние на развитие компьютерной техники (из-за своей секретности), но победить во Второй мировой войне.

0,0(0 оценок)
Ответ:
tenoruk77
07.10.2021 02:52
1. Программа, создающая файл

var
  f:file of integer;
  i,k:integer;
begin
  Randomize;
  Assign(f,'in.dat'); Rewrite(f);
  for i:=1 to 20 do begin
    k:=Random(99)+1;
    Write(f,k)
    end;
  Close(f)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13

2. Основная программа

uses Crt;
const
  nn=100;
var
  i,j,k,n:integer;
  fin,fout:file of integer;
  a:array[1..nn] of integer;
  dub:boolean;
begin
  ClrScr;
  Assign(fin,'in.dat'); Reset(fin);
  Read(fin,k);
  if not eof(fin) then begin
    n:=1; Write(k,' '); a[n]:=k
    end
  else n:=0;
  while (not eof(fin)) and (n<=nn) do begin
    Read(fin,k); Write(k,' ');
    j:=1; dub:=false;
    while (j<=n) and (not dub) do begin
      dub:=(a[j]=k); Inc(j);
      end;
    if not dub then begin Inc(n); a[n]:=k; Inc(j) end
    end;
  Writeln;
  Close(fin);
  for i:=1 to n do Write(a[i],' ');
  Writeln; Writeln('n=',n);
  Assign(fout,'out.dat'); Rewrite(fout);
  Write(fout,n); Close(fout);
  ReadKey
end.

Тестовое решение:
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var fin,fout:file of integer;
  Reset(fin,'in.dat');
  var k:integer;
  var a:=new integer[fin.FileSize];
  var n:=0;
  while not eof(fin) do begin
    Read(fin,k); a[n]:=k; Inc(n)
    end;
  Close(fin);
  a.Println;
  var b:=a.ToHashSet;
  b.Println; Writeln('n=',b.Count)
end.

Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18

И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота