Нужно нарисовать Гиперболический цилиндр и гиперболу без разниц делфи или паскаль ну и чтоб он крутился (вращался)?

Николай45 9 февр. 2020 г., 23:22:26

Перед комментом "{ETO FUNTTSIYA!

}" вобьешь уравнения

uses crt, graphabc ; const T = 100 ; N = 5 ; var i, j, i1, j1, mn : integer ; var alpha : real ; type ColorType = integer ; type Point = record ; x, y : integer ; end ; type Point3D = record ; x, y : integer ; end ;

const Lx = - 100 ; Ly = - 100 ; Lz = - 100 ; procedure osi ; beginsetpenwidth(3) ; line(400, 0, 400, 800) ; line(0, 400, 800, 400) ; line(800, 0, 0, 800) ; end ;

function to2DX(x, y, z : integer ; phi : real) : integer ; var x1, y1, z1 : integer ; begin x1 : = trunc( x * cos(phi) - y * sin(phi) ) ; y1 : = trunc( x * sin(phi) + y * cos(phi) ) ; z1 : = z ; to2DX : = 400 + y1 - trunc(0.

3 * x1) ; end ; function to2DY(x, y, z : integer ; phi : real) : integer ; var x1, y1, z1 : integer ; begin x : = trunc( x * cos(phi) - y * sin(phi) ) ; y : = trunc( x * sin(phi) + y * cos(phi) ) ; z1 : = z ; to2DY : = 400 - z + trunc(0.

4 * x) ; end ;

procedure line3d(x, y, z, x1, y1, z1 : integer ; phi : real) ; beginline(to2DX(x, y, z, phi), to2Dy(x, y, z, phi), to2DX(x1, y1, z1, phi), to2Dy(x1, y1, z1, phi))end ;

procedure lineto3d(x1, y1, z1 : integer ; phi : real) ; beginlineto(to2DX(x1, y1, z1, phi), to2Dy(x1, y1, z1, phi))end ;

procedure moveto3d(x1, y1, z1 : integer ; phi : real) ; beginmoveto(to2DX(x1, y1, z1, phi), to2Dy(x1, y1, z1, phi))end ;

procedure drawTriangle(x1, y1, z1, x2, y2, z2, x3, y3, z3 : integer ; phi : real) ; var Triangle : array[1.

3] of Point ; var nx, ny, nz : real ; var CS, S : real ; begin Triangle[1].

X : = to2dx(x1, y1, z1, phi) ; Triangle[1].

Y : = to2dy(x1, y1, z1, phi) ; Triangle[2].

X : = to2dx(x2, y2, z2, phi) ; Triangle[2].

Y : = to2dy(x2, y2, z2, phi) ; Triangle[3].

X : = to2dx(x3, y3, z3, phi) ; Triangle[3].

Y : = to2dy(x3, y3, z3, phi) ; x1 : = x3 - x1 ; y1 : = y3 - y1 ; z3 : = z3 - z1 ; x2 : = x3 - x2 ; y2 : = y3 - y2 ; z3 : = z3 - z2 ; nx : = y1 * z2 - y2 * z1 ; ny : = z1 * x2 - z2 * x1 ; nz : = x1 * y2 - x2 * y1 ; try CS : = abs( (nx * Lx + ny * Ly + nz * Lz) / sqrt(nx * nx + ny * ny + nz * nz) / sqrt(Lx * Lx + Ly * ly + Lz * Lz) ) ; setbrushcolor(rgb(trunc(100 * CS), trunc(100 * CS), trunc(100 * CS))) ; setpencolor(rgb(trunc(100 * CS), trunc(100 * CS), trunc(100 * CS))) ; Polygon(Triangle, 3) ; except end ; end ;

procedure draw(f : function(x, y : real) : real ; color1 : colortype ; phi : real) ; beginsetpenwidth(1) ; setpencolor(color1) ; for j1 : = - trunc(T / N) to trunc(T / N) dobeginj : = j1 * N ; moveto3d(j, - T, trunc(f(j, - T)), phi) ; for i1 : = - trunc(T / N) to trunc(T / N) dobegini : = i1 * N ; lineto3d(j, i, trunc(f(j, i)), phi) ; end ;

end ; for i1 : = - trunc(T / N) to trunc(T / N) dobegini : = i1 * N ; moveto3d( - T, i, trunc(f( - T, i)), phi) ; for j1 : = - trunc(T / N) to trunc(T / N) dobeginj : = j1 * N ; lineto3d(j, i, trunc(f(j, i)), phi) ; end ;

end ; end ;

function p(x, y : real) : real ; var a : integer ; begintryp : = sin((x * x - y * y) / 2000) * 50 ; {ETO FUNTTSIYA!

}exceptp : = 1 ; end ; end ;

beginlockdrawing ; setwindowheight(800) ; setwindowwidth(800) ; alpha : = 0 ; while true dobeginclearwindow() ; draw(p, rgb(255, 0, 0), alpha) ; redraw ; alpha : = alpha - 0.

03 ; delay(5) ; end ;

end.

V17fox 17 янв. 2020 г., 19:27:25 | 5 - 9 классы

Помогите Нужно нарисовать лягушку через программу паскаль abc?

Помогите Нужно нарисовать лягушку через программу паскаль abc.

Apple00Chocolate 16 февр. 2020 г., 05:36:13 | 5 - 9 классы

Помогите, пожалуйста))) Мне в паскале абц надо нарисовать кораблик разными цветами Но не закрашивать его Очеееень нужно)) ПОжалуйстааааа, помогитеееее?

Помогите, пожалуйста))) Мне в паскале абц надо нарисовать кораблик разными цветами Но не закрашивать его Очеееень нужно)) ПОжалуйстааааа, помогитеееее.

Yanamc 26 мар. 2020 г., 14:44:12 | 5 - 9 классы

В чем разница между числами 100 и 100?

В чем разница между числами 100 и 100.

0 в языке Паскаль.

Айгуль1227 17 февр. 2020 г., 03:21:53 | 5 - 9 классы

Как в паскале нарисовать бокал с трубочкой?

Как в паскале нарисовать бокал с трубочкой?

Volk55 1 сент. 2020 г., 23:30:25 | 5 - 9 классы

Нужно нарисовать рисунок в турбо паскале?

Нужно нарисовать рисунок в турбо паскале.

"9 класс".

Irishenka 27 мар. 2020 г., 11:31:49 | 5 - 9 классы

Нарисовать личико на паскале срочно прошу пож?

Нарисовать личико на паскале срочно прошу пож.

Nastyats 11 июл. 2020 г., 15:18:53 | 10 - 11 классы

Нарисовать елку в паскале?

Нарисовать елку в паскале.

КамышанКонстанция 20 дек. 2020 г., 00:50:26 | 5 - 9 классы

Нарисовать снеговика в паскаль АВС?

Нарисовать снеговика в паскаль АВС.

Schegolskaya99 24 июн. 2020 г., 11:04:52 | 5 - 9 классы

Напишите программу ПАСКАЛЬ, вычисляющую объем цилиндра?

Напишите программу ПАСКАЛЬ, вычисляющую объем цилиндра.

Яна2611115678 8 окт. 2020 г., 22:33:20 | 10 - 11 классы

Решить 8) 2 пункт (На языке Паскаль, Делфи) За 50 баллов?

Решить 8) 2 пункт (На языке Паскаль, Делфи) За 50 баллов.