belajar pascal 5 (repeat2)

belajar pascal 5 repeat

program cari_akar;
uses crt;
var A, B, C : real;
diskriminan, akar1, akar2 : real;
jawab : char;
begin
repeat
clrscr;
writeln('mencari akar persamaan kuadrat dari aX^2 + bX + c = 0');
writeln('======================================================');
write('masukkan koefisisen kuadrat persamaan (A) :'); readln(A);
write('masukkan koefisisen linier persamaan (B) :'); readln(B);
write('masukkan konstanta persamaan   (C):'); readln(C);
writeln;
diskriminan := sqr(B) - 4*A*C;
if diskriminan < 0 then writeln ('akar-akar persamaan imajiner')
else
begin
if diskriminan =0 then
begin
akar1:=-B;
writeln('akar-akar persamaan tunggal = X=',akar1:7:2);
end
else
begin
akar1 := -B + sqrt(diskriminan)/(2*A);
akar2 := -B - sqrt(diskriminan)/(2*A);
writeln('akarrpersamaan I = X1=',akar1:7:2);
writeln('akarrpersamaan I = X2=',akar2:7:2);
end;
end;
writeln;
write('ada persamaan lainnnya[Y/T]');
repeat
read(jawab);
until jawab in ['Y','y','T','t'];
until jawab in ['T','t'];
end.



hasil program:

belajar pascal 5 (repeat)

belajar pascal repeat

 contoh program

program jumlah_deret;
uses crt;
var counter, suku, bilangan, pangkat : byte;
jumlah : longint;
begin
clrscr;
writeln('menghitung jumlah dari deret');
writeln('============================');
write('masukkan jumlah suku deret:'); readln(suku);
jumlah := 1;
bilangan := 1;
pangkat := 0;
repeat
begin
for counter := 1 to pangkat do
bilangan := bilangan * bilangan ;
jumlah := jumlah + bilangan;
inc(bilangan, 2);
inc(pangkat);
end;
until bilangan > (2* suku-1);
writeln('jumlah deret','=',jumlah);
readkey;
end.

hasil program

belajar pascal 4 (while)

belajar pascal 4 (while)

contoh program

program faktorial1;
uses crt;
var bilangan , pencacah : byte;
faktorial : longint;
begin
clrscr;
writeln('menghitung nilai faktorial sebuah bilangan');
writeln('==========================================');
write('masukkan bilangan yang dihitung: '); readln(bilangan);

faktorial := 1;
while bilangan > 1 do
begin
faktorial := faktorial * bilangan;
dec(bilangan);
end;
writeln('faktorial dari ',bilangan,'=',faktorial);
readkey;
end.


hasil program :

Belajar pascal 3 (for 2)

belajar pascal 3
for

contoh program

program faktorial1;
uses crt;
var bilangan , pencacah : byte;
faktorial : longint;
begin
clrscr;
writeln('menghitung nilai faktorial sebuah bilangan');
writeln('==========================================');
write('masukkan bilangan yang dihitung: '); readln(bilangan);

faktorial := 1;
for pencacah := bilangan downto 1 do
faktorial := faktorial * pencacah;
writeln('faktorial dari ',bilangan,'=',faktorial);
readkey;
end.

hasil program

Belajar Pascal 2 (for)

Belajar Pascal 2

menggunakan for

contoh:
program hitung_jumlah_asli;
uses crt;
var jumlah, pencacah : byte;
begin
clrscr;
writeln('menghitung jumlah 10 bilangan asli yang pertama');
writeln('===============================================');
jumlah := 0;
for
pencacah := 1 to 10 do
jumlah := jumlah + pencacah;
writeln (' 1 + 2 + 10 =', jumlah);
readkey;
end.

hasil program

Belajar Pascal

Belajar Pascal

contoh program

program  Judul_Program_Pascal;       {Judul program}
uses    Crt;                                           {Deklarasi unit CRT}
label  Label_Saya;                              {Deklarasi label}
const                                                   {Deklarasi konstanta}
Bahasa  =  'Pascal';
Versi    =  7.0;
type    Nama =  string  [30];               {Deklarasi tipe}
var    Usia_Kamu :  integer;               {Deklarasi variabel}
        Nama_Kamu :  Nama;

procedure  Baca_dan_Tulis;              {Deklarasi procedure}
begin
write    ('Nama  Kamu    : ');  readln(Nama_Kamu);
write    ('Usia  Kamu    : ');  readln(Usia_Kamu);
writeln('Hallo,  ',  Nama_Kamu);
writeln('Umur  kamu  sekarang  ',  Usia_Kamu,  '  tahun');
end;

begin                                                  {Awal instruksi-instruksi program induk}
clrscr;
writeln('Hallo,  Saya  Mr.  Pascal');
Baca_dan_Tulis;
writeln('Kita  sedang  belajar  Bahasa  ',  Bahasa,  '  Versi  ',  Versi:3:1);
readkey;
end.