Определить величину точечного заряда 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.
Объяснение кода листинга программы
- const — объявляются константы
- var — объявляются переменные
- eps0 := 8.85E-12; — константа, значение которой равно 8.85E-12
- r, q, E : real; — объявляются переменные типа real
- begin — начало блока кода
- write('введите напряженность поля E (В/м): '); — выводится сообщение и переменная E
- readln(E); — считывается значение переменной E
- write('введите растояние от заряда r (м): '); — выводится сообщение и переменная r
- readln(r); — считывается значение переменной r
- q := eps0 4 pi r r * E; — вычисляется значение переменной q
- writeln('величина заряда: ', q, 'Кл'); — выводится значение переменной q
- end. — конец блока кода