|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.05.2023, 12:49 | #1 |
Новичок
Джуниор
Регистрация: 05.05.2023
Сообщений: 4
|
Программирование
Помогите сделать блок-схему по коду программы . Program Kinetika;
Uses GraphABC; Type mas = array[1..1001, 1..3] of real; Var C:mas; i, j, x,y,n,k,d,xn,xk,yn,yk,xGR,yGR,xGR1, yGR1,color,o: integer; s:string; CA,CB,K1,dt,t,Mx,My:real; procedure Setka(x,y,d,n,k:integer); Var i, j: integer; Begin SetPenWidth(3); rectangle(x-3,y-3,x+d*5+154,y+d*10+14); SetPenWidth(1); SetPenStyle(psdot); for j:=0 to n-1 do begin for i:=0 to n do begin x:=54+i*32; y:=30+j*41; Rectangle(x,y,x+33,y+42); end; end; end; Procedure Osi; Var i: integer; begin TextOut(150,10,' Изменение концентрации '); o:=0; for i:=1 to 20 do begin if 20 mod 2 = 0 then o:=o+2; {i:= i+1;} Str(o,s); TextOut(45+i*18,445,s); end; for i:=0 to 1001 do begin Str(i*10,s); TextOut(25,435-i*42,s); end; end; Procedure Graphic; Var i, j: integer; color: System.Drawing.Color; begin xn:=54; xk:=710; yn:=60; yk:=444; K1:=0.4; //- Индивидуально для каждого задания по № варианта CA:=100; CB:=0; t:=0; dt:=0.1; for i:=1 to 101 do begin t:=t+0.1; C[i,1]:=t; CA:=CA+(-K1*CA)*dt; //Кинетические уравнения для реакции CB:=CB+(K1*CA)*dt; //А → B K1 - константа скорости C[i,2]:=CA; C[i,3]:=CB; end; SetPenWidth(2); SetPenStyle(psSolid); Mx:=(xk-xn)/(20-1); My:=(yk-yn)/(101-10); for j:=2 to 3 do begin if j=2 then color:=clRed; if j=3 then color:=clBlue; SetPenColor(color); for i:=1 to 100 do begin xGr:=xn+Round(mx*C[i,1]); yGr:=yk-Round(my*C[i,j]); Circle(xGr,yGr,3); end; end; end; Begin SetWindowSize(500,480); CenterWindow; MaximizeWindow; Setka(55,30,40,10,0); Osi; SetPenColor(clRed); Graphic; end. |
07.05.2023, 14:43 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Помогаю. Для начала - отформатировать текст, чтобы его читать кому-нибудь захотелось - теги CODE и отступы в помощь. А потом - спросить хотя бы у тёти Вики, как это делается. https://ru.wikipedia.org/wiki/Блок-схема
А когда наступит просветление - сюда, с криком "Получилось!". Ну а если нет - мож и найдётся добрая душа, что не пошлёт во ФРИЛАНС, а накорябает этих 5..7 фигурок. "Учиться, учиться, ещё раз, блин, повторяю - учиться! © наш Ильич Последний раз редактировалось digitalis; 07.05.2023 в 14:47. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
WEB-программирование | ghfgjh | Помощь студентам | 7 | 04.07.2015 00:18 |
программирование на c# | andrey1996 | Помощь студентам | 0 | 17.05.2015 15:30 |
XNA программирование игр на C# | sergeybr | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 30.06.2010 13:52 |
программирование | Brakus | Помощь студентам | 6 | 07.05.2009 00:51 |