Цитата:
|
Сообщение от H3@DHuNT3R
Вот интересует такой вопрос: пишу калькулятор
|
Если заранее неизвестно количество переменных, я бы использовал динамический массив. Сколько раз будем брать значения из Едита, столько раз будем на единицу увеличивать размер массива, в результате будем иметь массив со значениями. Устанавливается размер массива так SetLength("Имя массива","числовое значение - размер массива")
Например имеем массив A: array of integer;
Имеем 5 переменных, значит делаем так SetLength(A,5);
Код:
//Присвоим массиву значения так
A[0]:=5;
A[1]:=10;
A[2]:=20;
A[3]:=50;
A[3]:=100;
//Суммировать можно к примеру так
Var
R:integer; { здесь будем хранить результат, если будем использовать деление то лучше переменную делать типа Real, затем функцией Format форматировать так как нам надо результат}
// high(A); получаем размер массива
for i:=0 to high(A)-1 do
inc(R, A(i));
ShowMessage('Результат = '+IntToStr(R));