ОТ ПРАКТИЧЕСКАЯ РАБОТА
«Построение графиков и диаграмм в электронных таблицах»
Задание 1 Постройте график функции
1) на интервале с шагом 0,5
2) на интервале с шагом 0,2
3) на интервале с шагом 0,1
4) * для в диапазоне от -1 до +1 с шагом 0,05, где - произвольные постоянные.
Задание 2 Рассчитайте еженедельную выручку цирка, если известно:
1) количество проданных билетов каждый день
2) цена взрослого билета - 15 руб.
3) цена детского на 30% дешевле чем взрослого.
Постройте диаграмму (график) ежедневной выручки цирка.
Задание 3 Постройте диаграммы
В пещере у реки поселился огнедышащий дракон по имени Сергей Михайлович. Всех,
кто пытался его прогнать, он прогонял сам, полыхая на них огнем. За первые 100 лет
дракона пытались прогнать 2 царевича, 3 королевича и 5 простых рыцарей. За 2 -ое
столетие на него покушались 3 царевича, 2 королевича и 7 простых рыцарей. За
третий век дракона беспокоили 7 царевичей, 5 королевичей и 6 простых рыцарей. За
следующее столетие Сергею Михайловичу пришлось иметь дело с 3 царевичами, 6
королевичами и 10 простыми рыцарями. После этого дракона в конце концов
оставили в покое и объявили гору, на которой он жил, заповедником.
Требуется:
1) Построить 4 круговых диаграммы, показывающие, сколько королевичей и
сколько простых рыцарей пытались в течение каждого века выгнать из дому ни в
чем не повинного дракона.
2) Постройте 2 столбиковые диаграммы, показывающие, сколько царевичей,
королевичей и простых рыцарей пытались в течение каждого века выгнать из
дому ни в чем не повинного дракона. На одной из них в качестве опорных точек
возьмите столетия, на другой - титулы (царевич, королевич, простой рыцарь).
3) Постройте линейную диаграмму, показывающую, как изменялось от века к веку
количество царевичей, королевичей и простых рыцарей, пытавшихся выгнать из
дому ни в чем не повинного дракона.
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: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?