Определить порядковый номер сопротивления, по которому проходит минимальный ток

@MaksimKotov25 · Регистрация: 03.06.2017

Author24 — интернет-сервис помощи студентам

Написать одну и ту же задачу , с помощью цикла while и repeat
В результате измерений получены напряжения (в вольтах) на зажимах каждого из n-ти различных электрических сопротивлений, не соединенных друг с другом. Характеристика (в омах) каждого сопротивления известна. Определить порядковый номер сопротивления, по которому проходит минимальный ток.
Это с циклом for

Delphi

procedure TForm1.Button8Click(Sender: TObject);
type
tarr = array [1..9999] of integer;
var
a:Tarr;
min,n,i,u,r: real;
x:integer;
begin
 r:=StrToInt(Edit13.Text);
 u:=StrToInt(Edit14.Text);
i:=u/r;
min:=a[1];
for x:=1 to N do
begin
if a[x]>0 then
begin
min:=a[x];
 ShowMessage('Номер сопротивления с минимальным током = '); (a[x]);
end;
end;
end;
 
end.

@D1973 · 07.06.2017, 08:34

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

ShowMessage('Номер сопротивления с минимальным током = '); (a[x]);

Это что за чудо такое?

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

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

Это с циклом for

Ерунда полная

@AHBAR · 07.06.2017, 08:40

MaksimKotov25, у вас будет три массива
1 массив - измерения Вольты
2 массив - известное сопротивление
Составляете третий массив (хотя можно обойтись и двумя) - элемент 1 массива деленный на элемент 2 массива (напряжение делите на сопротивление, получаете ток), находите минимальный элемент третьего массива и его порядковый номер

@ZfoxAK · 07.06.2017, 09:17

MaksimKotov25, код полный бред.

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

tarr = array [1..9999] of integer;

Создавать массив для 9999 значений и заполнять только одним значением.

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

for x:=1 to N do

Использовать цикл у которого конечное число N ни как не определено и пробовать найти в массиве, что либо если в нем только одно значение.

@MaksimKotov25 · 07.06.2017, 09:22 **[ТС]**

Я знаю что код полный бред, мне и нудна помощь , как записать его в циклах while ,repeat

@ZfoxAK · 07.06.2017, 09:41

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

Я знаю что код полный бред, мне и нудна помощь

Я не вижу здесь возможности помочь чем либо т.к. в данном случае необходима лекция об основах программирования. А это все есть в любой книге по Delphi.

@D1973 Модератор 9608 / 6216 / 2422 Регистрация: 21.01.2014 Сообщений: 26,511 Записей в блоге: 3
	07.06.2017, 08:34	2
	Сообщение от MaksimKotov25 ShowMessage('Номер сопротивления с минимальным током = '); (a[x]); Это что за чудо такое? Добавлено через 1 минуту Сообщение от MaksimKotov25 Это с циклом for Ерунда полная 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,141
	07.06.2017, 08:40	3
	MaksimKotov25, у вас будет три массива 1 массив - измерения Вольты 2 массив - известное сопротивление Составляете третий массив (хотя можно обойтись и двумя) - элемент 1 массива деленный на элемент 2 массива (напряжение делите на сопротивление, получаете ток), находите минимальный элемент третьего массива и его порядковый номер 0

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	07.06.2017, 09:17	4
	MaksimKotov25, код полный бред. Сообщение от MaksimKotov25 tarr = array [1..9999] of integer; Создавать массив для 9999 значений и заполнять только одним значением. Сообщение от MaksimKotov25 for x:=1 to N do Использовать цикл у которого конечное число N ни как не определено и пробовать найти в массиве, что либо если в нем только одно значение. 0

@MaksimKotov25 0 / 0 / 0 Регистрация: 03.06.2017 Сообщений: 13
	07.06.2017, 09:22 [ТС]	5
	Я знаю что код полный бред, мне и нудна помощь , как записать его в циклах while ,repeat 0

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	07.06.2017, 09:41	6
	Сообщение от MaksimKotov25 Я знаю что код полный бред, мне и нудна помощь Я не вижу здесь возможности помочь чем либо т.к. в данном случае необходима лекция об основах программирования. А это все есть в любой книге по Delphi. 0