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

@damir_prog · Регистрация: 17.05.2010

Студворк — интернет-сервис помощи студентам

Ни разу не чертил блок схема графики паскаль!!! прошу помочь начертить блок схему =)

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 минут

@Puporev · 06.10.2010, 18:42

Я поправил программу, а то в ней сразу неточность была, да еще ты полазил.

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.

Во вложении блок-схема по этому коду.

@damir_prog · 06.10.2010, 18:53 **[ТС]**

Puporev, вы мне писали уже эту порграмму я уже обращался!!!
но в задаче у меня написана что уже есть горизонтальная линия в середине экрана оно дано уже.... а в вашей задаче как понимаю она вводиться)))
ну я на учебе решил задачу как у меня написано все получилось !!! спасибо за то что помогли))
но есть вопрос line...circle...rectangle.. ихние блок схемы будут как процедуры??? или же квадрат простые????

@Puporev · 06.10.2010, 18:56

Сообщение от damir_prog

ихние блок схемы будут как процедуры???

Как у меня нарисовано, прямоугольник с двойными боками, называется предопределенный процесс.

@damir_prog · 06.10.2010, 18:57 **[ТС]**

Puporev, спасибо все понятно

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@damir_prog 1 / 1 / 0 Регистрация: 17.05.2010 Сообщений: 62
	06.10.2010, 18:53 [ТС]
	Puporev, вы мне писали уже эту порграмму я уже обращался!!! но в задаче у меня написана что уже есть горизонтальная линия в середине экрана оно дано уже.... а в вашей задаче как понимаю она вводиться))) ну я на учебе решил задачу как у меня написано все получилось !!! спасибо за то что помогли)) но есть вопрос line...circle...rectangle.. ихние блок схемы будут как процедуры??? или же квадрат простые???? 0

@damir_prog 1 / 1 / 0 Регистрация: 17.05.2010 Сообщений: 62
	06.10.2010, 18:57 [ТС]
	Puporev, спасибо все понятно 0