Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 21.10.2017
Сообщений: 2
1

Разработать программу расчета зависимости частотных характеристик модуля комплексной проводимости

21.10.2017, 16:31. Показов 921. Ответов 16
Метки нет (Все метки)

Разработать программу расчета зависимости частотных характеристик модуля комплексной проводимости Y параллельного LC контура в диапазон частот f от 600 до 1800

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\left|Y \right|=\sqrt{\frac{1}{R^2}+\left(\omega C-\frac{1}{\omega L} \right)^2},\ \ C\small{M}\normal{,}<br />

где С = 1200 пФ – емкость конденсатора;

L = 20 мкГн – индуктивность катушки;

ω = 2πf – круговая частота, Гц.

Реализовать ввод значения параллельного сопротивления R (300 .. 3000) Ом с клавиатуры.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2017, 16:31
Ответы с готовыми решениями:

Разработать программу в паскале для вычисления таблицы значений модуля комплексной функции
Задана комплексная функция W(jv)=k*(1+T2*jv)/jv*(1+T1*jv)*(1+T3jv)2*(1+T3jv)2 где k=100,...

3D график частотных характеристик в Mathcad
Здравствуйте, возможно кто нибудь здесь сможет мне помочь. Программа ведет расчет и строит графики...

Дешифрация сообщений на основе частотных характеристик языка сообщения
Как реализовать такую задачу? Дешифрация сообщений на основе частотных характеристик языка...

Дешифрация сообщений на основе частотных характеристик языка сообщения
Как реализовать таую задачу? Дешифрация сообщений на основе частотных характеристик языка...

__________________
16
Модератор
63335 / 47046 / 32428
Регистрация: 18.05.2008
Сообщений: 114,040
21.10.2017, 16:42 2
Цитата Сообщение от Krasns Marina Посмотреть сообщение
в диапазон частот f от 600 до 1800
А с каким шагом?
0
0 / 0 / 0
Регистрация: 21.10.2017
Сообщений: 2
21.10.2017, 17:15  [ТС] 3
к сожалению,я не знаю
0
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,267
23.10.2017, 13:02 4
Так узнайте. Программа с шагом по частоте 100 кГц:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const C = 1200e-12;
      L = 20e-6;
      fn = 600000;
      fk = 1800000;
      h = 100000;
      lin = '+---------+----------------+';
var R, f, omega, Y: real;
    n: integer;
begin
  repeat
    write('R in [300...3000];  R = ');
    readln(R)
  until (R >= 300) and (R <= 3000);
  R := 1 / R / R;
  writeln(lin);
  writeln('|  f, Hz  |     |Y|, S     |');
  writeln(lin);
  for n := 0 to (fk - fn) div h do
    begin
      f := fn + n * h;
      omega := 2 * pi * f;
      Y := sqrt(R + sqr(omega * C - 1 / omega / L));
      writeln('| ', f:7:0, ' | ', Y:0:12, ' |')
    end;
  writeln(lin);
  readln
