Scribd
Unggah
3 tayangan4 halaman

Menggambar Bunga Tulip dengan Coding

Dokumen ini berisi tiga program pemrograman yang menggambarkan objek grafis menggunakan bahasa pemrograman Pascal, yaitu kerangka rumah, gambar HP, dan bunga tulip. Selain itu, terdapat dua bagian yang menjelaskan visualisasi permukaan 3D menggunakan fungsi polinomial dan fungsi sinus serta kosinus dengan grid 2D. Setiap program mencakup inisialisasi grafik, menggambar objek, dan menutup grafik setelah selesai.

Diunggah oleh

Icalebang
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd
3 tayangan4 halaman

Menggambar Bunga Tulip dengan Coding

Dokumen ini berisi tiga program pemrograman yang menggambarkan objek grafis menggunakan bahasa pemrograman Pascal, yaitu kerangka rumah, gambar HP, dan bunga tulip. Selain itu, terdapat dua bagian yang menjelaskan visualisasi permukaan 3D menggunakan fungsi polinomial dan fungsi sinus serta kosinus dengan grid 2D. Setiap program mencakup inisialisasi grafik, menggambar objek, dan menutup grafik setelah selesai.

Diunggah oleh

Icalebang
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd

1.

CODING RUMAH

program KerangkaRumah;
uses Graph, Crt;

var
gd, gm: Integer;
begin
gd := Detect;
InitGraph(gd, gm, '');

if GraphResult <> grOk then


begin
Writeln('Grafik tidak dapat diinisialisasi.');
Halt(1);
end;

{ Menggambar kerangka rumah }


Rectangle(100, 200, 300, 350); { Dinding rumah }
Line(100, 200, 200, 100); { Atap kiri }
Line(200, 100, 300, 200); { Atap kanan }
Rectangle(170, 250, 230, 350); { Pintu }
Rectangle(120, 220, 160, 260); { Jendela kiri }
Rectangle(240, 220, 280, 260); { Jendela kanan }

ReadLn;
CloseGraph;
end.

2. CODING HP
program GambarHP;
uses Graph, Crt;

var
gd, gm: Integer;
begin
gd := Detect;
InitGraph(gd, gm, '');

if GraphResult <> grOk then


begin
Writeln('Grafik tidak dapat diinisialisasi.');
Halt(1);
end;
{ Menggambar bentuk HP }
Rectangle(100, 100, 250, 400); { Body HP }
Rectangle(130, 130, 220, 180); { Layar HP }
Circle(175, 370, 10); { Tombol Home }
Rectangle(140, 190, 210, 350); { Area Sentuh }

ReadLn;
CloseGraph;
end.

3. CODING BUNGA TULIP


program GambarTulip;
uses Graph, Crt;

var
gd, gm: Integer;
begin
gd := Detect;
InitGraph(gd, gm, '');

if GraphResult <> grOk then


begin
Writeln('Grafik tidak dapat diinisialisasi.');
Halt(1);
end;

{ Menggambar bunga tulip dengan warna }


SetColor(Red);
SetFillStyle(SolidFill, Red);
Ellipse(200, 150, 0, 360, 30, 40); { Kelopak tengah }
FloodFill(200, 150, Red);
Ellipse(170, 140, 0, 360, 20, 35); { Kelopak kiri }
FloodFill(170, 140, Red);
Ellipse(230, 140, 0, 360, 20, 35); { Kelopak kanan }
FloodFill(230, 140, Red);

SetColor(Green);
SetFillStyle(SolidFill, Green);
Line(200, 190, 200, 300); { Batang }
Line(200, 250, 170, 270); { Daun kiri }
Line(200, 250, 230, 270); { Daun kanan }
GAMBAR 1

% Definisikan range untuk x dan y

x = linspace(-11,20, 23);

y = linspace(-11, 20, 23);

% Buat grid 2D untuk X dan Y

[X, Y] = meshgrid(x, y);

% Hitung Z sebagai fungsi polinomial 3D

Z = X.^6 - Y.^6;

% Visualisasi permukaan dengan surf

surf(X, Y, Z);

% Tambahkan label dan judul

xlabel('X');

ylabel('Y');

zlabel('Z');

title('3D Surface plot of X^6 - Y^6');

Tuliskan nilai dari :


1. …. Bagian nilai Z, dan ….. Bagian nilai X
2. …. Bagian nilai X, dan ….. Bagian nilai Y
3. …. Bagian nilai Z, dan ….. Bagian nilai Y
Gambar 2

% Definisikan range untuk x dan y

x = linspace(0, 10, 80);

y = linspace(0, 10, 80);

% Buat grid 2D untuk X dan Y

[X, Y] = meshgrid(x, y);

% Hitung Z sebagai fungsi dari sin dan cos

Z = sin(X) + cos(Y);

% Visualisasi permukaan dengan surf

surf(X, Y, Z);

% Tambahkan label dan judul

xlabel('X');

ylabel('Y');

zlabel('Z');

title('3D Surface plot of sin(X) + cos(Y)');

4. …. Bagian nilai Z, dan ….. Bagian nilai X


5. …. Bagian nilai X, dan ….. Bagian nilai Y
6. …. Bagian nilai Z, dan ….. Bagian nilai Y

Anda mungkin juga menyukai