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

блок схема!!!

06.10.2010, 18:06. Показов 1045. Ответов 4
Метки нет (Все метки)

Ни разу не чертил блок схема графики паскаль!!! прошу помочь начертить блок схему =)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt,graph;
var:xc,yc,r,yp,gd,gm,l:integer;
 begin
clrscr;
writeln('vvesti koordinaty centra i radius');
readln(xc,yc,r);
gd:=0
initgraph(gd,gm,'');
line(0,getmaxY div 2,getmaxX,getmaxY div 2);
set color (14);
circle(xc,yc,r);
l:=(getmaxY div 2 - yc);
begin
if l>r div 2 then
 begin
circle(xc,yc+2*l,r);
end
 else
setfillstyle(1,yellow);
readln
end;
end.
Добавлено через 14 минут
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2010, 18:06
Ответы с готовыми решениями:

Блок-Схема
Прошу.. Напишите пожалуйста блок-схему. procedure One; var sum,i, count: integer; ...

Блок-схема
Доброго времени суток, кто-нибудь, помогите с блок-схемой к программе, очень срочно! Заранее...

блок-схема
помогите сделать блок-схему uses crt; var a: arrayof integer; b: arrayof integer;...

Блок-схема
uses crt; var s,s1,s2:string; i,t,r:integer; begin clrscr; writeln('Ââåñòè ñòðîêó:...

4
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
06.10.2010, 18:42 2
Я поправил программу, а то в ней сразу неточность была, да еще ты полазил.
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
uses crt,graph;
var xc,yc,r,yp,gd,gm:integer;
 begin
clrscr;
writeln('vvesti koordinaty centra i radius');
readln(xc,yc,r);
writeln('vvesti koordinaty Y linii');
readln(yp);
gd:=0;
initgraph(gd,gm,'');
line(0,yp,getmaxX,yp);
setcolor (14);
circle(xc,yc,r);
outtextXY(xc-50,yc,'Okruznost 1');
if abs(yc-yp)>r then
 begin
  setcolor(13);
  circle(xc,getmaxY-yc,r);
  outtextXY(xc-90,getmaxY-yc,'Simmetrichnaya okruznost');
 end
else
 begin
  setfillstyle(1,14);
  floodfill(xc,yc,14);
 end;
readln
end.
Во вложении блок-схема по этому коду.
0
Вложения
Тип файла: rar Doc1.rar (35.9 Кб, 37 просмотров)
1 / 1 / 0
Регистрация: 17.05.2010
Сообщений: 62
06.10.2010, 18:53  [ТС] 3
Puporev, вы мне писали уже эту порграмму я уже обращался!!!
но в задаче у меня написана что уже есть горизонтальная линия в середине экрана оно дано уже.... а в вашей задаче как понимаю она вводиться)))
ну я на учебе решил задачу как у меня написано все получилось !!! спасибо за то что помогли))
но есть вопрос line...circle...rectangle.. ихние блок схемы будут как процедуры??? или же квадрат простые????
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
06.10.2010, 18:56 4
Цитата Сообщение от damir_prog Посмотреть сообщение
ихние блок схемы будут как процедуры???
Как у меня нарисовано, прямоугольник с двойными боками, называется предопределенный процесс.
0
1 / 1 / 0
Регистрация: 17.05.2010
Сообщений: 62
06.10.2010, 18:57  [ТС] 5
Puporev, спасибо все понятно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.10.2010, 18:57

Блок-схема
Помогите, пожалуйста!) Мне нужна блок схема по массиву, а именно отсортированый массив, только в...

Блок-схема
Народ, помогите с блок-схемой. const maxSubstr = 3; NA = -1; type subR = record ...

Блок-схема
program sort_roz; uses crt; type roz=(a,v,g,av,kt,yu); const sor:array of string=...

Блок-схема
Помогите выполнить блок -схему по задаче. Постановка задачи: Дана матрица А(4,4) 1) Найти сумму...

Блок-схема
нужно составить блок схему по этому коду program mas; var A:array of integer; {переменная массива}...

Блок-схема.
program t2; type mas=array of integer; var i,j,n,f:integer; a:mas; ...


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

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

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