Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Aлександра
0 / 0 / 0
Регистрация: 21.05.2011
Сообщений: 6
1

Блок-схема

29.05.2011, 20:33. Просмотров 906. Ответов 1
Метки нет (Все метки)

program risynok;
uses graph;
var
gd,gm: integer;
begin
gm:=DETECT;
initgraph(gd,gm,'C:\BP\BGI\');
setfillstyle(8,4);
bar(0,0,655,495);
setfillstyle(0,3);
bar(5,5,635,475);
setfillstyle(0,1);
setcolor(1);
bar3d(150,150,400,350,50,true);
setcolor(3);
setlinestyle(3,4,3);
line(400,350,450,313);
line(150,150,200,113);
line(400,350,150,150);
line(450,313,200,113);
setcolor(10);
outtextxy(470,445,'Programm was made by');
outtextxy(470,455,'Student NF-10');
outtextxy(470,465,'Trofimova A.G..');
readln;
closegraph;
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2011, 20:33
Ответы с готовыми решениями:

Блок-схема
Может не сюда пишу, но надо нарисовать блок-схему для программы(сам пробовал,...

Блок-схема
Прошу помощи в составлении блок-схемы данной программы

блок-схема
помогите составить блок-схему к части программы Unit Umetod; interface...

блок-схема
помогите с блок-схемой uses crt; const n=8; type mas=array of real;...

блок-схема
program Z6; uses Crt; type cRecord = record Text: string; Count:...

1
WolfCF
3292 / 1354 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
29.05.2011, 21:17 2
Лучший ответ Сообщение было отмечено Aлександра как решение

Решение

Так правильнее.
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
program risynok;
uses graph;
var
gd,gm :integer;
begin
gm:=DETECT;
initgraph(gd,gm,'CBPBGI');
setfillstyle(8,4);
bar(0,0,655,495);
setfillstyle(0,3);
bar(5,5,635,475);
setfillstyle(0,1);
setcolor(1);
bar3d(150,150,400,350,50,true);
setcolor(3);
setlinestyle(3,4,3);
line(400,350,450,313);
line(150,150,200,113);
line(400,350,150,150);
line(450,313,200,113);
setcolor(10);
outtextxy(470,445,'Programm was made by');
outtextxy(470,455,'Student NF-10');
outtextxy(470,465,'Trofimova A.G..');
readln;
closegraph;
end.
1
Миниатюры
Блок-схема  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2011, 21:17

блок-схема
Program L; Var I,N : Integer; F : File Of String; S : String; Begin...

блок-схема
Помогите составить блок-схему к программе program ulitka; uses crt, graph;...

Блок-схема
Пожалуйста сделайте блок-схему по задаче: Program p_1; uses crt; const...


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

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

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