Вычислить значения функции f(x)=2 cos x+3, при x={1; 4; 7,5; 20}. Вывести результаты в два столбца: в первом — значения x, во втором (программа Паскаль)
Вопрос посетителя
Вычислить значения функции f(x)=2 cos x+3, при x={1; 4; 7,5; 20}. Вывести результаты в два столбца: в первом — значения x, во втором — значения f(x). Вычисления провести двумя способами: с помощью функции и процедуры.
Ответ эксперта
program proc_1;
function f (x: Real):Real;
begin
f:=2*cos(x)+3
end;
procedure proc_f (x: Real; var fx: real);
begin
fx:=2*cos(x)+3
end;
var x, fx: real;
begin
Writeln(‘с использованием процедуры:’);
Writeln(‘ x f(x)’);
x:=1; proc_f (x,fx); Writeln (x:6:2, fx:6:2);
x:=4; proc_f (x,fx); Writeln (x:6:2, fx:6:2);
x:=7.5; proc_f (x,fx); Writeln (x:6:2, fx:6:2);
x:=20; proc_f (x,fx); Writeln (x:6:2, fx:6:2);
Readln;
Writeln(‘с использованием функции:’);
Writeln(‘ x f(x)’);
Writeln(1:6, f (1):6:2);
Writeln(4:6, f (4):6:2);
Writeln(7.5:6:2, f (7.5):6:2);
Writeln(20:6, f (20):6:2);
Readln;
end.
