Короче дали решать задачи через TB7. Ответы нам дали. Ну написал я программу, а при вводе значений получается вообще не то что надо....
Короче если кто что шарит в ассемблерском коде, скажите ч0 не так...
Program PR1;
Var R1,R2,R3,U,I1,I2,I3:real;
BEGIN
Write ('R1='),Readln(R1);
Write ('R2='),Readln(R2);
Write ('R3='),Readln(R3);
Write ('U='),Readln(U);
I1:=U/R1;
I2:=U/R2;
I3:=U/R3;
Writeln ('I1=',I1,'A');
Writeln ('I2=',I2,'A');
Writeln ('I3=',I3,'A');
END.
Значения выходит абсолютно не такими...
Если кто-то захочет попробовать решить вот значения
R1=3
R2=4
R3=5
U=4.5
ЗЫ надеюсь не быть посланным найух
ЗЫЫ больше надеюсь на понимание и вашу поддержку
я не знаю че за ботва, но в TP или Delphi для консольного режима вполне прокатило бы.. если ты конечно не удалял никаких дефолтных строчек и написал все там где-надо
Я только дано записал, а условие само нет, там короче сопротивление трёх проводников равно 3, 4, 5 Ом соответственно, а напряжение на всем участке равно 4.5 В, Найти силу тока для каждого проводника.
просто если тебе дано несколько сопротивлений в одной цепи, то скорее всего закон Ома для полной цепи нужен.. тот, что ты написал - для участков цепи.. для полной, если мне не изменяет память I= E/(R+r)