Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Cedrick
1 / 1 / 2
Регистрация: 20.05.2014
Сообщений: 10
#1

Произведения отрицательных элементов массива

27.05.2014, 20:29. Просмотров 808. Ответов 4
Метки нет (Все метки)

разработать Delphi-программу вычисления в одномерном массиве произведения отрицательных элементов.
знаю как сделать в паскале, но с delphi возникают вопросы...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2014, 20:29
Ответы с готовыми решениями:

Найти произведения четных и нечетных элементов массива
Дан двумерный массив X(n,m). Найти произведения четных и нечетных элементов массива.

Определите знак произведения элементов массива, не перемножая их
Задан массив a размером n из неравных нулю чисел. Определите знак произведения элементов массива не...

Подсчитать количество отрицательных элементов одномерного массива, и вывести номера этих элементов
помогите пожалуйста!!!!!!! Подсчитать количество отрицательных элементов одномерного массива и...

Составьте программу вычисления суммы, произведения и среднего арифметического элементов массива
Задан массив из N целых чисел. Составьте программу вычисления суммы, произведения и среднего...

Количество отрицательных элементов массива
Есть такое задание: В одномерном массиве, состоящем из n вещественных элементов, вычислить:...

4
Grrey
0 / 0 / 6
Регистрация: 27.05.2014
Сообщений: 11
27.05.2014, 20:40 #2
А в чём собственно проблема? Код для вычисления от паскаля отличаться на будет. Может у вас с заданием массива, или с выводом результата проблемы?
0
Cedrick
1 / 1 / 2
Регистрация: 20.05.2014
Сообщений: 10
27.05.2014, 20:52  [ТС] #3
Добавлено через 1 минуту
Grrey, например, что бы мы вводили элементы в матрице 3х3...
и нажимая на кнопку, в лабле или мемо... получали ответ(произведение отриц элементов).
вообще хочу освоить делфи... решил начать, до массивов дошел...
0
Grrey
0 / 0 / 6
Регистрация: 27.05.2014
Сообщений: 11
27.05.2014, 21:54 #4
Лучший ответ Сообщение было отмечено Cedrick как решение

Решение

Ну ввод матрицы через Memo можно огранизовать так, например

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses strutils, types;
 
var
s: string;
A: array [1..3,1..3] of integer;
Massive: TStringDynArray;
i,j: integer;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 for j := 1 to 3 do begin
 
  s:= Memo1.Lines[j-1];
  Massive:=SplitString(S, ' ');
  for i := 1 to 3 do A[i,j]:=strtoint(Massive[i-1]);
 
 end;
 
end;
Добавлено через 56 секунд
матрица вводится построчно, цифры в строке через пробел.

Добавлено через 2 минуты
Вывод в то-же Memo: Memo1.Lines.Add(inttostr(n));
n- переменная, куда сохраняется произведение.

Добавлено через 2 минуты
если хочешь, чтобы элементы были не целочисленные, используй strtofloat и floattostr.

Добавлено через 9 минут
Собственно произведение:

Delphi
1
2
3
4
n:=1
for i:=1 to 3
 for j:= 1 to 3
  do if A[i,j]<0 then n:=n*A[i,j];
0
long399
152 / 152 / 93
Регистрация: 16.10.2013
Сообщений: 736
Записей в блоге: 3
27.05.2014, 22:02 #5
Проще вводить элементы в stringgrid
И уже из него заносить элементы в массив в двойном цикле
0
27.05.2014, 22:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2014, 22:02

Вычислить сумму отрицательных элементов массива
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) сумму отрицательных...

Подсчитать произведение отрицательных элементов массива
Подсчитать произведение отрицательных элементов массива

Найти сумму отрицательных элементов массива
Дан массив целых чисел, состоящий из 20 элементов. Заполните его с клавиатуры. Найти: 1) сумму ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru