Question

Free Pascal,программа для расчёта колебаний математического маятника,где ошибся я? program uiuiu; var T,p,L,g:integer; begin write('Введите длину L'); readln (L); p:=3.14; g:=9.81; T:=2*p*sqrt(L/g); writeln('T=';T); end.

Answer 1

В формуле для вычисления периода Т есть дробь(деление) и извлечение корня  Переменная Т не может принимать целый тип(то есть integer) Также р и g -не целый тип ЗАМЕНИТЕ integer на real

Answer 2

В вашей программе есть несколько ошибок. Приведу исправленный вариант программы:

program uiuiu; var t, l: real; // заменил integer на real, так как в результате у вас может быть дробное число g: real;

begin writeln('Введите длину l:'); readln(l);

const pi = 3.14159; // заменил значение числа Пи

g := 9.81; t := 2 * pi * sqrt(l / g); // исправил опечатку в использовании числа Пи writeln('t = ', t); end.

В этом варианте программы я заменил тип данных переменных t, l, g с integer на real, так как в результате расчета может получиться дробное число - время t.

Также я заменил значение числа Пи на более точное 3.14159. Для математических расчетов лучше использовать более точное приближение Пи.

В вашей программе была допущена ошибка в выводе результата на экран. Символ равно (=) был написан после строки 't=' и пропущена закрывающая скобка в методе writeln. Я исправил эти ошибки.

Можно запустить исправленную программу и ввести значение длины l. Она посчитает время колебаний математического маятника и выведет результат на экран.