Протабулировать функцию y= ex+cos x для -1lt;=xlt;=1.5 с шагом 0.1, записать данные в файл и пр
Протабулировать функцию y= ex+cos x для -1<=x<=1.5 с шагом 0.1, записать данные в файл и просмотреть данные из файла. На языке Паскаль. Буду благодарна
Гость
Ответ(ы) на вопрос:
Гость Program func;
var
i, y: real;
function MyFunction(x: real): real;
begin
MyFunction := ( Exp(x) + Cos(x) );
end;
begin
i := -1;
assign(output, 'output.txt');
rewrite(output);
while i <= 1.5 do
begin
x := MyFunction(i);
write(output, x, ' ');
i := i + 0.1;
end;
close(output);
assign(input, 'output.txt');
reset(input);
writeln('Содержимое файла:');
writeln( readln(input) );
end.
Не нашли ответ?
Похожие вопросы