|
2 / 2 / 2
Регистрация: 01.12.2010
Сообщений: 264
|
|
| 1 | |
помогите блок- схему замутить06.12.2010, 16:39. Показов 390. Ответов 0
Метки нет (Все метки)
uses graph; var gd,gm: integer; x0, y0: integer; x,y,dx: real; begin gd:=0; initgraph(gd,gm,' '); x0:=getmax X div 2; y0:=getmax Y div 2; x:=-20; dx:=0.001; repeat if abs(x*x-3*x+1)>0.001 then begin putpixel(x0+round(x*20), y0-round(y*20), 8); x:=x+0.5 end else x:=0.5; until x<10; while x<=20 do begin y:=x/sqr(x)+3*x+1; putpixel(x0+round(x*20), round(y0-round(y*20)),10); x:=x+dx; end; line(0,y0,getmaxX,y0); line(x0,0,x0,getmaxY); outtextXY(getmaxX-30,y0-20,'X'); outtextXY(x0+10,20,'Y'); readln; close graph; end. Добавлено через 42 секунды ГРАФИКА!!!
0
|
|
(| 06.12.2010, 16:39 | |
|
Ответы с готовыми решениями:
0
помогите составить блок схему. Помогите нарисовать блок схему Помогите составить блок схему |
| 06.12.2010, 16:39 | |
| 06.12.2010, 16:39 | |
|
Помогаю со студенческими работами здесь
1
Помогите составит блок-схему Помогите составить Блок - схему. Пож. Помогите составиль Блок-Схему к задаче помогите составить блок-схему на графику!!! ПОМОГИТЕ БЛОК-СХЕМУ ввода в массив и вывода на экран матрицы 8*16 Помогите сделать блок-схему Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
