сервис вопросов и ответовНужен какойнибудь рисунок на языке турбо-паскаль,)произвольный рисунок,)помогите пожалуйста,желательно с обьяснением)заранее спасибо)ну только рисунок
10-11 класс|
|
чтобы был не какой нибудь сложный,а простой типо обезьяны)благодарю)
Aleks55666
01 мая 2013 г., 22:00:33 (11 лет назад)
Buhalovkina
01 мая 2013 г., 22:46:28 (11 лет назад)
program Picture;
uses Graph;
const
PathToDriver = 'D:\BP\bgi'; {подставьте свой путь к каталогу с файлами *.bgi}
var Gd,Gm : Integer;
begin
DetectGraph(Gd, Gm); {определим драйвер и режим}
InitGraph(Gd, Gm, PathToDriver); {проинициализируем графику}
if GraphResult <> grok then Halt(1); {если ошибка, завершим работу}
SetViewPort(0,0,639,349,ClipOn); {установим область рисования}
ClearViewPort; {очистим область рисования}
{для рисования используем следующие процедуры}
{Circle(X,Y,R) - рисует окружность}
{MoveTo(X,Y) - перемещает указатель в заданную точку}
{LineTo(X,Y) - проводит линию от указателя до заданной точки,}
{ указатель перемещает в конец линии}
{Rectangle(X1,Y1,X2,Y2) - рисует прямоугольник}
{PutPixel(X,Y,Color) - ставит точку в позиции с заданным цветом}
{человечек}
Circle(170, 225, 5);
MoveTo(170, 230);
LineTo(170, 260);
MoveTo(160, 240);
LineTo(170, 250);
LineTo(180, 240);
MoveTo(160, 270);
LineTo(170, 260);
LineTo(180, 270);
{домик}
MoveTo(230, 270);
LineTo(230, 320);
LineTo(290, 320);
LineTo(290, 270);
LineTo(260, 220);
LineTo(230, 270);
LineTo(290, 270);
MoveTo(250, 320);
LineTo(250, 290);
LineTo(270, 290);
LineTo(270, 320);
PutPixel(265, 305, White);
{дерево}
Circle(345, 175, 45);
Rectangle(340, 220, 350, 320);
ReadLn; {задердка для просмотра}
CloseGraph; {выход из графического режима}
end.
Ответить
Другие вопросы из категории
Согласно взглядам ряда ученых (О. Тофлер, Белл, Масуда и др.) в «информационном обществе»: a)большинство работающих будет занято производством,
хранением и переработкой информации, знаний; будут решены проблемы информационного и экологического кризиса, реализованы гуманистические принципы управления социумами;
b)человек станет послушным объектом манипуляции со стороны средств массовой информации;
c)власть будет принадлежать «информационной элите», осуществляющей жестокую эксплуатацию остальной части населения и контроль частной жизни граждан;
d)человек станет придатком сверхмощных компьютеров; управление общественным производством и распределением материальных благ будет осуществляться на основе централизованного планирования.
Решить логическую задачу. Виновник ночного дорожно-транспортного происшествия скрылся с места аварии.
Первый свидетель сказал работникам ГАИ, что это были "Жигули", первая цифра номера машины — единица.
Второй свидетель сказал, что машина была марки "Москвич", а номер начинался с семёрки.
Третий свидетель заявил, что машина была иностранная, номер начинался не с единицы.
При дальнейшем расследовании выяснилось, что каждый из свидетелей правильно указал либо только марку машины, либо только первую цифру номера.
Какой марки была машина и с какой цифры начинался номер?
Читайте также
Помогите, пожалуйста!!!
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
Нужно написать программу на языке Турбо Паскаль, которая бы вычисляла значение выражения по формуле
e^(x+y) - степень!
Заранее спасибо
Помогите, пожалуйста)))
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
1)Вычислить значения функции y=4*x^3-2*x^2+5 для x, изменяющегося от -3 до 1 с шагом 0,1 на языке ПАСКАЛЬ!!СРОЧНОО ЗАВТРА ЭКЗАМЕН РЕБЯЯТКИ!
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вы находитесь на странице вопроса "Нужен какойнибудь рисунок на языке турбо-паскаль,)произвольный рисунок,)помогите пожалуйста,желательно с обьяснением)заранее спасибо)ну только рисунок", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.