Модули. Сравнить сопротивления медного и алюминиевого проводников

@Ром11 · Регистрация: 24.01.2013

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

сравнить сопротивления медного проводника сечением 5 мм и длиной 75 см и алюминевого сечением2 мм и длиной 1.2 м

@ermolay · 05.02.2013, 15:57

не совсем понял как сравнивать, сделал как понял:
модуль:

Pascal

unit metal;
interface
 
  const
    rm=0.0171; // óäåëüíîå ñîïðîòèâëåíèå ìåäè
    ra=0.0278; // óäåëüíîå ñîïðîòèâëåíèå àëëþìèíèÿ
  function sopr(l,rmet,d: real): real;
  
implementation
 
  function sopr(l,rmet,d: real): real;
  var r: real;
  begin
    r:=4*l*rmet/pi/d/d;
    sopr:=r;
  end;
end.

программа:

Pascal

uses metal;
begin
  write('Ñîïðîòèâëåíèå ìåäíîãî ïðîâîäíèêà ñå÷. 5 ìì è äë. 75 cì: ');
  writeln(sopr(750,rm,5):0:5);
  write('Ñîïðîòèâëåíèå àëþìèíèåâîãî ïðîâîäíèêà ñå÷. 2 ìì è äë. 1.2 ì: ');
  writeln(sopr(1200,ra,2):0:5);
  writeln('Èõ îòíîøåíèå ñîîòâåòñòâåííî: ',sopr(750,rm,5)/sopr(1200,ra,2):0:5);
  readln;
end.

@Ром11 2 / 2 / 0 Регистрация: 24.01.2013 Сообщений: 116
		1
	Модули. Сравнить сопротивления медного и алюминиевого проводников 05.02.2013, 15:35. Показов 1410. Ответов 1 Метки нет (Все метки) сравнить сопротивления медного проводника сечением 5 мм и длиной 75 см и алюминевого сечением2 мм и длиной 1.2 м 0

	05.02.2013, 15:57

Модули. Сравнить сопротивления медного и алюминиевого проводников

Решение