Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2012, 12:22   #1
студент АГНИ
 
Регистрация: 25.05.2011
Сообщений: 5
По умолчанию Pascal, графика, нужно построить блок-схему

суть программы состоит в построении геометрических фигур. вот листинг. ну или хотя бы подскажите как в блок схеме обозначить процедуры правильно
Код:
uses crt,graph;
const
   triangle: array[1..4] of pointtype=   ((x:50; y:160), (x:120; y:80),
   (x:190; y:160), (x:50; y:160));

   pyati: array[1..6] of pointtype=   ((x:455; y:160), (x:440; y:105),
   (x:485; y:80), (x:530; y:105),
   (x:515; y:160), (x:455; y:160));
var gd,gm,h,m,t: integer;
procedure figuri;
begin
   setcolor (15);
   setfillstyle (1,Random(GetMaxColor));
   fillpoly(4,triangle);
   setfillstyle (1,Random(GetMaxColor));
   fillpoly(6,pyati);
   setfillstyle (1,Random(GetMaxColor));
   fillellipse(110,400,40,40);
   setcolor (Random(GetMaxColor));
   setfillstyle (1,Random(GetMaxColor));
   setcolor (15);
   rectangle (439,359,561,431);
   bar(440,360,560,430);
end;
procedure dannie;
begin
   
writeln('Какое количество раз надо поменять цвет?');
   writeln('Введите целое число не более 20 и нажмите Enter');
   read (m);
   writeln;
   writeln('Введите время задержки цветов?');
   writeln('(введите целое число не более 1500, мс) и нажмите ENTER');
   read (t);
   writeln;
end;
begin
   dannie;
    if (m>=20) or (t>=1500) then
     begin
     writeln('Это будет слишком долго');
     writeln('‚введите значение поменьше');
     writeln;
     dannie
     end;
   gd:= detect; initgraph(gd,gm,'');
   repeat
    figuri;
    h:=h+1;
    delay(t);
   until h>m;
   readln;
end.
вот моя блок схема препод сказал что не правильно
Вложения
Тип файла: doc dannie - копия.doc (60.0 Кб, 13 просмотров)
студент АГНИ вне форума Ответить с цитированием
Старый 20.05.2012, 12:52   #2
Vlt
Пользователь
 
Регистрация: 18.05.2012
Сообщений: 27
По умолчанию ответ

Цитата:
Сообщение от студент АГНИ Посмотреть сообщение
суть программы состоит в построении геометрических фигур. вот листинг. ну или хотя бы подскажите как в блок схеме обозначить процедуры правильно
Код:
uses crt,graph;
const
   triangle: array[1..4] of pointtype=   ((x:50; y:160), (x:120; y:80),
   (x:190; y:160), (x:50; y:160));

   pyati: array[1..6] of pointtype=   ((x:455; y:160), (x:440; y:105),
   (x:485; y:80), (x:530; y:105),
   (x:515; y:160), (x:455; y:160));
var gd,gm,h,m,t: integer;
procedure figuri;
begin
   setcolor (15);
   setfillstyle (1,Random(GetMaxColor));
   fillpoly(4,triangle);
   setfillstyle (1,Random(GetMaxColor));
   fillpoly(6,pyati);
   setfillstyle (1,Random(GetMaxColor));
   fillellipse(110,400,40,40);
   setcolor (Random(GetMaxColor));
   setfillstyle (1,Random(GetMaxColor));
   setcolor (15);
   rectangle (439,359,561,431);
   bar(440,360,560,430);
end;
procedure dannie;
begin
   
writeln('Какое количество раз надо поменять цвет?');
   writeln('Введите целое число не более 20 и нажмите Enter');
   read (m);
   writeln;
   writeln('Введите время задержки цветов?');
   writeln('(введите целое число не более 1500, мс) и нажмите ENTER');
   read (t);
   writeln;
end;
begin
   dannie;
    if (m>=20) or (t>=1500) then
     begin
     writeln('Это будет слишком долго');
     writeln('‚введите значение поменьше');
     writeln;
     dannie
     end;
   gd:= detect; initgraph(gd,gm,'');
   repeat
    figuri;
    h:=h+1;
    delay(t);
   until h>m;
   readln;
end.
вот моя блок схема препод сказал что не правильно
Блок схема точно не правильна.
Где массив, где условие, ввод данных и т.п?
Да и с кодом по моему проблемки имеются…..
Vlt вне форума Ответить с цитированием
Старый 26.05.2012, 10:57   #3
студент АГНИ
 
Регистрация: 25.05.2011
Сообщений: 5
По умолчанию

но программа то работает,
хотябы подскажите как обозначить процедуры в блок-схеме
студент АГНИ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построить блок - схему katyuha_e Паскаль, Turbo Pascal, PascalABC.NET 9 06.05.2012 21:51
Построить блок схему Антон) Паскаль, Turbo Pascal, PascalABC.NET 8 21.11.2011 16:52
Построить блок - схему NewArtist Помощь студентам 1 17.06.2011 21:54
построить блок схему тт kresik Помощь студентам 0 08.06.2011 17:12
Построить блок - схему DeadAir Паскаль, Turbo Pascal, PascalABC.NET 1 03.04.2010 15:02