program 1
uses crt;
var
nama,npm : string;
begin
clrscr;
write (' nama anda:'); readln (nama);
write ('npm anda:' ); readln (npm);
writeln ('nama saya',nama);
readln;
end.
program 2
uses crt;
var
a,b,c:integer;
rata2rata:real;
begin
clrscr;
a : = 4;
b : = 5;
c : = 2;
rata2rata : = (a+b+c)/3;
writeln ('nilai rata2rata:',rata2rata:3:1);
readln;
end.
program 3
uses crt;
var
a,b : integer;
c : real;
begin
writeln ('luas lingkaran');
writeln ('**********');
write ('jari:');readln(h);
c : = (3.14*h*h);
writeln ('hasilnya :',c);
writeln;
writeln; ('terima kasih');
readln;
end.
uses crt;
var
nama,npm : string;
begin
clrscr;
write (' nama anda:'); readln (nama);
write ('npm anda:' ); readln (npm);
writeln ('nama saya',nama);
readln;
end.
program 2
uses crt;
var
a,b,c:integer;
rata2rata:real;
begin
clrscr;
a : = 4;
b : = 5;
c : = 2;
rata2rata : = (a+b+c)/3;
writeln ('nilai rata2rata:',rata2rata:3:1);
readln;
end.
program 3
uses crt;
var
a,b : integer;
c : real;
begin
writeln ('luas lingkaran');
writeln ('**********');
write ('jari:');readln(h);
c : = (3.14*h*h);
writeln ('hasilnya :',c);
writeln;
writeln; ('terima kasih');
readln;
end.
Logika Pemrograman Program 1
Crt merupakan suatu unit yang mempunyai beberapa perintah yang dapat kita gunakan dalam hal pengolahan program berbasis.
Input nama dan npm sebagai string
Begin : mulai
Clrscr : untuk membersihkan layar.
Readln : membaca data, pada statemen ini posisi kursor akan pindah ke baris selanjutnya setelah diinput.
Writeln : menulis data dan kursor akan pindah ke baris berikutnya
End. : mengakhiri program
Logika Pemrograman Program 2
Crt merupakan suatu unit yang mempunyai beberapa perintah yang dapat kita gunakan dalam hal pengolahan program berbasis.
Input a,b,c sebagai integer dan rata2rata sebagai real
Begin : memulai program
Clrscr : untuk membersihkan layar.
Diketahui a = 4, b =5 dan c = 2, Masukkan rumusnya.
Readln : membaca data, pada statemen ini posisi kursor akan pindah ke baris selanjutnya setelah diinput.
Writeln : menulis data dan kursor akan pindah kebaris berikutnya
End. : mengakhiri program
Logika Pemrograman Program 3
Crt merupakan suatu unit yang mempunyai beberapa perintah yang dapat kita gunakan dalam hal pengolahan program berbasis.
Input a,b sebagai integer dan c sebagai nilai real.
Begin : untuk memulai program
Clrscr : untuk membersihkan layar.
Diketahui luas lingkaran
Diketahui jari jari dengan symbol
Masukkan rumus c :=(3.14*h*h)
Writeln : menulis data dan kursor akan pindah kebaris berikutnya
Writeln : (‘terima kasih’) agar dibaris selanjutnya bertuliskan terima kasih
Readln : membaca data, pada statemen ini posisi kursor akan pindah ke baris selanjutnya setelah diinput.
End. : mengakhiri program
