Определить величину точечного заряда q, если на расстоянии r от заряда напряженность поля E - Pascal ABC

Узнай цену своей работы

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

Всем привет, помогите пожалуйста с задачей. Завтра уже сдавать, а я сижу уже который час и врубиться никак не могу. 2) Определить величину точечного заряда q, если на расстоянии r от заряда напряженность поля E(в пустоте) Особенно пугает вторая задача, т.к тут походу физика, а уж в ней то я точно не шарю. Заранее большое спасибо.

Решение задачи: «Определить величину точечного заряда q, если на расстоянии r от заряда напряженность поля E»

textual
Листинг программы
const
  eps0 = 8.85E-12;
var
  r, q, E : real;
begin
  write('введите напряженность поля E (В/м): ');
  readln(E);
  write('введите растояние от заряда r (м): ');
  readln(r);
  q := eps0 * 4 * pi * r * r * E;
  writeln('величина заряда: ', q, 'Кл')
end.

Объяснение кода листинга программы

  1. const — объявляются константы
  2. var — объявляются переменные
  3. eps0 := 8.85E-12; — константа, значение которой равно 8.85E-12
  4. r, q, E : real; — объявляются переменные типа real
  5. begin — начало блока кода
  6. write('введите напряженность поля E (В/м): '); — выводится сообщение и переменная E
  7. readln(E); — считывается значение переменной E
  8. write('введите растояние от заряда r (м): '); — выводится сообщение и переменная r
  9. readln(r); — считывается значение переменной r
  10. q := eps0 4 pi r r * E; — вычисляется значение переменной q
  11. writeln('величина заряда: ', q, 'Кл'); — выводится значение переменной q
  12. end. — конец блока кода

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы