Question

Решите, пожалуйста!!!
Не сложные задачки по информатике, уровня 9-10 класса

Answer 1

Задачки по-порядку. Не уверен насчет последней, там по-моему функция в точке 0 принимает 2 значения: 1 и 0. Не знаю правильно ли это, но я сделал так

1. 
Program First;
var v, r, h: real;
begin 
write('Введите R и H: '); 
readln(r,h);   
v := pi * sqr(r) * h / 3; 
writeln('V = ', v);
end.

2.
Program Second;
var x, t, y: real;
begin 
write('Введите X и T: '); 
readln(x, t);   
if x < 0.5 then   
y := exp(ln(sin(x) / cos(x)) * 3) + sqr(x) 
else if x = 0.5 then   
y := sqrt(x + t) + 1 / t 
else if x > 0.5 then   
y := cos(x) + t * sin(x); 
writeln('Y = ', y);
end.

3.
Program Third;
var x: real;
begin 
write('Введите X: '); 
readln(x);   
if (x > 0) and (x <= 1) then   
writeln('Y = 1') 
else if x < 0 then    
writeln('Y = ', -x) 
else if x > 1 then   
writeln('Y = ', x) 
else if x = 0 then   
writeln('Y = 0 и Y = 1');    
end.

e93f1016c089819e962ceb281d402e78.pas

e90ba3ba0037b194e50ab3f4e2a016d1.pas

9034bc97fc9df0470b8e6185c047a3a1.pas

Answer 2

Все прям так, как мы записываем) А 1-е и 2-е точно верное?

Answer 3

не уверен насчет тангенса во втором

Answer 4

не силён в тригонометрии

Answer 5

ну вроде сходится всё. Надеюсь, что правильно

Answer 6

вот есть ошибка. Замени y := exp(ln(sin(x) / cos(x)) * 3) + sqr(x) на y := sqr(sin(x) / cos(x)) * (sin(x) / cos(x)) + sqr(x) во втором