Рекурсивные графические алгоритми(Блок схеми))

@prodsgn · Регистрация: 25.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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Program Koch;
Uses    
Crt,graph,Graphs;
var
ch:char;
min:word;
procedure rotate_plus(var x,y:integer);
var
t:integer;
begin
t:=x;
x:=y;
y:=-t;
end;
procedure rotate_minus(var x,y:integer);
var
t:integer;
begin
t:=x;
x:=-y;
y:=t;
end;
procedure draw(x,y:integer;length:word);
var
t:word;
begin
if keypressed then exit;
if length >= min then
begin
if length>=32 then
setlinestyle(solidln,0,thickwidth)
else
setlinestyle(solidln,0,normwidth);
t:=length div 4;
setcolor(white);
draw(x,y,t);
setcolor(yellow);
rotate_plus(x,y);
draw(x,y,t);
setcolor(magenta);
rotate_minus(x,y);
draw(x,y,t);
rotate_minus(x,y);
setcolor(red);
draw(x,y,t);
setcolor(cyan);
draw(x,y,t);
rotate_plus(x,y);
setcolor(green);
draw(x,y,t);
setcolor(blue);
rotate_plus(x,y);
draw(x,y,t);
setcolor(lightgray);
rotate_minus(x,y);
draw(x,y,t);
end
else
linerel(length * x,length *y);
end;
begin
open_graph;
min:=256;
while min >=4 do
begin
moveto(20,200);
draw(1,0,512);
outtextxy(200,460,'Press <SPACE>');
ch:=readkey;
min:=min div 4;
cleardevice;
end;
close_graph;
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
Program Cantor;
 
Uses
       Crt,graph,graphs;
 
Var
       Ch:Char;
 
Procedure  Draw(x,y:integer;size:word);
 
Var
       s:word;
 
Procedure  Solid_rectangle(x,y,size:integer);
 
Begin
       Rectangle(x-size, y-size, x+size, y+size);
       Bar(x-size+1, y-size+1, x+size-1, y+size-1);
       end;
 
Begin
       if size > 1 then
 
Begin
       s:= size div 2;
       draw(x-size, y+size, s);
       draw(x-size, y-size, s);
       draw(x+size, y+size, s);
       draw(x+size, y-size, s);
 
end;
       solid_rectangle(x,y,size);
end;
Begin
 
       open_graph;
       setfillstyle(solidfill,black);
       setcolor(yellow);
       draw(getmaxX div 2 , getmaxY div 2 , getmaxY div 4);
       outtextXY (256,235,'Press <ENTER>');
       readln;
       close_graph;
 
       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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Program Peano;
Uses Crt,graph,graphs;
Var
 
    ch:char;
    x,y:integer;
 
Procedure draw_z(n:word;plus:boolean);
Procedure rotate(plus:boolean);
Var
    t:integer;
begin
    if plus then
begin
    t:=x;
    x:=-y;
    y:=t;
end
    else
begin
    t:=x;
    x:=y;
    y:=-t;
end;
end;
begin
    if n > 0 then
begin
    draw_z(n-1,plus);
    linerel(x,y);
    draw_z(n-1,not plus);
    linerel(x,y);
    draw_z(n-1,plus);
    rotate(plus);
    linerel(x,y);
    rotate(plus);
    draw_z(n-1,not plus);
    linerel(x,y);
    draw_z(n-1, plus);
    linerel(x,y);
    draw_z(n-1,not plus);
    rotate(not plus);
    linerel(x,y);
    rotate(not plus);
    draw_z(n-1,plus);
    linerel(x,y);
    draw_z(n-1,not plus);
    linerel(x,y);
    draw_z(n-1,plus);
end;
end;
begin
    Open_graph;
   moveto(0,0);
   x:=5;
   y:=0;
   draw_z(4,true);
   outtextxy(500,460,'Press <ENTER>');
   readln;
   close_graph;
   end.

@Angel-dm · 25.05.2010, 21:14

Смотри все в архивах лежит:
-для первой
Program1.pas_.rar
-для второй
Program2.pas_.rar
-для третьей
Program3.pas_.rar
Обращайся всегда рад помочь

@prodsgn · 25.05.2010, 22:24 **[ТС]**

Cпасибо))) Огромное!!

Добавлено через 6 минут
А ети блок схеми точно правильные ?)

@Angel-dm · 25.05.2010, 23:42

Должны быть да, так как в течении месяца ни одной жалобы ко мне по их созданию небыло.

@prodsgn · 26.05.2010, 15:01 **[ТС]**

Посмотри еще пожалуйста програму))

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
47
48
49
50
51
52
53
54
55
56
57
Program progonka;
Uses crt;
const
N=10;
var r1,r2,t,h,c,c1,c2,d,d1,d2,a,b,x:real;
i,i1,j: integer;
y,p1,q1:array [1..N+1] of real;
function p(x: real):real;
begin
p:=exp(x);
end;
function f(x: real):real;
begin
f:=sqr(x);
end;
function q(x: real):real;
begin
q:=x/2;
end;
begin
writeln ('uvedit a,b');
readln (a,b);
writeln ('uvedit stali, yaki vxodyat v granychni umovy na livomu kinci vidrizka');
readln (c1,c2,c);
writeln ('uvedit stali, yaki vxodyat v granychni umovy na pravomu kinci vidrizka');
readln (d1,d2,d);
h:=(b-a)/n;
writeln('krok=',h:8:4);
r1:=h*h;
r2:=h/2;
p1[1]:=-c2/(c1*h-c2);
for i:=1 to N do
begin
i1:=2*i;
q1[1]:=-c*h*p1[1]/c2;
x:=a;
for i:=2 to N do
begin
i1:=i-1;
x:=x+h;
t:=1-p(x)*r2;
p1[i]:=(t-2)/(q(x)*r1+t*p1[i1]-2);
q1[1]:=(f(x)*r1-t*q1[i1])*p1[i]/(t-2);
 
