Praktek Pascal minggu pertama

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.

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