|
|
#1
unDerc0re @ 09.10.09 21:18 |
[пожаловаться]
|
|
Короче дали решать задачи через 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
ЗЫ надеюсь не быть посланным найух
ЗЫЫ больше надеюсь на понимание и вашу поддержку
|
|
|
#8
waffen ss @ 09.10.09 21:31 |
[пожаловаться]
|
|
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:0:0,'A');
Writeln ('I2=',I2:0:0,'A');
Writeln ('I3=',I3:0:0,'A');
readln;
END.
шарю
|
|
|
#12
unDerc0re @ 09.10.09 21:36 |
[пожаловаться]
|
|
а что исправить в самом коде а то долнжо получится
0,826
0,479
0,383
а получается п1зд3ц...
|
|
|
#13
nal @ 09.10.09 21:36 |
[пожаловаться]
|
|
Могу эту прогу только в "С" написать в асемблере ни разу не работал
|
|
|
#15
Joes @ 09.10.09 21:37 |
[пожаловаться]
|
|
readkey перед end
и библиотеки нет (uses crt;)
|
|
|
#17
Joes @ 09.10.09 21:39 |
[пожаловаться]
|
|
Write ('R1=');Readln(R1);<---- не правильно
writeln ('r1')
readln (r1)
|
|
|
#20
unDerc0re @ 09.10.09 21:45 |
[пожаловаться]
|
|
#19 *жига и семки*
только 36484 хз в каком порядке это расписывать
этот мудк дал задачи обьяснил только одну, а потом так и не дал обьяснение, вот и придётся так 364ш1ть
|
|
|
#25
Bambino @ 09.10.09 21:58 |
[пожаловаться]
|
|
assembler LOL?!
Turbo Pascal это простейший, чо там понаписал автор
Купи методичку за дорого
|
|
|
#28
french1g @ 09.10.09 22:01 |
[пожаловаться]
|
|
я не знаю че за ботва, но в TP или Delphi для консольного режима вполне прокатило бы.. если ты конечно не удалял никаких дефолтных строчек и написал все там где-надо
|
|
|
#29
unDerc0re @ 09.10.09 22:01 |
[пожаловаться]
|
|
#27 извини.. #7
у меня вообще складывается впечатления что я мудк неправильно написал формулу...
|
|
|
#30
unDerc0re @ 09.10.09 22:03 |
[пожаловаться]
|
|
#28 да все катит, программа работает, но считает неправильно, потому что я где то смудил..
|
|
|
#31
french1g @ 09.10.09 22:04 |
[пожаловаться]
|
|
Условие задачи опубликуй.. может ясно станет.. уж в синтаксисе проблем тут не должно быть..
|
|
|
#32
unDerc0re @ 09.10.09 22:09 |
[пожаловаться]
|
|
Я только дано записал, а условие само нет, там короче сопротивление трёх проводников равно 3, 4, 5 Ом соответственно, а напряжение на всем участке равно 4.5 В, Найти силу тока для каждого проводника.
|
|
|
#33
french1g @ 09.10.09 22:14 |
[пожаловаться]
|
|
просто если тебе дано несколько сопротивлений в одной цепи, то скорее всего закон Ома для полной цепи нужен.. тот, что ты написал - для участков цепи.. для полной, если мне не изменяет память I= E/(R+r)
|
|
|
#43
ABAsrazzo @ 09.10.09 22:48 |
[пожаловаться]
|
|
Чет все проблемные 36л
А по сабжу: есть специальные форумы, где тебе с радостью помогут и не будут срать в рот
|
|
|
#48
ABAsrazzo @ 09.10.09 23:09 |
[пожаловаться]
|
|
#47 I Wanna Be Karatellll фигасе котэ
Чет биляша захотелось
|
|
|
#50
ABAsrazzo @ 09.10.09 23:14 |
[пожаловаться]
|
|
#49 ntmg_ и че мне с ним " " делать?
Распечатать и захавать
|
|
|
#54
ABAsrazzo @ 09.10.09 23:17 |
[пожаловаться]
|
|
#51 I Wanna Be Karatellll попробуй сардельки сварить в воде норм, А потом на 4 - 6 минут в микроволновку=
вуксно
|
|
|
#62
ABAsrazzo @ 09.10.09 23:37 |
[пожаловаться]
|
|
#60 L0v314y5Dy18G спс
Закинул сыра с хлебом в микровалновку + чуток масла сливочного на 20 секунд
|
|
|
#63
unDerc0re @ 09.10.09 23:43 |
[пожаловаться]
|
|
да кстати ничего так бутер выходит, но вот только не по сабжу пошли, ибо задачу я так и не сделал ладно завтра на свежую голову
|
|
|
#70
Gl @ 11.10.09 10:05 |
[пожаловаться]
|
|
#26
з.ы. джони я укушу тебя если ещё раз выложишь фотки этого уеб4на
|
|
|
#73
Евгений.. @ 11.10.09 10:13 |
[пожаловаться]
|
|
воены помогите советом..
не могу восстановить старый акк. письмо с кодом активации приходит, а потом письмо с сгенирированным пассвордом не приходит
|
|
|
#78
Евгений.. @ 11.10.09 10:31 |
[пожаловаться]
|
|
«Вам на почту @mail.ru выслано письмо с паролем для входа.
В дальнейшем вы его можете поменять на любой другой.»
проверя почту, а там них7я нет!
|
|
|
#81
КучикиБьякуя Капитан шестого отряда @ 11.10.09 10:59 |
[пожаловаться]
|
|
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 ('Avtor E6aH=',I1,'A');
Writeln ('Avtor E6aH',I2,'A');
Writeln ('Avtor E6aH',I3,'A');
END.
Vot,neblagodari koro4e a to v duzlo trahnu
|
|
|
Reply | | | |
|
|
|