0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 163
1

Найти количество чётных элементов и сумму элементов, меньших 20 для каждого столбца матрицы (StringGrid)

01.06.2017, 13:39. Показов 1152. Ответов 13
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста сделать эту задачу с помощью StringGrid.
И проверьте пожалуйста её правильность.

Условие : Дан двумерный массив целых чисел, размеры которого задаёт пользователь. Найти количество чётных чисел и сумму элементов, меньших 20 для каждого столбца.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var
A:array of integer;
i,m,d,s:integer;
Begin
Memo1.clear;
d:=1;
s:=0;
m:=strtoint(inputbox('','',''));
Memo1.lines.add(inttostr(a[i]));
if i mod 2=0 then begin 
d:=d*A[i]; s:=s+A[i]; end; end;
Edit2.text:=inttostr(s);
Edit1.text:=inttostr(d);
setlength(A,0);
End; end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2017, 13:39
Ответы с готовыми решениями:

Найти количество чётных чисел и сумму элементов, меньших 20 для каждого столбца
Помогите пожалуйста, не разбираюсь вообще в динамических массивах, а задачи все на динамические......

Найти сумму и количество четных элементов матрицы, меньших 10
Помогите решить задачу на Turbo С++ (где используются printf scanf) 1) Найти сумму и количество...

Найти количество четных элементов каждого столбца матрицы
дан массив 4 на 3, заполнен случайными числами интервал. Найти кол-во четных элементов каждого...

Найти количество чётных чисел и сумму элементов каждого столбца
Спасите! СРОЧНО нужно. Не знаю даже с чего начать... Дан двумерный массив целых чисел, размеры...

13
5481 / 4396 / 1076
Регистрация: 29.08.2013
Сообщений: 27,549
Записей в блоге: 3
01.06.2017, 13:47 2
Цитата Сообщение от GeorgeLight Посмотреть сообщение
Немного подправить код
допиши комментарии к каждой строке
0
1437 / 1014 / 228
Регистрация: 31.05.2013
Сообщений: 6,645
Записей в блоге: 6
01.06.2017, 14:21 3
По-хорошему, тут почти всё переделывать...Например, чему у тебя равно i? Правильно ты подумал - какой-то фигне.
И вот элемент массива а по адресу "фигня" ты помещаешь в Memo:
Цитата Сообщение от GeorgeLight Посмотреть сообщение
Memo1.lines.add(inttostr(a[i]));
Добавлено через 30 секунд
Что такое m?

Добавлено через 2 минуты
Очень интересный способ ввода:
Цитата Сообщение от GeorgeLight Посмотреть сообщение
m:=strtoint(inputbox('','',''));
Я бы вводил через Edit...
Delphi
1
m := StrToInt(Edit3.Text);
Чем не красота?

Добавлено через 1 минуту
Ну, не в этом песня. Вот ты ввёл m. Я так понял, что это должен быть размер массива. Где у тебя намёк на это?

Добавлено через 5 минут
Я уже молчу за то, что массив по заданию должен быть двумерный, а не одномерный, как у тебя..
0
0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 163
01.06.2017, 14:28  [ТС] 4
Matan!, какой вы критичный.
0
1437 / 1014 / 228
Регистрация: 31.05.2013
Сообщений: 6,645
Записей в блоге: 6
01.06.2017, 14:30 5
Ну, сами же просили..
Цитата Сообщение от GeorgeLight Посмотреть сообщение
И проверьте пожалуйста её правильность.
0
5481 / 4396 / 1076
Регистрация: 29.08.2013
Сообщений: 27,549
Записей в блоге: 3
01.06.2017, 14:35 6
Цитата Сообщение от GeorgeLight Посмотреть сообщение
какой вы критичный.
переписывай свой "овнокод", видно что ты вообще не понимаешь что делаешь

Цитата Сообщение от GeorgeLight Посмотреть сообщение
setlength(A,0);
особенно доставляет вот эта строка в конце, хотя она должны быть в начале

