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

@Krasns Marina · Регистрация: 21.10.2017

Студворк — интернет-сервис помощи студентам

Разработать программу расчета зависимости частотных характеристик модуля комплексной проводимости 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) Ом с клавиатуры.

@Puporev · 21.10.2017, 16:42

Сообщение от Krasns Marina

в диапазон частот f от 600 до 1800

А с каким шагом?

@Krasns Marina · 21.10.2017, 17:15 **[ТС]**

к сожалению,я не знаю

@Cyborg Drone · 23.10.2017, 13:02

Так узнайте. Программа с шагом по частоте 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.

@poman2013777 · 26.10.2017, 18:03

такой вопрос. в 5 строчке h что значит?
и кто может помогать писать программы за мп?

magirus · 26.10.2017, 18:18

Сообщение от poman2013777

и кто может помогать писать программы за мп?

вы как заказчик интересуетесь или предложить свои услуги?

@poman2013777 · 26.10.2017, 18:23

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

magirus · 26.10.2017, 18:26

то есть вам нужен репетитор?

@poman2013777 · 26.10.2017, 18:37

верно

@Cyborg Drone · 26.10.2017, 18:52

h означает шаг по частоте в герцах. Программа вычисляет зависимость частотных характеристик модуля комплексной проводимости Y параллельного LC контура в диапазоне частот f от 600 кГц до 1.8 МГц в точках, кратных 100 кГц.

@poman2013777 · 26.10.2017, 18:59

почему то программа пишет ошибку 200(деление на ноль)

@Cyborg Drone · 26.10.2017, 19:04

Наверное, потому, что Вы что-то неверно скопировали. Протокол работы программы:

Code
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 |
+---------+----------------+

magirus · 26.10.2017, 19:24

по поводу репетиторства можете обратиться в этот раздел: https://www.cyberforum.ru/order-teaching/

@poman2013777 · 28.10.2017, 10:19

У меня почему то в Паскаль скопированное не вставляется

magirus · 28.10.2017, 10:24

ручками перепечатай.

@bormant · 28.10.2017, 10:39

Как вариант: открыть файл в Блокноте, вставить, сохранить (здесь нет русского текста, кодировка не сломается). Открыть файл в IDE, далее -- по обстановке.

@Cyborg Drone · 30.10.2017, 19:45

poman2013777,

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

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

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

- перед запуском Turbo Pascal создайте где-либо текстовый файл, назовите его, например, 1.txt;
- вставьте в него текст программы, сохраните файл;
- переименуйте файл в 1.pas, при этом в свойствах той папки, где расположен 1. txt, должно быть разрешено отображение типа файлов (например, для Windows XP: "Сервис" > "Свойства папки..." > вкладка "Вид" > в дополнительных параметрах снять галку с пункта "Скрывать расширения для зарегистрированных типов файлов");
- запустите Turbo Pascal;
- "File" > "Open", далее в окне открытия файла доберитесь до папки, где лежит файл 1.pas, выделите 1.pas, и нажмите "Open".

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Krasns Marina 0 / 0 / 0 Регистрация: 21.10.2017 Сообщений: 2

	Разработать программу расчета зависимости частотных характеристик модуля комплексной проводимости 21.10.2017, 16:31. Показов 1386. Ответов 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

@Krasns Marina 0 / 0 / 0 Регистрация: 21.10.2017 Сообщений: 2
	21.10.2017, 17:15 [ТС]
	к сожалению,я не знаю 0

@poman2013777 0 / 0 / 0 Регистрация: 26.10.2017 Сообщений: 6
	26.10.2017, 18:03
	такой вопрос. в 5 строчке h что значит? и кто может помогать писать программы за мп? 0

@poman2013777 0 / 0 / 0 Регистрация: 26.10.2017 Сообщений: 6
	26.10.2017, 18:23
	как заказчик.хочу чтобы кто то обьяснял мне как правильно писать.а то в универе ничего нормально не обьясняют. 0

magirus Почетный модератор 28049 / 15785 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	26.10.2017, 18:26
	то есть вам нужен репетитор? 0

@poman2013777 0 / 0 / 0 Регистрация: 26.10.2017 Сообщений: 6
	26.10.2017, 18:37
	верно 0

@Cyborg Drone Модератор 10435 / 5724 / 3405 Регистрация: 17.08.2012 Сообщений: 17,429
	26.10.2017, 18:52
	h означает шаг по частоте в герцах. Программа вычисляет зависимость частотных характеристик модуля комплексной проводимости Y параллельного LC контура в диапазоне частот f от 600 кГц до 1.8 МГц в точках, кратных 100 кГц. 0

@poman2013777 0 / 0 / 0 Регистрация: 26.10.2017 Сообщений: 6
	26.10.2017, 18:59
	почему то программа пишет ошибку 200(деление на ноль) 0

magirus Почетный модератор 28049 / 15785 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	26.10.2017, 19:24
	по поводу репетиторства можете обратиться в этот раздел: https://www.cyberforum.ru/order-teaching/ 0

@poman2013777 0 / 0 / 0 Регистрация: 26.10.2017 Сообщений: 6
	28.10.2017, 10:19
	У меня почему то в Паскаль скопированное не вставляется 0

magirus Почетный модератор 28049 / 15785 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	28.10.2017, 10:24
	ручками перепечатай. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	28.10.2017, 10:39
	Как вариант: открыть файл в Блокноте, вставить, сохранить (здесь нет русского текста, кодировка не сломается). Открыть файл в IDE, далее -- по обстановке. 0

@Cyborg Drone Модератор 10435 / 5724 / 3405 Регистрация: 17.08.2012 Сообщений: 17,429
	30.10.2017, 19:45
	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