[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), а его инициализации ёк, там мусор лежит.

[VALENTINA]

И как сделать чтобы мусора небыло там?

[Alegun]

Начать с самого начала: открыть новый проект, создать на форме списки результатов измерений - характеристик сопротивлений (или Memo или TextBox) и кнопку с лейблом для вывода результата.

[VALENTINA]

Попробую, спасибо за помощь.

[Alegun]

Списки значений есть?

[VALENTINA]

Нету,просто сказано про них

[Alegun]

Печалька, тогда пока только вот это могу вам в помощь предложить...

[VALENTINA]

cпасибо большое, хоть так!=)

[VALENTINA]

Даны два массива 20 однозначных чисел. В первом из них записано количество мячей, забитых футбольной командой в игре, во втором – количество пропущенных мячей в этой же игре.
а) Определить количество выигрышей, проигрышей и ничьих данной команды.
б) Общее число очков, набранных командой (за выигрыш дается 3 очка, за ничью – 1, за проигрыш - 0 ).
Подскажите в чем у меня ошибка в этой здаче?
var
Form1: TForm1;
massiv: array[1..10] of integer;
massiv1: array [1..10]of integer;
massiv3: array [1..10]of integer;
i,n,m,k,ob:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
massiv[i]:=strtoint(InputBox('Элементы массива', 'Введите '+inttostr(i)+
' элемент массива','0'));
//ввод элементов массива
end;


procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
massiv1[i]:=strtoint(InputBox('Элементы массива', 'Введите '+inttostr(i)+
' элемент массива','0'));
//ввод элементов массива
end;


procedure TForm1.Button3Click(Sender: TObject);
var i,n,m,k,ob:integer;
begin
for i:=1 to 10 do
massiv3[i]:=massiv[i]-massiv1[i];
begin
if massiv3[i]>0 then k:=massiv3[i]+1;
if massiv3[i]<0 then m:=massiv3[i]+1;
if massiv3[i]=0 then n:=massiv3[i]+1;
ob:=(k*3)+n;
begin
edit1.Text:=inttostr(k);
edit2.Text:=inttostr(m);
edit3.Text:=inttostr(n);
edit4.Text:=inttostr(ob);
end;
end;

end;
end.