Можете проверить правильно я сделал программу на Паскале

Question

Можете проверить правильно я сделал программу на Паскале

Данил Селиванов Ученик (177), на голосовании 1 день назад

var
x: Real;
f: Real;
input: string;
code: Integer;

begin
Write('Введите значение x: ');
ReadLn(input);
Val(input, x, code); // Преобразуем строку в число

if code <> 0 then
begin
WriteLn('Ошибка: некорректное значение.');
end
else
begin

if x < 0 then
begin
f := 0;
WriteLn('F(x) = ', f:0:0, ' при x < 0');
end
else if (x > 0) and (x < 1) then
begin
f := x;
WriteLn('F(x) = ', f:0:2, ' при 0 < x < 1');
end
else
begin
f := Power(x, 4);
WriteLn('F(x) = ', f:0:0, ' при x >= 1');
end;
end;

ReadLn;
end.

Answer 1

а нахрена принимать число строкой и потом делать числом? С тебя проверок не требуют

Неверно, если x = 0, то уходим в else

И вообще задание неверно. Это не функция, тут на один аргумент сразу несколько значений. Ввожу 0.5, и куда идти, во второй или третий пункт?

Answer 2

Код:

 program FunctionCalculation; 
 
var  
    x: Real; 
    f: Real; 
    input: string;   
    code: Integer; 
 
begin  
    Write('Введите значение x: ');  
    ReadLn(input);  
    Val(input, x, code); // Преобразуем строку в число  
 
    if code <> 0 then  
    begin  
        WriteLn('Ошибка: некорректное значение.'); 
    end  
    else  
    begin 
        if x <= 0 then  
        begin  
            f := 0;   
            WriteLn('F(x) = ', f:0:2, ' при x ≤ 0'); // Всегда выводим с двумя знаками после запятой 
        end  
        else if (x > 0) and (x <= 1) then  
        begin  
            f := x;   
            WriteLn('F(x) = ', f:0:2, ' при 0 < x ≤ 1'); 
        end  
        else  
        begin  
            f := x ** 4; // Используем оператор ** для возведения в степень 
            WriteLn('F(x) = ', f:0:2, ' при x > 1'); 
        end;  
    end; 
 
    ReadLn; // Ждем нажатия клавиши для закрытия программы 
end.