cookieChoices = {}; nyarinama: Contoh Program Kecil Pascal cookieChoices = {};

Contoh Program Kecil Pascal

berikut contoh program pascal yang pernah saya buat..

Program penghitungan pangkat
program pangkat;
uses crt;
var x : longint;
begin;
    clrscr;
    write('Masukkan angka : ');
    readln(x);
    writeln('Hasilnya : ',sqr (x));
    readln;
end.

Output

Masukkan angka : 5
Hasilnya : 25


Program Rekursi
program pengulangan;
uses crt;
var
x : string;
y : integer;
n : integer;
begin;
    clrscr;
    write('Masukkan kata yang akan diulang : '); read(x);
    write('Masukkan angka untuk pengulangan : '); readln(n);
    writeln;
    for y := 0 to n-1 do
    writeln(x);
    readln;
end.

Output

Masukkan kata yang akan diulang : test
Masukkan angka untuk pengulangan : 3

test
test
test

Program penghitungan sederhana
program penghitunganXdanY;
uses crt;
var x,y : integer;
begin;
    clrscr;
    write('Masukkan nilai X : ') ; readln (x);
    write('Masukkan nilai Y : ') ; readln (y);
    writeln;
    writeln('Hasilnya adalah...') ;
    writeln('X + Y =', x+y) ;
    writeln('X - Y =', x-y) ;
    writeln('X x Y =', x*y) ;
    writeln('X : Y =', x/y:0:3) ;
    writeln('X div Y =', x div y) ;
    writeln('X mod Y =', x mod y) ;
    readln;
end.

Output
Masukkan nilai X : 5
Masukkan nilai Y : 5

Hasilnya adalah...
X + Y = 10
X - Y = 0
X x Y = 25
X : Y = 1
X div Y = 1
X mod Y = 0

Program penyeleksian
program jikaif;
uses crt;
var bilangan : integer;
begin;
    clrscr;
    write('Masukkan angka dari 1 sampai 10 : ');
    readln(bilangan);
    if bilangan = 1 then
    writeln('Bilangan itu adalah bilangan pertama')
    else
    if bilangan < bilangan =" 5"> 5 then
    writeln('Bilangan anda lebih dari 5 dan kurang dari 10');
    readln;
    end.
end.

Output
Masukkan angka dari 1 sampai 10 : 8
Bilangan anda lebih dari 5 dan kurang dari 10

0 Komentar:

ayo, komentari apa yang telah anda baca..! berkomentar berarti telah ikut melestarikan budaya ngeblog. jangan sia-siakan waktu anda dengan berdiam diri.. berkaryalah dan menginspirasi orang lain..!