Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

Помогите пожалуйста! Срочно нужен не сложный рисунок в Паскале, что то типа домика и дерева! Надо очень!

5-9 класс

Narmina1405 05 авг. 2013 г., 23:55:34 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Vadmus2013
06 авг. 2013 г., 2:39:51 (10 лет назад)

Давно ещё робота рисовал,код правда можно раз в 100 упростить,но мне лень.Может пригодится.

uses crt,graph;
var
gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
if graphresult <> 0 then closegraph else
begin
setcolor (7);
rectangle (300,60,340,100);
line (312,60,312,45);
line (327,60,327,45);
circle (312,40,5);
circle (327,40,5);
setcolor (10);
rectangle (295,65,300,90);
rectangle (340,65,345,90);
rectangle (310,75,315,70);
rectangle (325,75,330,70);
rectangle (310,85,330,90);
line (320,70,320,80);
line (297,67,297,88);
line (342,67,342,88);
line (314,85,314,90);
line (326,85,326,90);
putpixel (312,72,white);
putpixel (327,72,white);
line (310,100,310,110);
line (330,100,330,110);
line (310,110,275,110);
line (330,110,365,110);
setcolor (6);
line (275,110,275,175);
line (275,175,280,185);
line (280,185,285,175);
line (285,175,285,122);
line (285,122,294,122);
line (365,110,365,185);
line (365,185,362,185);
line (362,185,362,178);
line (362,178,360,178);
line (360,178,360,185);
line (360,185,356,185);
line (356,185,356,122);
line (356,122,347,122);
setcolor (3);
rectangle (294,122,347,200);
line (360,110,360,95);
circle (360,92,3);
line (280,110,280,95);
circle (280,92,3);
rectangle (310,122,330,200);
line (310,140,330,140);
line (310,180,330,180);
setcolor (darkgray);
circle (302,140,3);
circle (302,180,3);
circle (338,140,3);
circle (338,180,3);
setcolor (lightgray);
rectangle (278,122,280,160);
line (338,112,338,119);
line (340,112,340,119);
line (342,112,342,119);
line (363,140,363,160);
line (358,140,358,160);
line (347,200,347,210);
line (294,200,294,210);
line (294,210,220,240);
line (347,210,421,240);
line (220,240,220,258);
line (421,240,421,258);
line (220,240,421,240);
line (220,242,421,242);
arc (225,256,180,270,5);
arc (416,256,270,360,5);
line (225,261,416,261);
setcolor (brown);
circle (231,252,8);
circle (231,252,2);
circle (252,252,8);
circle (252,252,2);
circle (272,252,8);
circle (272,252,2);
circle (292,252,8);
circle (292,252,2);
circle (312,252,8);
circle (312,252,2);
circle (332,252,8);
circle (332,252,2);
circle (352,252,8);
circle (352,252,2);
circle (372,252,8);
circle (372,252,2);
circle (392,252,8);
circle (392,252,2);
circle (411,252,8);
circle (411,252,2);
setlinestyle (0,0,3);
line (300,202,300,210);
line (341,202,341,210);
setlinestyle (0,0,0);
setcolor (white);
line (302,204,339,204);
line (302,206,339,206);
line (302,208,339,208);
end;
readkey;
end.

 

Ответить

Другие вопросы из категории

№1

Выберите определение компьютерного вируса.
1)прикладная программа
2)системная программа
3)программа, выполняющая на компьютере несанкционированные действия
4)база данных
№2
как размножается программный вирус?
1)программа-вирус 1 раз копируется в теле другой программы
2) вирусный код неоднократно копируется в теле другой программы
3)программа-вирус прикрепляется у другой программе
4)вирусный код 1 раз копируется в теле другой программы
№3
выберите методы реализации антивирусной защиты
1)аппаратные и программные
2)программные,аппаратные и организационные
3)только программные
4)достаточно резервного копирования данных
№4
как работает антивирусная программа?
1)на ожидании начала вирусной атаки
2)на сравнении программных кодов с известными вирусами
3)на удалении зараженных файлов
4)на блокировании неизвестных файлов
№5
Назовите вспомогательные средства защиты от вирусов
№6
как называется специально написанная программа, которая может "приписывать" себя к другим программам для выполнения каких-либо вредных действий?
№7
назовите самый надежный тип антивирусных программ

Читайте также

Помогите пожалуйста срочно надо программа

Водится возраст человека вывести имеет ли право человека голосовать (<=18) если не имеет то вывести сколько лет ему надо подождать

Помогите пожалуйста срочно надо программа на англиском языке

Водится возраст человека вывести имеет ли право человека голосовать (>=18) если не имеет то вывести сколько лет ему надо подождать

помогите пожалуйста! никак не могу с ноутбука зайти в вконтакт, но с телефона получается.появляется (ну это у всех) введите свой e-mail (или

телефон) и пароль .я ввожу, нажимаю войти, потом появляется картинка и говорят "Введите код с картинки" (эту функцию я отключила несколько лет назад!!! ) ,ну я думаю, хорошо, я введу, подумаешь три буковки. ВОТ! После этого проблема. мне пишут " Лена, мы зафиксировали попытку взлома Вашей страницы. Не беспокойтесь, она в безопасности. Чтобы обезопасить Вашу страницу от злоумышленников и в будущем, мы просим Вас подтвердить привязку к телефону и придумать новый сложный пароль. " Ладно я ввожу свой номер телефона, чтоб мне пришел код активации. Раньше мне приходило вот это"Для активации услуги подтвердите Ваше согласие с правилами, Ответь ДА стоимость отправки смс на номер 4012 - 203.19"!!! А сейчас уже если я наберу номер ничего абсолютно не происходит. Ага! Еще чего, не буду я на них целых 200 рублей тратить! Помогите пожалуйста мне решить эту проблему
И еще кое что, когда мой брат или подруга тоже попытались зайти в ВК у них всеё было тоже самое
С телефона пароль меняла, но ничего не изменилось

Помогите пожалуйсто решить прошу очень срочно!!!!

1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;

2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.

3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.

Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!

ПОМОГИТЕ, ПОЖАЛУЙСТА)

ЭТО ПРАВДА ОЧЕНЬ НУЖНО И ЧЕМ БЫСТРЕЕ, ТЕМ ЛУЧШЕ)
Объясните, пожалуйста, как мне сделать эти номера)
У меня на компьютере все папки есть, которые требуют в заданиях ( я про каталог Антона Павловича Чехова и т.д.), но только я понятия не имею, как это делать:(
Объясните, пожалуйста, если не сложно, конечно)
ЭТО СРОЧНО НУЖНО)



Вы находитесь на странице вопроса "Помогите пожалуйста! Срочно нужен не сложный рисунок в Паскале, что то типа домика и дерева! Надо очень!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.