Выяснить, в каком из двух массивов больше положительных элементов

@Unrevl · Регистрация: 26.04.2017

Даны два массива.
Выяснить, в каком из них больше положительных элементов
Помогите, пожалуйста

@droider · 26.04.2017, 15:50

Сообщение от Unrevl

Помогите, пожалуйста

чем помочь? Написать за Вас?

@Unrevl · 26.04.2017, 16:44 **[ТС]**

ну а что я еще прошу? у меня ошибки выдает, писал через функцию

@droider · 26.04.2017, 16:51

Сообщение от Unrevl

писал через функцию

покажите, что писали и какие ошибки?

@Unrevl · 03.05.2017, 14:37 **[ТС]**

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const nmax = 100;
type mas = array [1..nmax] of integer;
var a, b:mas;
i,n,m:integer;
function  n_posit(const m:mas):integer;
var i, k:integer;
s:string;
begin
    s := Memo1.Text;
    s := Memo2.Text;
    k:=0;
    for i:=1 to nmax do if m[i]>0 then inc(k);
    n_posit:=k;
end;
begin
    n:=memo1.Lines.Count;
    m:=memo2.Lines.Count;
    if n_posit(a) > n_posit(b) then edit1.Text:='V pervob bolshe';
    if n_posit(a) < n_posit(b) then edit2.Text:='vo vtorom bolshe';
end;
 
end.

@D1973 · 04.05.2017, 08:46

Unrevl, а где массивы a и b заполняются? Вы их объявили, но они пусты: заполнения нигде нет...

@Matan! · 04.05.2017, 11:57

Сообщение от Unrevl

i,n,m:integer;
function n_posit(const m:mas):integer;

Так что же такое m - целое число или массив?

Добавлено через 2 минуты

Сообщение от Unrevl

s := Memo1.Text;
s := Memo2.Text;

лучше так:

Delphi

1 2	s1 := Memo1.Text; s2 := Memo2.Text;

Добавлено через 2 минуты
Эти s1 и s2 - это попытка получить массивы из memo?

@Unrevl · 10.05.2017, 12:02 **[ТС]**

Можете написать ошибку в виде кода, пожалуйста

Добавлено через 3 минуты
@Matan!
Массив

@Matan! · 10.05.2017, 12:29

Сообщение от Unrevl

написать ошибку в виде кода

Что?

Приложите архив с проектом, пожалуйста.

@Unrevl · 10.05.2017, 12:32 **[ТС]**

,"а где массивы a и b заполняются? Вы их объявили, но они пусты: заполнения нигде нет"

Я про эту ошибку, сверху писали.
Проект смогу только чепез час прислать

@Matan! · 10.05.2017, 12:54

Вот Вы объявили массивы:

Сообщение от Unrevl

var a, b:mas;

Где у Вас написано что-то вроде:

Delphi

for i := 1 to nmax do
if Memo1.Lines.Text <> '' then
   a[i] := StrToInt(Memo1.Lines.GetText);
else
   a[i] := 0;

Добавлено через 4 минуты
?
Вместо этого, Вы сразу пытаетесь их сравнить:

Сообщение от Unrevl

if n_posit(a) > n_posit(b) then edit1.Text:='V pervob bolshe';
* * if n_posit(a) < n_posit(b) then edit2.Text:='vo vtorom bolshe';

Что получится, если обратиться к элементу массива, который не создан? Правильно Вы думаете - ошибка будет. А ведь Ваша функция n_posit именно это и делает, обращается к элементу массива:

Сообщение от Unrevl

for i:=1 to nmax do if m[i]>0 then inc(k);

@Unrevl · 10.05.2017, 13:02 **[ТС]**

Я чуть чуть позже пришлю архив

@Unrevl 0 / 0 / 1 Регистрация: 26.04.2017 Сообщений: 63
		1
	Выяснить, в каком из двух массивов больше положительных элементов 26.04.2017, 14:16. Показов 832. Ответов 11 Метки нет (Все метки) Даны два массива. Выяснить, в каком из них больше положительных элементов Помогите, пожалуйста __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@droider 4880 / 2753 / 848 Регистрация: 04.10.2012 Сообщений: 10,037
	26.04.2017, 15:50	2
	Сообщение от Unrevl Помогите, пожалуйста чем помочь? Написать за Вас? 0

@Unrevl 0 / 0 / 1 Регистрация: 26.04.2017 Сообщений: 63
	26.04.2017, 16:44 [ТС]	3
	ну а что я еще прошу? у меня ошибки выдает, писал через функцию 0

@droider 4880 / 2753 / 848 Регистрация: 04.10.2012 Сообщений: 10,037
	26.04.2017, 16:51	4
	Сообщение от Unrevl писал через функцию покажите, что писали и какие ошибки? 0

@D1973 Модератор 8220 / 5458 / 2244 Регистрация: 21.01.2014 Сообщений: 23,484 Записей в блоге: 3
	04.05.2017, 08:46	6
	Unrevl, а где массивы a и b заполняются? Вы их объявили, но они пусты: заполнения нигде нет... 0

@Unrevl 0 / 0 / 1 Регистрация: 26.04.2017 Сообщений: 63
	10.05.2017, 12:02 [ТС]	8
	Можете написать ошибку в виде кода, пожалуйста Добавлено через 3 минуты @Matan! Массив 0

@Matan! Модератор 1436 / 1011 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	10.05.2017, 12:29	9
	Сообщение от Unrevl написать ошибку в виде кода Что? Приложите архив с проектом, пожалуйста. 0

@Unrevl 0 / 0 / 1 Регистрация: 26.04.2017 Сообщений: 63
	10.05.2017, 12:32 [ТС]	10
	,"а где массивы a и b заполняются? Вы их объявили, но они пусты: заполнения нигде нет" Я про эту ошибку, сверху писали. Проект смогу только чепез час прислать 0

@Unrevl 0 / 0 / 1 Регистрация: 26.04.2017 Сообщений: 63
	10.05.2017, 13:02 [ТС]	12
	Я чуть чуть позже пришлю архив 0

Опции темы