Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 5
1

Составить программу, чтобы вышел логотип по условию

21.05.2010, 00:44. Показов 1051. Ответов 2
Метки нет (Все метки)

исходный текст
можете помогти скласти програму, яка б в графічному режимі виводила логотим вигаданий, що має містити назву фірми, кілька геометричних фігур та ліній різних кольорів, зізними типами заливки і контурів,логотип має бути в рамці.


помогите составить программу, которая в графическом режиме выводила придуманный логотип, который содержит название фирмы, несколько геометрических фигур и линий разных цветов, с разными типами заливки т контуров, логотип должен быть в рамке
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2010, 00:44
Ответы с готовыми решениями:

Исправить программу, чтобы она соответствовала условию
В файле исходных данных находится одномерный массив. Нужно сделать так чтобы формировался новый...

Как составить программу по данному условию:
Принадлежность точки кругу Необходимо определить, принадлежит ли заданная точка заданному кругу....

Составить программу клавиатурного почерка по условию
Здравствуйте, я вообще недавно начал знакомиться с С++ а мне задал задание препод по...

Составить программу поиска чисел, удовлетворяющих условию
Здравствуйте! помогите пожалуиста решить задачу=((( Некоторые пятизначные числа,составленные из...

__________________
2
212 / 105 / 34
Регистрация: 17.10.2009
Сообщений: 174
21.05.2010, 01:02 2
Лучший ответ Сообщение было отмечено Богуслава как решение

Решение

Сейчас попробую сделать

Добавлено через 11 минут
Вот моя:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Emblema;
uses Crt, Graph;
var driver, mode:innteger;
begin
clrscr;
driver:=detect;
initgraph(driver,mode,'');
setbkcolor(0);
setcolor(3);
rectangle(100,0,300,200);
setfillstyle(1,3);
floodfill(200,100,3);
setcolor(14);
circle(200,100,100);
setfillstyle(1,14);
floodfill(200,100,14);
setcolor(0);
circle(200,100,100);
settextstyle(0,0,3);
outtextxy(135,95, 'Lviv');
readln
end.
Здесь на форуме нашел такую прогу:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt,graph;
procedure Luchi(x1,y1:integer);
var i:integer;
    a:real;
    p:array[1..33] of Pointtype;
begin
a:=-1;
for i:=1 to 32 do
  begin
    if i mod 2=0 then
      begin
        p[i].x:=x1+round(100*cos(a*pi/180));
        p[i].y:=y1-round(100*sin(a*pi/180));
      end
    else
      begin
        p[i].x:=x1+round(50*cos(a*pi/180));
        p[i].y:=y1-round(50*sin(a*pi/180));
      end;
    a:=a+11.25;
  end;
p[33].x:=p[1].x;
p[33].y:=p[1].y;
SetColor(3);
drawpoly(33,p);
Setfillstyle(1,3);
fillpoly(33,p);
end;
var  gd,gm,x0,y0:integer;
begin
clrscr;
InitGraph(gd,gm,'');
Setbkcolor(15);
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setfillstyle(1,12);
bar(x0-150,y0-150,x0+150,y0+150);
setfillstyle(1,9);
bar(x0-140,y0-140,x0+140,y0+140);
Luchi(x0,y0);
Setcolor(3);
Circle(x0,y0,80);
Setfillstyle(1,3);
fillellipse(x0,y0,80,80);
readln
end.
0
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 5
02.06.2010, 20:26  [ТС] 3
Пасиб)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2010, 20:26

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Поправить программу с массивами, чтобы она соответствовала заданному условию
как изменить программу, чтобы не было вот этой строчки write('Количество элементов: '); ...

Составить программу согласно условию. Присвоить пременной f значение 1
Составить программу согласно условию. Присвоить пременной f значение 1, если только два числа из...

Составить программу для нахождения времени по заданному условию
procedure TForm2.Button1Click(Sender: TObject); var m,n,v:real; k:integer; begin...

Составить программу подсчета количества элементов матрицы, удовлетворяющих условию
Дана вещественная матрица А(N,M). Составить программу подсчета количества элементов матрицы,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.