Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.05.2011, 14:42   #1
spam1111
Новичок
Джуниор
 
Регистрация: 03.05.2011
Сообщений: 3
Восклицание Графика(паскаль и с)

Люди,помогите!!Надо написать программу по физике.Задание:"Напряженность электростатического поля шара и плоскости".Мне сказали,что с клавишы должны вводиться значения радиуса и заряд.Пожалуйста помогите,буду очень рад такую программу увидеть
spam1111 вне форума Ответить с цитированием
Старый 03.05.2011, 16:09   #2
Gelirgwenn
Пользователь
 
Регистрация: 18.04.2011
Сообщений: 14
По умолчанию

Цитата:
Сообщение от spam1111 Посмотреть сообщение
Задание:"Напряженность электростатического поля шара и плоскости"
ну и где ваши формулы по вычислениям??? или их по вашему все как теорему Пифагора знают?
Gelirgwenn вне форума Ответить с цитированием
Старый 03.05.2011, 16:33   #3
spam1111
Новичок
Джуниор
 
Регистрация: 03.05.2011
Сообщений: 3
По умолчанию

значит,формулу там только одну надо(E=q/E0*r^2),а плоскость заряжена либо положительно,либо отрицательно
spam1111 вне форума Ответить с цитированием
Старый 03.05.2011, 23:13   #4
Gelirgwenn
Пользователь
 
Регистрация: 18.04.2011
Сообщений: 14
По умолчанию

ну если E0 это электрическая постоянная, то вот так:
Код:
program Wrt;
var
e,q,r: real;
begin
write('Vvedite zaryad:');
readln(q);
write('Vvedite radius:');
readln(r);
e:=q/(1/(4*pi)*sqr(r));
writeln('E=',e);
end.
формулу измените, если я E0 неверно определил)
Gelirgwenn вне форума Ответить с цитированием
Старый 05.05.2011, 18:21   #5
spam1111
Новичок
Джуниор
 
Регистрация: 03.05.2011
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Gelirgwenn Посмотреть сообщение
ну если E0 это электрическая постоянная, то вот так:
Код:
program Wrt;
var
e,q,r: real;
begin
write('Vvedite zaryad:');
readln(q);
write('Vvedite radius:');
readln(r);
e:=q/(1/(4*pi)*sqr(r));
writeln('E=',e);
end.
формулу измените, если я E0 неверно определил)
спасибо за код
spam1111 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
паскаль. графика vykker Помощь студентам 2 28.06.2010 18:25