Berikut Overview dari Program Nya bisa di Compile Pake Dev Pascal
apabila anda sudah memiliki Compailer lainnya? Yang penting bisa running tapi saya sarankan menggunakan Dev Pascal. Oke kalau sudah buka program lalu Copy Syntax nya ada dibawah
1: program Rumus;
2: uses crt;
3: var a,b,c,d,x1,x2:real;
4: var lanjut:boolean;
5: var pil,i:integer;
6: Var FName: String[10];
7: UserFile : Text;
8: Var infile: text;
9: persdata: String;
10: begin
11: clrscr;
12: writeln('------ MENU -----');
13: writeln('*****************');
14: writeln('1. Input Variabel');
15: writeln('2. Random');
16: writeln('*****************');
17: write('Pilih Menu 1-2: ');write('anda memilih menu no.');read(pil);
18: writeln('*****************');
19: writeln('Tekan Enter untuk memasukan Variabel');
20: case pil of
21: 1:begin
22: lanjut := false;
23: write('Rumus Persamaan Kuadrat sebagai berikut ax^2 + bx + c');
24: readln();
25: writeln();
26: repeat
27: write('Masukkan input variabel a: ');readln(a);
28: write('Masukkan input variabel b: ');readln(b);
29: write('Masukkan input variabel c: ');readln(c);
30: if(a > 50) or (b > 50) or (c > 50)then
31: begin
32: writeln();
33: write('Jumlah yang anda masukkan terlalu besar atau sama dengan 0..');readln();
34: lanjut:= false;
35: writeln();
36: end
37: else
38: begin
39: writeln();
40: write('Inputan yang anda masukkan adalah ',a:6:0,'x^2 + ',b:6:0,'x + ',c:6:0);readln();
41: lanjut:= true;
42: writeln();
43: end;
44: until(lanjut = true);
45: writeln('Dengan penjelasan sebagai berikut: ');readln();
46: writeln('Dimana variabel a diisi dengan angka ',a:6:0,';');
47: writeln('variabel b diisi dengan angka ',b:6:0,';');
48: writeln('dan variabel c diisi dengan angka ',c:6:0,'.');
49: writeln();
50: write('Tekan Enter untuk melanjutkan..');readln();
51: writeln('Tekan Enter untuk melihat hasilnya..');readln();
52: d:=(b*b)-4*a*c;
53: if(d=0) then
54: begin
55: write('Bukan persamaan kuadrat');readln();
56: end
57: else if(d<0) then
58: begin
59: write('Hasil bilangan tersebut imajiner');readln();
60: end
61: else
62: begin
63: x1:=(-b + (sqrt(d)))/(2*a);
64: x2:=(-b - (sqrt(d)))/(2*a);
65: writeln('Nilai x1 = ',x1:6:0);
66: writeln('Nilai x2 = ',x2:6:0);
67: readln();
68: end;
69: end;
70: 2:begin
71: write('Rumus: ax^2 + bx + c');
72: readln();
73: writeln();
74: for i:=1 to 5 do
75: begin
76: a := random(3);
77: b := random(-5);
78: c := random(5);
79: writeln(a:6:0, b:6:0, c:6:0);
80: writeln('Tekan Enter untuk melihat hasilnya..');readln();
81: d:=(b*b)-4*a*c;
82: if(d=0) then
83: begin
84: write('Bukan persamaan kuadrat');readln();
85: end
86: else if(d<0) then
87: begin
88: write('Hasil bilangan tersebut imajiner');readln();
89: writeln();
90: end
91: else
92: begin
93: x1:=(-b + (sqrt(d)))/(2*a);
94: x2:=(-b - (sqrt(d)))/(2*a);
95: writeln('Nilai x1 = ',x1:6:0);
96: writeln('Nilai x2 = ',x2:6:0);
97: readln();
98: end;
99: end;
100: end;end;end.
lalu compile ->
Penjelasannya
Menu 1. Input Variabel
Kita inputkan Persamaan Kuadrat Misalnya
nilai a : 2 b:-2 dan c:0
Nilai x2 = 2
(anda dapat menginputkan bilangan berapapun akan tetapi apabila hasil tidak memungkinkan ditemukan x1 dan x2 maka persamaan tersebut termasuk bilangan imajiner)
Menu 2 itu anda dapat menghasilkan variabel a,b,c secara random / acak
Semoga membantu bagi anda yang sedang mengerjakan tugas ^_^, selalu semangat jangan lupa berkomentar ya.
Tidak Ingin Repot ? Copy Code?