Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Impedance
Language: PASCAL
Code:
program Impedance;
var
  r, phi, d, y: real;
begin
  writeLn('Введите величину сопротивления R');
  readLn(r);
  writeLn('Введите величину сдвига фазы phi');
  readLn(phi);
  writeLn('Введите толщину образца d');
  readLn(d);
  y:=(1/R)*cos(phi*pi/180)*d/(pi*0.25);
  writeLn('Величина удельной проводимости y = ',y,'См/см');
end.          
Comments: