В электронную таблицу занесли данные о тестировании учеников по выбранным ими предметам. A B C D 1 округ фамилия предмет 2 C Ученик 1 Физика 240 3 В Ученик 2 Физкультура 782 4 Ю Ученик 3 Биология 361 5 СВ Ученик 4 Обществознание 377 В столбце A записан код округа, в котором учится ученик; в столбце B — фамилия, в столбце C — выбранный учеником предмет; в столбце D — тестовый . Всего в электронную таблицу были занесены данные по 1000 учеников. Выполните задание. Откройте файл с данной электронной таблицей. На основании данных, содержащихся в этой таблице, ответьте на два во Определите, сколько учеников, которые проходили тестирование по информатике, набрали более ответ запишите в ячейку H2 таблицы. 2. Найдите средний тестовый учеников, которые проходили тестирование по информатике. ответ запишите в ячейку H3 таблицы с точностью не менее двух знаков после запятой. 3. Постройте круговую диаграмму, отображающую соотношение числа участников из округов с кодами «В», «Зел» и «З». Левый верхний угол диаграммы разместите вблизи ячейки G6. ответ файлом
Ответы
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var m,n:integer;
Write('Количество строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,10,99);
for var i:=0 to n-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var p:=ReadInteger('Введите число Р:');
var b:array of integer;
SetLength(b,4*m);
var k:=0;
for var i:=n-p to n-1 do
for var j:=0 to m-1 do
if a[i,j] mod 4=0 then begin
b[k]:=a[i,j]; Inc(k)
end;
SetLength(b,k);
b.Print
end.
Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20
begin
var m,n:integer;
Write('Количество строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,10,99);
for var i:=0 to n-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var p:=ReadInteger('Введите число Р:');
var b:array of integer;
SetLength(b,4*m);
var k:=0;
for var i:=n-p to n-1 do
for var j:=0 to m-1 do
if a[i,j] mod 4=0 then begin
b[k]:=a[i,j]; Inc(k)
end;
SetLength(b,k);
b.Print
end.
Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Как решить задание и какой будет ответ?
Автор: Getmantsev417
Какой разряд в ячейке памяти компьютера хранит знак числа?
Автор: tboychenko
Охарактеризовать понятие информация изходя из филосовской концепции атрибутивной
Автор: Golovinskii_Sirotkina1944
1. Берілген нүктелер арқылы өтетін түзудің теңдеуін жазыңыз: А(2;1) В(-1;2). [2 ұпай]
2. Шеңбердің берілген теңдеуі бойынша оның центрінің координаталары мен радиусын табыңыз: (х-4)2 +(у+8)2 =36 [1 ұпай]
3. нүктелері берілген.
a) төбелерінің координаталары бойынша салыңыз; [1 ұпай]
b) қабырғаларының ұзындықтарын табыңыз; [3 ұпай]
c) түрін анықтаңыз (теңқабырғалы, теңбүйірлі, тікбұрышты); [2 ұпай]
d) берілген үшбұрыштың ауданын есептеңіз. [2 ұпай]
4. Төбелері А (1;-1) В (0;1) С (4;3) және Д (5;1) нүктелері болатын төртбұрыштың тіктөртбұрыш болатынын дәлелдеп, оның ауданын табыңыз. Ол үшін:
a) төбелерінің координаталары бойынша сызбасын салыңыз; [1 ұпай]
b) қабырғаларының ұзындықтарын табыңыз; [4 ұпай]
c) диагональдарын анықтап, дәлелдеңіз; [2 ұпай]
d) тіктөртбұрыштың ауданын есептеңіз. [2 ұпай]
Объяснение