Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Brunhilda
4 года назад
7
Задача: задано уравнение прямой.Построить на экране эту прямую. Pascal (материал 11 класса)
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Здравомыслящий
[6]
4 года назад
0
0
<span>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.</span>
Отправить
Читайте также
Ввести число а и посчитать по формуле а+100.Программа Microsoft Visual C++
Ирина Степановна [208]
#include <iostream>
using namespace std;
int main()
{
int a = 0;
cin >> a;
a += 100;
cout << a << endl;
}
0
0
11 месяцев назад
Найти сумму пяти наименьших чисел массива с помощью сортировки массива.
Игоряха80
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Сумма первых пяти минимальных ',a.Sorted.Take(5).Sum)
end.
<u><em>Тестовое решение</em></u>
n= 15
63 53 44 40 29 47 56 55 58 73 56 42 62 95 84
Сумма первых пяти минимальных 202
0
0
10 месяцев назад
Переведите число 62 из десятичной системы счисления в двоичную систему счисления. В ответе напишите полученное число.Указывать о
Serezhka88
Ответ: 1 1 1 1 1 0
Первый разряд — 1
Второй разряд — 2
Третий разряд — 4
Четвертый разряд — 8
Пятый разряд — 16
Шестой разряд — 32
Складываем разряды. Получаем 62.
Такая же логика действует и в обратном направлении.
0
0
3 года назад
Запиши число 14364 в развёрнутом виде, начиная со старшего разряда.
2Александр1
Ответ:
1 * 10^4 + 4 * 10^3 + 3 * 10^2 + 6 * 10^1 + 4 * 10^0
Объяснение:
0
0
4 года назад
Прочитать ещё 2 ответа
Используя жёсткий цикл решите задачу. Выведите на экран все числа от -30 до 50 которые делятся на 3 и на 4.
rezeda999
Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48
0
0
1 год назад
Смотрите также:
Для хранения графического изображения, занимающего весь экран монитора с разрешением 2048 х 1536 пикселей и палитрой из 1024 цве
6
·
1 ответ
1. Из-за пыли части компьютера не могут достаточно охлаждаться, перегреваются и выходят из строя. 2. Части компьютера при работе
7
·
1 ответ
Срочно!!! Помогите пожалуйста!!!64 МБайт=? КБайт40960Бит=? Байт9654КБайт= ?МбайтСколько байтов в сообщении размером 256 бит7
11
·
1 ответ
СОСТАВТЕ ПРОГРАМУ РИСОВАНИЯ ЗАМКА В PASCAL ABC 7 КЛАСС
12
·
2 ответа
Выполните задание на фото (40 баллов)
14
·
1 ответ
1. В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке:
11
·
1 ответ
Составьте алгоритм получения из числа 0 чила 50 содердащий не более 8 команд . У исполнителя 2 команды умножить на 2 и прибавить
7
·
1 ответ
Составить программу,которая по заданному а исследует корни уравнения 15(а*х-10)=60 и выводит на экран значение вычисленного корн
6
·
1 ответ
Объясните технологию создания компьютерной анимации
11
·
1 ответ
Помогите пожалуйста срочно!!!Укажите оператор, который надо использовать для вывода данных и перевода курсора в начало новой стр
10
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!