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

258

323

Посмотреть ответы 2

Ответы на вопрос:

TheOll

Информатика

4,4(21 оценок)

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.