Переменные

Задача 1.1.

Условие

Записать по правилам программирования заданную формулу. Составить программу вычисления значения по ней для Х, принадлежащего отрезку [0,1:0,6] по формуле

Листинг

program project1;

uses

SysUtils, things, math;

var

Calculated: boolean;

Value, y: extended;

a: extended = 0.1;

b: extended = 0.6;

s: string;

begin

while not Calculated do

begin

Value:= RequestNumber('Введите число, принадлежащее отрезку [0.1; 0.6]:');

writeln();

if (Value >= 0.1) and (Value <= 0.6) then

begin

y:= 1.8 + ln(abs(30/7 - tan(sin (Value * 5/3))));

s:= Format('Результат: %.3f', [y]);

writeln(s);

Calculated:= true;

end

else

writeln('Введённое число не принадлежит заданному отрезку.');

end;

readln();

end.

Результаты работы программы

Блок-схема

Переменные