Написать блок-схему и программу вычисления функции на за- данном промежутке с шагом 0.2 и построить график это - Pascal ABC

  1. Помогите с решением. Написать блок-схему и программу вычисления функции на заданном промежутке с шагом 0.2 и построить график этой функции.


textual

Код к задаче: «Написать блок-схему и программу вычисления функции на за- данном промежутке с шагом 0.2 и построить график это - Pascal ABC»

uses crt,graphABC;
const a=-1;
      b=3;
      h=0.2;
function f(x:real):real;
begin
if x<0 then f:=exp(-cos(3*x))
else if x<=1.5 then f:=2*x*x*sqrt(abs(cos(2*x)))
else f:=x;
end;
var x0,y0,i:integer;
    x,max,mx,my:real;
begin
x:=a;
max:=f(x);
while x<b+h/2 do
 begin
  writeln('x=',x:4:1,'  y=',f(x):6:3);
  if f(x)>max then max:=f(x);
  x:=x+h;
 end;
write('Нажмите Enter для просмотра графика');
readln;
hidecursor;
clearwindow;
x0:=windowwidth div 4;
y0:=windowheight-50;
mx:=(windowwidth-x0-30)/3;
my:=(y0-30)/max;
line(0,y0,windowwidth-10,y0);
line(x0,y0,x0,10);
textout(windowwidth-20,y0-20,'X');
textout(x0+5,10,'Y');
textout(x0+2,y0+5,'0');
for i:=1 to 8 do
 begin
  line(x0+round(i*mx/2),y0-3,x0+round(i*mx/2),y0+3);
  textout(x0+round(i*mx/2),y0+5,floattostr(i/2));
  line(x0-round(i*mx/2),y0-3,x0-round(i*mx/2),y0+3);
  textout(x0-round(i*mx/2),y0+5,floattostr(-i/2));
  line(x0-3,y0-round(i*my/2),x0+3,y0-round(i*my/2));
  textout(x0-25,y0-round(i*my/2),floattostr(i/2));
 end;
x:=a;
while x<=b do
 begin
  setpixel(x0+round(x*mx),y0-round(f(x)*my),clred);
  x:=x+0.001;
 end;
setpencolor(clgreen);
line(x0+round(1.5*mx),y0,x0+round(1.5*mx),0);
end.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.778 из 5



Похожие ответы
  1. Добрый день. Знаю, что такое уже было на вашем форуме, но оно было не полностью, а как доделать я не сильно знаю. Задача: Написать программу перевода целого числа a из цифрового формата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. Вот код, который я обнаружил на этом сайте:

  1. Написать программу формирования ОПЗ и расчета полученного выражения. Разработать удобный интерфейс ввода исходных данных и вывода результатов. Работу программы проверить на конкретном примере Сам пример со значениями которые должны получиться: (a– b)/(c+d)*e , где а=0.3 b=6.7 c=8.4 d=9.6 e=1.2 Результат должен получиться -0.429. Помогите пожалуйста используя динамический массив заранее спасибо

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

  1. Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k - строк, m - столбцов, б) k - строк, m – половина разности длины двух любых соседних строк.

  1. Написать программу для построения графика функции. y=sqrt(2x+6)

  1. Нужна срочная помощь в написании данных программ на Pascal ABC. Спасибо! 1.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Сформировать и вывести на экран второй массив, каждый элемент которого получается сложением элемента первого массива на его максимальное значение. 2.Вывести на экран массив из 10 случайных положительных и отрицательных чисел. Сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные заменяются на 1. 3.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Найти разницу между максимальным и минимальным элементами массива. 4.Значения элементов массива a из 10 целых чисел вводятся с клавиатуры. Создать второй массив, состоящий из НОМЕРОВ отрицательных элементов массива a.

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции , заданной в виде графика. Параметр R задается константой.

  1. В программе ввести индекс,значение которого увеличивается после каждого действия оператора.

  1. Вот формула :ППТ(м^2)=0,0003207*вес(г)(0,7285-0,0188*log10 вес(г)*рост(см)0.3