end.
0
0 / 0 / 0
Регистрация: 26.10.2017
Сообщений: 6
26.10.2017, 18:03 5
такой вопрос. в 5 строчке h что значит?
и кто может помогать писать программы за мп?
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28023 / 15750 / 971
Регистрация: 15.09.2009
Сообщений: 67,775
Записей в блоге: 78
26.10.2017, 18:18 6
Цитата Сообщение от poman2013777 Посмотреть сообщение
и кто может помогать писать программы за мп?
вы как заказчик интересуетесь или предложить свои услуги?
0
0 / 0 / 0
Регистрация: 26.10.2017
Сообщений: 6
26.10.2017, 18:23 7
как заказчик.хочу чтобы кто то обьяснял мне как правильно писать.а то в универе ничего нормально не обьясняют.
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28023 / 15750 / 971
Регистрация: 15.09.2009
Сообщений: 67,775
Записей в блоге: 78
26.10.2017, 18:26 8
то есть вам нужен репетитор?
0
0 / 0 / 0
Регистрация: 26.10.2017
Сообщений: 6
26.10.2017, 18:37 9
верно
0
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,267
26.10.2017, 18:52 10
h означает шаг по частоте в герцах. Программа вычисляет зависимость частотных характеристик модуля комплексной проводимости Y параллельного LC контура в диапазоне частот f от 600 кГц до 1.8 МГц в точках, кратных 100 кГц.
0
0 / 0 / 0
Регистрация: 26.10.2017
Сообщений: 6
26.10.2017, 18:59 11
почему то программа пишет ошибку 200(деление на ноль)
0
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,267
26.10.2017, 19:04 12
Наверное, потому, что Вы что-то неверно скопировали. Протокол работы программы:
Код
R in [300...3000];  R = 1500
+---------+----------------+
|  f, Hz  |     |Y|, S     |
+---------+----------------+
|  600000 | 0.008764410353 |
|  700000 | 0.006126713600 |
|  800000 | 0.003971677543 |
|  900000 | 0.002161480138 |
| 1000000 | 0.000786832620 |
| 1100000 | 0.001251783291 |
| 1200000 | 0.002506611132 |
| 1300000 | 0.003740317295 |
| 1400000 | 0.004917050050 |
| 1500000 | 0.006041464286 |
| 1600000 | 0.007121397349 |
| 1700000 | 0.008163935805 |
| 1800000 | 0.009174962181 |
+---------+----------------+
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28023 / 15750 / 971
Регистрация: 15.09.2009
Сообщений: 67,775
Записей в блоге: 78
26.10.2017, 19:24 13
по поводу репетиторства можете обратиться в этот раздел: https://www.cyberforum.ru/order-teaching/
0
0 / 0 / 0
Регистрация: 26.10.2017
Сообщений: 6
28.10.2017, 10:19 14
У меня почему то в Паскаль скопированное не вставляется
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28023 / 15750 / 971
Регистрация: 15.09.2009
Сообщений: 67,775
Записей в блоге: 78
28.10.2017, 10:24 15
ручками перепечатай.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5720 / 3431 / 2436
Регистрация: 22.11.2013
Сообщений: 9,636
Записей в блоге: 1
28.10.2017, 10:39 16
Как вариант: открыть файл в Блокноте, вставить, сохранить (здесь нет русского текста, кодировка не сломается). Открыть файл в IDE, далее -- по обстановке.
0
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,267
30.10.2017, 19:45 17
poman2013777,

если Вы запускаете Turbo Pascal в оконном режиме, то:

- щелчок правой кнопкой мыши на верхней части рамки окна;
- выбрать "Изменить", затем выбрать "Вставить",

если Вы запускаете Turbo Pascal в полноэкранном режиме, то:

- перед запуском Turbo Pascal создайте где-либо текстовый файл, назовите его, например, 1.txt;
- вставьте в него текст программы, сохраните файл;
- переименуйте файл в 1.pas, при этом в свойствах той папки, где расположен 1. txt, должно быть разрешено отображение типа файлов (например, для Windows XP: "Сервис" > "Свойства папки..." > вкладка "Вид" > в дополнительных параметрах снять галку с пункта "Скрывать расширения для зарегистрированных типов файлов");
- запустите Turbo Pascal;
- "File" > "Open", далее в окне открытия файла доберитесь до папки, где лежит файл 1.pas, выделите 1.pas, и нажмите "Open".
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2017, 19:45

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Расчёт временных и частотных характеристик непрерывных структурированных моделей
Дано: . k=96; T= 53 c. Вычислить: 1. ОДУ. 2. Переходную характеристику и функцию весаh(t)....

Определить модуль комплексной проводимости кубика
Помогите, пожалуйста, решить эту задачу. Кубик из диэлектрика с ребром 0,06 м имеет удельное...

Захват звука с звуковой карты для отображения частотных характеристик
Добрый день. Подскажите пожалуйста, как на С# или WPF перехватывать звук, идущий на колонки? Т.е....

Захват звука с звуковой карты для отображения частотных характеристик
Добрый день. Подскажите пожалуйста, как на С++ перехватывать звук, идущий на колонки? Т.е. я хочу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.