program menuOke;
uses wincrt;
var tanya, pilih : char;
nama:string;
procedure variabela;
var a,b: integer;
var hasil: real;
begin
writeln (‘1.nyatakan bagian persamaan linear x dalam y atau y dalam x’);
writeln(‘Masukan persamaan ke-1:’);
readln(a);
writeln(‘masukan persamaan ke-2:’);
readln(b);
clrscr;
writeln (‘2.substitusikan x atau y pada langkah 1 ke bagian bentuk kuadrat’);
writeln(‘Masukan persamaan ke-1:’);
readln(a);
writeln(‘masukan persamaan ke-2:’);
readln(b);
clrscr;
writeln (‘3.selesaikan PK pada langkah 2,kemudian substitusikan nilai-nilai yang didapat’);
writeln(‘Masukan persamaan ke-1:’);
readln(a);
writeln(‘masukan persamaan ke-2:’);
readln(b);
end;
procedure variabelb;
var a,b,x,y: integer;
var hasil: real;
begin
writeln (‘1.nyatakan bentuk kuadrat kedalam faktor-faktor dengan ruas kanan sama dengan nol’);
writeln(‘Masukan persamaan ke-1:’);
readln(a);
writeln(‘masukan persamaan ke-2:’);
readln(b);
clrscr;
writeln (‘2.bentuk-bentuk linear langkah 1 digabungkan kedalam persamaan semula’);
writeln(‘Masukan persamaan ke-1:’);
readln(a);
writeln(‘masukan persamaan ke-2:’);
readln(b);
end;
begin
writeln (‘assalamualaikum’);
writeln(‘Hello sobat…. !!!!’);
writeln (‘Selamat Datang Dalam pembelajaran Sistem Persaman Linear dan Kuadrat.’);
readln;
write (‘Silahkan Masukkan Nama Mu: ‘ );
readln (nama);
Writeln (‘Hello,,’); writeln (nama) ;
writeln (‘ Selamat Belajar Dengan kami’);
writeln (‘Kami akan membantu Mu, dan Membuat Pelajaran ini Menjadi begitu mudah.’);
readln;
write (‘Apakah Kamu menyukai matematika??’);
readln (nama);
if (nama=’ya’) then
writeln (‘Mari kita mulai belajar sobat ‘);
if (nama=’tidak’) then
writeln (‘Tidak Masalah sobat, kita berbagi ilmu bersama-sama!!!’);
readln;
begin
repeat
clrscr;
writeln (‘SPLK dengan bagian kuadrat berbentuk implisit:’);
writeln (‘1.impilisit tidak dapat difaktorkan’);
writeln (‘2.implisit dapat difaktorkan’);
writeln (‘Masukan Pilihan Anda:’);
readln(pilih);
case pilih of
‘1’: variabela;
‘2’: variabelb;
else
end;
write(‘Anda masih mau Lanjut [tekan y/t]:’);
readln (tanya);
until (tanya=’t’) or (tanya=’T’);
clrscr;
writeln(‘Terima Kasih Kamu teLah memakai Program Kami..?! ^^’);
writeln(‘ifkohn@yahoo.com’);
writeln(‘good bye…^^’);
writeln(‘wassalamualaikum…’);
end;
end.
Tinggalkan komentar