1
Ваши вопросы / Re: Создать Амперметр
« : 05 Мая 2024, 12:58:33 »
Большое спасибо.
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
program AngleCalculation;
var
cosValue, angle: real;
begin
// Ввод значения косинуса угла
writeln('Введите значение косинуса угла: ');
readln(cosValue);
// Проверка ввода на корректность
if (cosValue < -1) or (cosValue > 1) then
writeln('Ошибка: косинус должен быть в диапазоне от -1 до 1')
else
begin
// Расчёт угла в радианах по формуле arccos(x)=arctan(sqrt(1-sqr(x))/x)
angle := arctan(sqrt(1 - sqr(cosValue)) / cosValue);
// Перевод угла из радиан в градусы
angle := angle * 180 / pi;
// Вывод результата
writeln('Угол, косинус которого равен ', cosValue:0:4, ' равен ', angle:0:4, ' градусов');
end;
end.
var
aReport: TM_Report;
begin
vrDynamic_name.Value := ComboBox2.Items[0].Text;
vrDynamic_A_Begin.Value := vrAsumm.Value;
vrDynamic_A_End.Value := vrAsumm.Value;
vrDynamic_A_Raznica.Value := vrAsumm.Value;
aReport := ReportBuild('Периодический1');
aReport.View(GetClientName);
end.
var
aReport: TM_Report;
begin
//vrDynamic_name.Value := vrAsumm.Name;
vrDynamic_A_Begin.Value := vrAsumm.Value;
vrDynamic_A_End.Value := vrAsumm.Value;
vrDynamic_A_Raznica.Value := vrAsumm.Value;
aReport := ReportBuild('Периодический1');
aReport.View(GetClientName);
end.