Посчитайте средний расход бензина за 5-ое октября. В электронную таблицу занесли информацию о грузоперевозках,
совершённых некоторым автопредприятием с 1 по 9 октября.
Каждая строка таблицы содержит запись об одной перевозке. В столбце A
записана дата перевозки (от «1 октября» до «9 октября»); в столбце B —
название населённого пункта отправления перевозки; в столбце C —
название населённого пункта назначения перевозки; в столбце D —
расстояние, на которое была осуществлена перевозка (в километрах); в
столбце E — расход бензина на всю перевозку (в литрах); в столбце F —
масса перевезённого груза (в килограммах).
1)Всего в электронную таблицу были занесены данные по 370
перевозкам в хронологическом порядке.
2)Выполните задание:
Откройте файл с данной электронной таблицей. На основании данных,
содержащихся в этой таблице, ответьте на вопрос в соответствующей ячейке
таблицы:
gl = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
var
w1, w2: string;
m: set of char;
c: char;
i: integer;
begin
Writeln('Введите первое "слово"');
Readln(w1);
Writeln('Введите второе "слово"');
Readln(w2);
m := [];
w1 := LowerCase(w1);w2 := LowerCase(w2);
for i := 1 to length(w1) do
if w1[i] in gl then Include(m, w1[i]);
for i := 1 to length(w2) do
if w2[i] in m then Exclude(m, w2[i]);
Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:');
foreach c in m do Write(c, ' ');
Writeln
end.
Тестовое решение:
Введите первое "слово"
Дай, Джим, на счастье лапу мне!
Введите второе "слово"
Сергей Есенин
Гласные, присутствующие в первом слове и отсутствующие во втором:
а у
m, n, k, i, j: integer;
begin
randomize;
repeat
write('Введите число столбцов и строк через пробел: ');
readln(n, m);
until (n in [1..20]) and (m in [1..20]);
for i := 1 to m do begin
for j := 1 to n do begin
A[ i, j ] := random(19) - 9;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
writeln;
writeln('Заменяем отрицательные числа на нули, положительные - на единицы:');
writeln;
for i := 1 to m do begin
for j := 1 to n do begin
if A[ i, j ] <= 0 then A[ i, j ] := 0
else A[ i, j ] := 1;
write(A[i, j]:5);
end;
if odd(i) then writeln(' ') else writeln;
end;
end.
p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?