end;
end;
p1[N+1]:=0;
q1[N+1]:=(d*h+d2*q1[N])/(d1*h+d2-d2*p1[N]);
y[N+1]:=q1[N+1];
for j:=N downto 1 do
y[j]:=p1[j]*y[j+1]+q1[j];
for j:=1 to N+1 do
begin
x:=a+(j-1)*h;
writeln ('x=',x:8:4,' Y=',y[J]:8:4);
end;
end.

@Angel-dm · 26.05.2010, 16:23

Посмотри еще пожалуйста програму))

Вот смотри что получилось------->>>>

@prodsgn · 26.05.2010, 21:35 **[ТС]**

СПС))))

Добавлено через 1 час 18 минут
Если тебе будет нечего делать можеш мне еще помочь ))

Есть Модуль Меню і мне надо те первие 3 програми об'єденить чтоб они както запускались одним файлом. Но Пока Добился Виполнения через ето меню одной из програм Koch

В раздел переменных вставил

Pascal
1
2
3
x1,y1,x2,y2:integer;
    sim:char;
    nom:integer;

И в конце програми После процедури Сlose_Graph вставил

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
pauza;
     end;
BEGIN
        zastavka;
        while true do
        begin
              menu;
              gotoxy(71,20);
              read(nom);
              case nom of
                   1:zastavka;
                   2:koch;
                   5:HALT;
              END;
        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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Unit MODUL;
interface
uses Crt;
var sim:Char;
 
PROCEDURE pauza;
PROCEDURE ramka(x1,y1,x2,y2:integer);
PROCEDURE zastavka;
PROCEDURE menu;{Text osnovnoho menu}
 
Implementation
PROCEDURE pauza;
  BEGIN
        GOTOXY(30,23);
        WRITE('Dlja prodovgennja robotu natusnit ENTER');
        repeat until keypressed;
        sim:=readkey;
        GOTOXY(10,23);
  END;
PROCEDURE  ramka(x1,y1,x2,y2:integer);
   VAR i:integer;
   BEGIN
     GOTOXY(x1,y1);
     WRITE('Й');                    {ALT+201}
     FOR i:=1 TO x2-x1-1 DO
       WRITE('Н');                  {ALT+205}
     WRITE('»');                    {ALT+187}
     FOR i:=1 TO y2-y1-1 DO
     BEGIN
       GOTOXY(x2,y1+i);WRITE('є');  {ALT+186}
       GOTOXY(x1,y1+i); WRITE('є'); {ALT+186}
     END;
     GOTOXY(x1,y2);WRITE('И');      {ALT+200}
     FOR i:=1 TO x2-x1-1 DO
        WRITE('Н');                 {ALT+205}
     WRITE('ј');                    {ALT+188}
   END;
 
PROCEDURE zastavka;
   BEGIN
        textbackground(black);
        textcolor(red);
        clrscr;
        GOTOXY(30,10);WRITE('Kursovui proekt na temu');
        GOTOXY(30,12);WRITE('Rekursuvni zobrazhennya');
        GOTOXY(30,14);WRITE('Vukonav stydent hrypu RPZ-118');
         GOTOXY(30,16);WRITE('Beloborodov Andriy');
        GOTOXY(30,18);WRITE('Data vukonannja ..  ..  ....');
        textcolor(red+blink);
     pauza;
   END;
 
PROCEDURE menu;{Text osnovnoho menu}
   BEGIN
        textbackground(9);
        textcolor(2);
        CLRSCR;
        ramka(20,4,60,16);
        GOTOXY(22,6);WRITELN('1.Pro programy');
        GOTOXY(22,8);WRITELN('2.Koch');
        GOTOXY(22,10);WRITELN('3.Cantor');
        GOTOXY(22,12);WRITELN('4.Peano');
        GOTOXY(22,14);WRITELN('5.Vuhid');
        GOTOXY(20,20);
        WRITELN('Vkagit nomer pynkty ta natusnit ENTER');
        RAMKA(70,19,75,21);
        GOTOXY(71,20);
   END;
end.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Angel-dm 113 / 110 / 33 Регистрация: 21.12.2009 Сообщений: 322
	25.05.2010, 21:14
	Смотри все в архивах лежит: -для первой Program1.pas_.rar -для второй Program2.pas_.rar -для третьей Program3.pas_.rar Обращайся всегда рад помочь 1

@prodsgn 0 / 0 / 0 Регистрация: 25.05.2010 Сообщений: 13
	25.05.2010, 22:24 [ТС]
	Cпасибо))) Огромное!! Добавлено через 6 минут А ети блок схеми точно правильные ?) 0

@Angel-dm 113 / 110 / 33 Регистрация: 21.12.2009 Сообщений: 322
	25.05.2010, 23:42
	Должны быть да, так как в течении месяца ни одной жалобы ко мне по их созданию небыло. 1