Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.02.2017 04:59
- Информатика
- remove_red_eye 12945
- thumb_up 23
Ответы и объяснения 1
Отрисовку не проверяла, но ошибка указанная в рисунке решена
program qq;
const
a = 320;
b = 250;
k = 50;
xmin = -5;
xmax = 5;
ymax = 10;
h = 0.01;
var
x, y: real;
w, xe, ye: integer;
begin
w := round((xmax - xmin) * k);
line(a - 200, b, a + w, b);
line(a, k, a, 2 * b);
x := xmin;
while (x <= xmax) do
begin
y := 1 / (x * x * x);
if abs(y) < ymax then begin
xe := a + round(k * x);
ye := b - round(k * y);
point(xe, ye);
end;
x := x + h;
end;
pen(1, 1, 1, 1);
moveto(250, 40);
textcolor(1, 1, 1);
brush(0, 25, 25, 0);
font(10, 0, 60);
writeln('y');
pen(1, 1, 1, 1);
moveto(450, 200);
textcolor(1, 1, 1);
brush(0, 25, 25, 0);
font(10, 0, 60);
writeln('x');
end.
- 26.02.2017 06:01
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.