сервис вопросов и ответовЗадача: задано уравнение прямой.Построить на экране эту прямую. Pascal (материал 11 класса)
10-11 класс|
|
57047
18 дек. 2016 г., 6:16:49 (7 лет назад)
Arsusha
18 дек. 2016 г., 7:34:28 (7 лет назад)
uses graph;
var xc,yc,m,x1,y1:integer;
x,y:real;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=yc div 2;
line(5,yc,getmaxX-5,yc);
line(xc-m,yc+3,xc-m,yc-3);
outtextXY(xc-m,yc+10,'-1');
outtextXY(xc+5,yc+10,'0');
line(xc+m,yc+3,xc+m,yc-3);
outtextXY(xc+m,yc+10,'1');
line(xc,5,xc,getmaxY-5);
line(xc-3,yc-m,xc+3,yc-m);
outtextXY(xc-10,yc-m,'1');
line(xc-3,yc+m,xc+3,yc+m);
outtextXY(xc-15,yc+m,'-1');
setcolor(12);
line(xc-m,yc,xc,yc-m);
line(xc,yc-m,xc+m,yc);
line(xc+m,yc,xc,yc+m);
line(xc,yc+m,xc-m,yc);
x:=-4;
while x<=4 do
begin
y:=0.52*x+0.18;
x1:=xc+round(x*m);
y1:=yc-round(y*m);
putpixel(x1,y1,14);
x:=x+0.01;
end;
readln
end.
Ответить
Другие вопросы из категории
Одной из основных функций графического редактора является: 1)Хранение кода изображения 2)Создание изображения 3)Просмотр и ввод содержимого видеопамяти
4)Ввод изображения
Помогите пожалуйста.
1. Составить проект для исполнителя "Рыжий кот", выполнив который, он нарисует прямоугольник со сторонами 100 и 50, и квадрат со стороной 75. Соседние стороны прямоугольника должны быть разного цвета, а противоположные - одинакового. Цвет сторон квадрата должен отличаться от цветов сторон прямоугольника. Квадрат и прямоугольник не должны пересекаться.
2. Составить проект, в котором исполнитель изменяет костюмы из папки Fantasy. Составьте сценарий этого проекта. Используйте звук, которые соответствуют выбранным вами костюмам.
Читайте также
Для вывода на экран произвольной символьной строки нужно в команде вывода записать эту строку в апострофах. Например, по команде вывод "ОТВЕТ"
на экран выведется слово ОТВЕТ.
Определите, какая задача решается по следующему алгоритму:
алг Задача-6
вещ X
нач ввод X
если Х < 0
то вывод "отрицательное число"
иначе вывод "положительное число"
кв
кон
1. Задайте массив из 10 элементов с помощью датчика целых случайных чисел. Найдите сумму четных элементов массива. Выведите на экран исходный массив и
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
Решить задачу на языке Паскаль. Определить , лежит ли точка с известными координатами на вертикальном отрезке прямой с заданными координатами концов.
Результаты вывести на экран.
Написать программу, которая считает и выводит на экран сумму всех целых чисел из промежутка [A, B]. Числа A и B задает пользователь.
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5
Написать программу, которая генерирует и выводит на экран массив из 10 случайных чисел в диапазоне от -100 до 100, меняет местами первую и вторую
половину массива и выводит новый массив на экран.
Вы находитесь на странице вопроса "Задача: задано уравнение прямой.Построить на экране эту прямую. Pascal (материал 11 класса)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.