Створіть програмний код в середовищі lazarus завдання 1. розрахунок оплати за електроенергію (ів) в україні з 0.1.0.3.2016 по 31.08.2016 за споживання електроенергії визначено такий порядок оплати залежно від спожитого обсягу: вартість 1 квт при споживанні електроенергії до 100 квт за місяць – 57
грн, від 100 квт до 600 квт – 90 грн, понад 600 квт – 156 грн. деяким споживачам надається пільговий обсяг безоплатного користування електроенергією, наприклад, 30 квт. якщо така пільга є, то її віднімають від спожитого обсягу, а далі розрахунок здійснюється за прийнятими тарифами. розробіть у
вибраному середовищі програмування проект оплата за електроенергію, у якому користувач вносить у текстове поле обсяг спожитої електроенергії, та позначає за елементів іння (визначте самостійно) наявність пільги. після натиснення кнопки розрахувати отримує у вікні повідомлення розмір суми для оплати
за електроенергію.
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив A[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
for var i:=0 to m-1 do a[i,2]:=-7;
Writeln(4*a.ColCount*'-');
a.Println(4)
end.
Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив A[6,9] ***
-14 34 -25 27 -48 -15 50 26 -16
8 -15 -49 -50 -44 -44 47 32 35
-32 13 19 -16 -25 41 10 39 49
-11 -35 -39 -16 26 -19 47 -11 14
-22 42 -5 -39 28 -42 9 -41 18
0 -22 -25 -15 -11 7 31 38 33
-14 34 -7 27 -48 -15 50 26 -16
8 -15 -7 -50 -44 -44 47 32 35
-32 13 -7 -16 -25 41 10 39 49
-11 -35 -7 -16 26 -19 47 -11 14
-22 42 -7 -39 28 -42 9 -41 18
0 -22 -7 -15 -11 7 31 38 33
б) Еще проще, тут уже цикл задан от 1 до 20, то бишь 20 значений для массива(20 цифр), а a[i] := i это значит, то что, массиву будут присвоены числа по порядку от 1 до 20, потому что массив = i
в) Тут цикл задан от 1 до 5, и массив каждый раз будет выполнять действие, заданное по условию, то бишь умножить и вычесть, i - каждый раз будет увеличиваться на 1, и получиться, что (2*1-1) (2*2-1), и так число будет увеличиваться до 5.