[VALENTINA]

Здравствуйте! =) помогите пожалуйста срочно решить задачу цикл с условием...
В результате измерений получены напряжения (в вольтах) сопротивлений,не соединенных друг с другом. Характеристика (в омах) каждого сопротивления известна. Определить порядковый номер сопротивления, по которому проходит минимальный ток.
Заранее спасибо!)

[Alegun]

И при чём здесь делфи? Амперметр из неё так себе.

[VALENTINA]

Такие задания дали..)и решать их надо в делфи

[Alegun]

Ну и какие мысли есть по этой теме, как думаете решать?

[Bargest]

Как-как, поплакать на форуме, пожаловаться на тяжелую жизнь студентов и выпросить решение чужими руками.
Тема должна быть либо в разделе "Работа", либо в "Код на шару".

[VALENTINA]

Писала такую программу , но цифры в ответе большие:

Код:

var i,S,U,R,nomer:integer;
begin
U:=strtoint(edit1.text);
min :=1;
while i:=20 do
begin 
if S>min then s:=min;
i:=i+1;
end;
R:=U/S;
s:=i;
Edit3.text:=inttostr(nomer);

[Alegun]

Нумбер есть (nomer), а его инициализации ёк, там мусор лежит.