Кол*цензура*ие Маятника

Тема в разделе "Pascal and Delphi", создана пользователем HardCore, 23 ноя 2012.

  1. HardCore

    HardCore New Member

    Регистрация:
    23 ноя 2012
    Сообщения:
    2
    Симпатии:
    0
    Помогите, пожалуйста
    Написать программу для вычисления периода кол.е.бания маятника
    Спасибо!
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    вариант 1 (дана частота):
    var nu:real;
    begin
    writeln('Введите частоту=');read(nu);
    writeln('Период кол*цензура*ий=',1/nu:0:4,' с');
    end.

    варинат 2 (даны параметры маятника (математического))
    var l,g:real;
    begin
    writeln('Введите длину маятника=');read(l);
    g:=9.8;
    writeln('Период кол*цензура*ий=',2*pi*sqrt(l/g):0:4,' с');
    end.

    Для физического пружинного и т.п. по аналогии.
    Бгг
     

Поделиться этой страницей