Напряженность поля создаваемое точечным зарядом - Pascal ABC

Формулировка задачи:

Помогите составить прогу :Напряженность поля создаваемое точечным зарядом вычисляется по формуле , где q-заряд создающий поле, εijε=8.85∙10-12 Ф/м, r - расстояние от q до точки.Найти общую напряженность поля для трёх зарядов,если для каждого из них известны величина заряда q и расстояние r.Использовать подпрограмму-функцию.

Код к задаче: «Напряженность поля создаваемое точечным зарядом - Pascal ABC»

textual
type tt = record q, r: double end;
 
function e(t: tt): double;
const eps = 8.85e-12;
begin
  e := t.q / 4 / pi / eps / t.r / t.r
end;
 
var i: byte;
    p: array [1..3] of tt;
    s: double;
 
begin
  s := 0;
  for i := 1 to 3 do
    begin
      write('q', i, ' = ');
      readln(p[i].q);
      repeat
        write('r', i, ' > 0;  r', i, ' = ');
        readln(p[i].r)
      until p[i].r > 0;
      s := s + e(p[i])
    end;
  write('E = ', s);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