Смастера диаграмм постройте столбчатую и круговую диаграммы своих расходов за неделю. столбчатая диаграмма «расходы по статьям» строится по данным несмежных диапазонов ячеек аз: а6, i3: i6. круговая диаграмма «расходы по дням недели» строится по данным несмежных диапазонов ячеек в2: н2, в7: н7. внимание! для выделения несмежных диапазонов ячеек выделите первый диапазон ячеек и, удерживая нажатой клавишу ctrl, выделите второй диапазон ячеек.
uses crt;
var a,b,c,max:integer; r:real;
begin
Write('Введите число A: ');
Readln(a);
Write('Введите число B: ');
Readln(b);
Write('Введите число C: ');
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln('A= ',a,' B= ',b,' C= ',c);
end
else
Writeln('Symma: ',r);
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив [',8,',',7,'] ***');
var a:=MatrRandom(8,7,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
a.SetRow(i,a.Row(i).Sorted.ToArray)
end;
Writeln('*** Результирующий массив ***');
a.Println(4)
end.
Пример
*** Исходный массив [8,7] ***
-45 -24 26 38 -83 -97 77
15 -68 80 -47 3 -61 -52
-71 70 -52 46 70 59 -15
-66 -20 -32 82 63 1 76
93 -99 -38 22 83 -36 -42
53 17 -19 -7 47 12 -58
53 21 40 -88 -89 65 80
-73 -16 -78 -62 3 18 -79
*** Результирующий массив ***
-97 -83 -45 -24 26 38 77
-68 -61 -52 -47 3 15 80
-71 -52 -15 46 59 70 70
-66 -32 -20 1 63 76 82
-99 -42 -38 -36 22 83 93
-58 -19 -7 12 17 47 53
-89 -88 21 40 53 65 80
-79 -78 -73 -62 -16 3 18