Контрольная работа «Создание электронной таблицы. Использование простейших функций» Задание 1 Подготовьте таблицу для анализа пассажирооборота и денежной выручки рейсов по автобусному маршруту №100. Исходными данными для анализа являются: время рейса, направление, количество пассажиров всего и льготной категории с проездом в пределах города (колонки «Город»), количество пассажиров всего и льготной категории с проездом из города в пригородную зону или из пригородной зоны в город (колонки «Пригород»), стоимости обычного и льготного проезда в городе и в пригородную зону (или из пригородной зоны Добавьте в таблицу информацию о не менее 5 рейсах и выполните для них расчет выручки от перевозки пассажиров. На отдельном листе (дайте листу название, АНАЛИЗ) введите формулы для определения следующих величин: 1) Максимальная и минимальная выручка за рейс. 2) Количество пассажиров льготной категории, перевезенных в заданном направлении. 3) В скольких рейсах количество льготных пассажиров, перевозимых по городу, больше количества обычных? 4) В скольких рейсах количество льготных пассажиров, перевозимых по городу, больше количества льготных пассажиров, перевозимых в пригородную зону или из пригородной зоны в город? 5) Какая сумма была выручена за счет проезда льготных пассажиров? 6) Проведите условное форматирование значений общего количества пассажиров при условии: а) ячейки, содержащие значения меньше 30 окрашиваются в зеленый цвет. б) значения в ячейках, содержащие значения больше или равных 30 и меньше 40 окрашиваются в желтый цвет. в) значения в ячейках, содержащие значения больше или равных 40, но меньше 50 окрашиваются в синий цвет 7) Проведите условное форматирование значений количества льготных пассажиров при условии: а) ячейки, содержащие значения меньше 10 окрашиваются в зеленый цвет. б) значения в ячейках, содержащие значения больше или равных 10 и меньше 15 окрашиваются в желтый цвет. в) значения в ячейках, содержащие значения больше или равных 15, но меньше 20 окрашиваются в синий цвет? Задание 2 С электронной таблицы ведется список абитуриентов, при приеме которых в учебное заведение учитываются результаты ЕГЭ. По конкурсу проходят те из абитуриентов, у кого суммарный не ниже проходного, а также медалисты и получившие «5» по математике. Добавьте в таблицу информацию для еще не менее 5 абитуриентов и определите для них конкурсный результат. На отдельном листе (дайте листу название АНАЛИЗ) введите формулы для определения следующих величин: 1) Максимальный и минимальный по математике, физике и русскому языку 2) Количество абитуриентов, имеющих медаль. 3) Количество поступивших в учебное заведение и количество не по конкурсу. 4) Количество абитуриентов, имеющих максимальный по всем предметам. 5) Минимальный по физике среди по конкурсу. 6) Проведите условное форматирование значений общего количества пассажиров при условии: а) ячейки, содержащие значения меньше 60 окрашиваются в зеленый цвет. б) значения в ячейках, содержащие значения больше или равных 60 и меньше 80 окрашиваются в желтый цвет. в) значения в ячейках, содержащие значения больше 90. 7) Максимальный суммарный результатов ЕГЭ.
Ответы
1. Создаем файл MatInt.pas следующего содержания:
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;
interface
type
Matrix=array[,] of integer;
function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);
implementation
function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
SetLength(Result,m,n);
end;
procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to n do Write(a[i,j]:w);
Writeln
end
end;
procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
imax:=0; jmax:=0;
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do
for var j:=0 to n do
if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;
end.
2. Компилируем файл, получая библиотеку MatInt.pcu
3. Пишем основную программу:
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
MatInt;
begin
var a:=MatCreate(5,8);
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do
for var j:=0 to n do a[i,j]:=Random(-50,50);
MatPrint(a,4);
var irow,jcol,max:integer;
MatMax(a,max,irow,jcol);
Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.
Тестовое решение
11 -16 11 16 23 -4 -17 -34
-12 -5 20 9 16 47 43 17
-46 -26 47 -40 12 -31 -25 13
-7 39 -20 26 11 -19 32 -15
45 -10 -28 31 -46 -29 -29 -22
Максимальный А[2,6]=47
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;
interface
type
Matrix=array[,] of integer;
function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);
implementation
function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
SetLength(Result,m,n);
end;
procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to n do Write(a[i,j]:w);
Writeln
end
end;
procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
imax:=0; jmax:=0;
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do
for var j:=0 to n do
if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;
end.
2. Компилируем файл, получая библиотеку MatInt.pcu
3. Пишем основную программу:
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
MatInt;
begin
var a:=MatCreate(5,8);
var n:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do
for var j:=0 to n do a[i,j]:=Random(-50,50);
MatPrint(a,4);
var irow,jcol,max:integer;
MatMax(a,max,irow,jcol);
Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.
Тестовое решение
11 -16 11 16 23 -4 -17 -34
-12 -5 20 9 16 47 43 17
-46 -26 47 -40 12 -31 -25 13
-7 39 -20 26 11 -19 32 -15
45 -10 -28 31 -46 -29 -29 -22
Максимальный А[2,6]=47
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Определи размеры данной таблицы.
Автор: shtankosoyuz1629
Как перед каждым словом вставить знак "?". язык программирования: с++ visual studio 2019
Автор: zoomagazinkotmatroskin
записать функцию которая проверяет является ли число квадратом чётного паскаль
Автор: Naumenkova-Ivanov
На Питоне:
path = 'F:/file.txt'
with open(path, 'r', encoding='utf-8') as f:
data = f.read()
f.close
a = [0 for i in range(10)]
for char in data:
if char == '0': a[0]+=1
elif char == '1': a[1]+=1
elif char == '2': a[2]+=1
elif char == '3': a[3]+=1
elif char == '4': a[4]+=1
elif char == '5': a[5]+=1
elif char == '6': a[6]+=1
elif char == '7': a[7]+=1
elif char == '8': a[8]+=1
elif char == '9': a[9]+=1
print(a)
digit = max(a)
if digit > 0:
print(f'Самая часто встречающаяся цифра в файле {a.index(digit)}. Она встречается {digit} раз.')
else:
print('В файле нет цифр.')