Протабулировать функцию y= ex+cos x для -1

July 2022 1 5 Report

Протабулировать функцию y= ex+cos x для -1<=x<=1.5 с шагом 0.1, записать данные в файл и просмотреть данные из файла. На языке Паскаль. Буду благодарна

Answers & Comments

BrightOne 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.

1 votes Thanks 0

Answers & Comments

pomogite pozhalujsta zadana arifmeticheskaya progressiya 84 62 skolko chle

pomogite mne pozhalujsta po programmirovaniyu na yazyke paskal zadan odnomernyj ma

pomogite mne pozhalujstav kakom slove proiznositsya glasnyj o1 zazheg2 podarok

zadanie nuzhno napisat rekursiyu algoritmov na yazyke paskal nahozhdenie n go chl

mne nuzhna vasha pomosh pomogite mne ponyat smysl zadaniya najti i zapisat iz te

pomogite pozhalujsta zadan odnomernyj massiv a115 opredelit summu chetnyh p

pomogite mne pozhalujsta iz perechislennyh slov obrazovat ot nih s prefikami fab

рекомендуемые вопросы

Helpful Links

Helpful Social