В электронную таблицу занесли информацию о грузоперевозках, совершённых некоторым автопредприятием с 1 по 9 октября. Ниже приведены первые пять строк таблицы:
Каждая строка таблицы содержит запись об одной перевозке.
В столбце A записана дата перевозки (от «1 октября» до «9 октября»), в столбце B – название населённого пункта отправления перевозки,
в столбце C – название населённого пункта назначения перевозки, в столбце D – расстояние, на которое была осуществлена перевозка (в километрах),
в столбце E – расход бензина на всю перевозку (в литрах), в столбце F – масса перевезённого груза (в килограммах).
Всего в электронную таблицу были занесены данные по 370 перевозкам
в хронологическом порядке.
Выполните задание.
Откройте файл с данной электронной таблицей task19-5.xls. На основании данных, содержащихся в этой таблице, ответьте на два во На какое суммарное расстояние были произведены перевозки с 3 по 5 октября? ответ на этот во запишите в ячейку H2 таблицы.
2. Какова средняя масса груза при автоперевозках, осуществлённых из города Орехово? ответ на этот во запишите в ячейку H3 таблицы с точностью не менее одного знака после запятой.
Полученную таблицу необходимо сохранить и сдать на проверку.
var
d:integer;
a,b:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('Введите номер операции '); readln(d);
case d of
1: writeln(a, ' + ', b, ' = ', a + b);
2: writeln(a, ' - ', b, ' = ', a - b);
3: writeln(a, ' * ', b, ' = ', a * b);
4: begin
if b <> 0 then
writeln(a, ' / ', b, ' = ', a / b)
else
writeln('делить на 0 нельзя');
end;
else
writeln('Неизвестная операция');
end;
end.
//вторая программа
var
d:integer;
a:real;
begin
write('Длина отрезка = '); readln(a);
write('Введите код единицы измерения '); readln(d);
case d of
1: writeln('Длина отрезка ', a / 10, ' метр(а, ов)');
2: writeln('Длина отрезка ', a * 1000, ' метр(а, ов)');
3: writeln('Длина отрезка ', a, ' метр(а, ов)');
4: writeln('Длина отрезка ', a / 1000, ' метр(а, ов)');
5: writeln('Длина отрезка ', a / 100, ' метр(а, ов)');
else
writeln('Неизвестная единица длины');
end;
end.
#include <time.h>
#include <stdio.h>
#include <conio.h>
#define N 10
int main() {
int a[N], min, max;
size_t n, ix_min, ix_max, beg, end;
srand((unsigned)time(NULL));
for (n = 0; n < N; n++) a[n] = rand();
for (n = 0; n < N; n++) printf("%6i", a[n]);
printf("\n");
ix_max = ix_min = 0;
min = max = a[0];
for (n = 1; n < N; n++) {
if (a[n] < min) {
min = a[n];
ix_min = n;
}
if (a[n] > max) {
max = a[n];
ix_max = n;
}
}
beg = ix_min < ix_max ? ix_min : ix_max;
end = ix_min > ix_max ? ix_min : ix_max;
++beg;
if (beg - end > 0)
for (n = beg; n < end; n++)
printf(" %i ", n + 1);
else printf("Elements are absent\n");
_getch();
return 0;
}