ЗЫ напиши комментарии к каждой строке, может быть поможет понять
0
1437 / 1014 / 228
Регистрация: 31.05.2013
Сообщений: 6,645
Записей в блоге: 6
01.06.2017, 14:37 7
Цитата Сообщение от qwertehok Посмотреть сообщение
хотя она должны быть в начале
..под видом:
Delphi
1
SetLength(A, m, m);
Добавлено через 33 секунды
Это так, для ТС-а
0
0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 163
01.06.2017, 21:43  [ТС] 8
Matan!, какой вы критичный.

Добавлено через 6 часов 17 минут
Matan!, я не про это. Просто вы постоянно пишете что я неправильно пишу, а ваши объяснения мне не понятны. Поэтому я и постоянно переспрашиваю всё. Не нужно так делать
0
D1973
03.06.2017, 19:09
  #9

Не по теме:

Цитата Сообщение от GeorgeLight Посмотреть сообщение
Не нужно так делать
Правильно! Matan!, что Вы умничаете, на самом-то деле!!! Дайте готовый полностью рабочий код и считайте, что Вы выполнили свою миссию!!! :sarcasm:

0
0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 163
03.06.2017, 23:01  [ТС] 10
D1973, =\ совсем не смешно
0
D1973
04.06.2017, 04:58
  #11

Не по теме:

Цитата Сообщение от GeorgeLight Посмотреть сообщение
совсем не смешно
В правы, это совсем не смешно... Это очень грустно, что Вы совсем не желаете самостоятельно что-то думать, делать, изучать... Вы завалили форум однотипными задачами но ни разу не удосужились проанализировать код хотя бы одной из них для того, чтобы разобраться с вопросом раз и навсегда и делать остальные задачи по образцу с минимальными изменениями. Грустно это, очень грустно.

0
0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 163
04.06.2017, 08:18  [ТС] 12
D1973, займитесь своим делом. Я уже написал что не понимаю это, если бы разбирался, решил сам. В дальнейшем, просто проходите мимо... Не для осуждения создали форум, а для ОБСУЖДЕНИЯ. Успехов. Лучше бы больше помогали, меньше говорили.
0
qwertehok
04.06.2017, 16:23
  #13

Не по теме:

а ты не хочешь обсуждать - ты хочешь готовый код
можно за тебя код написать, но что будет дальше? ты через неделю еще напишешь 100500 заданий и опять тебе код писать?
другое дело когда человек хоть чем-то сам думает, ему можно подсказать и помочь
причем помочь это совсем не значит за него все писать

0
D1973
04.06.2017, 17:56     Найти количество чётных элементов и сумму элементов, меньших 20 для каждого столбца матрицы (StringGrid)
  #14

Не по теме:

Цитата Сообщение от GeorgeLight Посмотреть сообщение
займитесь своим делом
именно этим я и занимаюсь
Цитата Сообщение от GeorgeLight Посмотреть сообщение
если бы разбирался, решил сам
Учитесь именно Вы, поэтому разбираться надо, соответственно, именно Вам, а не пользователям форума... Ведь Ваша учеба скоро закончится, и кому нужен будет такой "специалист", который без чужой подсказки ничего сделать не может?

0
04.06.2017, 17:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2017, 17:56
Помогаю со студенческими работами здесь

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

Для каждого столбца матрицы подсчитать сумму четных положительных элементов
2. Для каждого столбца подсчитать сумму четных положительных элементов и записать данные в новый...

Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля, но меньших единицы
Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля,но меньше единицы

Для каждого столбца матрицы посчитать сумму четных элементов. Результат сохранить в одномерном массиве.
Для каждого столбца матрицы посчитать сумму четных элементов. Результат сохранить в одномерном...

Для каждого столбца матрицы найти произведение четных его элементов.
Дана матрица размера MxN. Для каждого столбца матрицы найти произведение четных его элементов. p.s...

Найти сумму и количество элементов каждого столбца матрицы с заданным условием
1. Найти сумму и количество элементов с заданным условием (хранить эти значения в массивах):...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru