|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите с массивом
помогите додумать задачу, мне надо сделать такую же таблицу, но вместо суммы элементов, нужно умножить их, например я ввел 5 раз 2 и должен получить ответ: 32
Код:
var a : array[1..5] of real; // массив summ: real; // сумма элементов sr: real; // среднее арифметическое i: integer; // индекс begin // ввод массива // считаем, что если ячейка пустая, то соответствующий // ей элемент массива равен нулю for i:= 1 to 5 do if Length(StringGrid1.Cells[i-1,0]) <> 0 then a[i] := StrToFloat(StringGrid1.Cells[i-1,0]) else a[i] := 0; // обработка массива summ := 0; for i :=1 to 5 do summ := summ + a[i]; sr := summ / 5; // вывод результата Label2.Caption := 'Сумма элементов: ' + FloatToStr(summ) + #13+ 'Среднее арифметическое: ' + FloatToStr(sr); end; Последний раз редактировалось Admin, 29.03.2010 в 11:05. |
#2
|
||||
|
||||
Ну и ну совсем думать не хотят...
Было Цитата:
Цитата:
В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
|||
|
|||
я вместо + вставил * но вроде тип переменных должен быть разный вот сейчас ввожу 5 раз цифру 2 и получаю 1.011808010160202E300
|
#4
|
||||
|
||||
Если не сложно кинь исходники (лень самому набирать), исправлю в соответствии с заданием...
В начале был Бит, потом Байт и только потом появилось Слово... |
#5
|
|||
|
|||
получилось!!!!!
|
#6
|
||||
|
||||
Как поправил???
В начале был Бит, потом Байт и только потом появилось Слово... |
#7
|
|||
|
|||
СПАСИБО ТЕБЕ Nich!
|
#8
|
|||
|
|||
я поставил summ:=1 и получилось 32
|
#9
|
||||
|
||||
Да все верно, начальное произвдение должно отличатся от 0...т.к. любое число х 0 будет 0...
В начале был Бит, потом Байт и только потом появилось Слово... |