Вопрос по информатике:
ДАЮ 50 баллов!!! Написать программу на языке pascal для графика y=2x в квадрате
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.04.2016 07:41
- Информатика
- remove_red_eye 17071
- thumb_up 6
Ответы и объяснения 2
var y,x:real;
begin
writeln('Введите значение x');
readln(x);
y:=sqr(x);
writeln('Ответ:', y);
end.
- 09.04.2016 11:33
- thumb_up 18
//Если программа не запускается, то обновите версию
uses GraphABC;
const
x_min = -15.0;
x_max = 15.0;
dx = 0.01;
function f(x: real): real;
begin
f := 2*x;
end;
begin
//настраиваем размер окна под график, влияет на маштаб
Window.Width := 1000;
Window.Height := 300;
Window.IsFixedSize := True; // фиксируем размеры окна
Coordinate.Origin := Window.Center; //выставляем начало координат в центр окна
Coordinate.SetMathematic; //выставляем направление осей как в математике принято
var scale := Window.Width / (x_max - x_min); // вычисляем маштаб
var x := x_min;
var y_max := f(x_max); // подставляем реальные значения
var y_min := f(x_min); // подставляем реальные значения
repeat
try
var y := f(x);
if y > y_max then y_max := y;
if y < y_min then y_min := y;
finally
x := x + dx;
end;
until x > x_max;
// оси координат, стрелочки сами если надо
Pen.Color := clSilver;
Line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);
Line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));
Circle(0, round(1 * scale), 1); //единичная метка
Circle(round(1 * scale), 0, 1); //единичная метка
x := x_min;
repeat
try
var y := f(x);
PutPixel(round(x * scale), round(y * scale), clBlueViolet);
finally
x := x + dx;
end;
until x > x_max;
end.
- 01.01.1970 00:00
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.