Pemrograman Dasar

1.  program luas segitiga;

uses wincrt;
var
a,t:integer;
l:real;
begin
clrscr;
write('masukan nilai alas=');readln(a);
write('masukan nilai tinggi=');readln(t);
l:=1/2*a*t;
writeln('jadi luas=',l:0:0);
end.


2.  program huruf "A-Z";

uses wincrt;
var i,batas:char;
begin
write('Masukkan huruf a sampai z=');read(batas);
for i:= 'a' to batas do
write(i,' ');
end.

3.  program deret"ABCDE";

uses wincrt;
var i,batas:char;
begin
{write('masukkan integer positif=');
readln(batas);}
for i:='a' to 'e' do
write(i,' ');
end.

4.  program keliling persegi;

Uses wincrt;
var
p,l:integer;
keliling,luas:real;
begin
clrscr;
write ('masukan panjang = ');readln(p);
write ('masukan lebar   = ');readln(l);
keliling:=2*(p+l);
luas:=p*l;
write ('jadi keliling persegi adalah = ', keliling:4:0);
writeln;
write ('jadi luas persegi adalah     = ', luas:4:0);
end.

5.  program jenis bilangan bulat;

uses wincrt;
var
x : integer;
begin
write ('Masukkan sembarang angka=');read(x);
if x >0 then
write ('positif')
else
if x <0 then
write('negatif')
else
write ('nol')
end.

6.  program deret angka 2;

uses wincrt;
var i,batas:integer;
begin
write('masukkan integer positif=');
readln(batas);
for i:=batas downto 1 do
write(i,' ');
end.

7.  Program Menghitung Jarak;

Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.

8.  Program Konversi_Suhu;

Uses WinCrt;
 var f,c:real;
begin
Writeln('Program Konversi Fareinheit Ke Celcius');
Writeln('======================================');
Writeln;
Write('Masukan Suhu dalam Farenheit: ');readln(f);
c:=5/9*(f-32);
Writeln;
Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
end.

9. Integer

uses wincrt;
var
 nilai:real;
begin
 write('Nilai ujian=');
 readln(nilai);
 if nilai>=70 then
 writeln('keterangan=Lulus')
 Else
  writeln('keterangan=Gagal');
  end. 

10.  Penghitungan

uses wincrt;

var
nama:string[15];
jml:integer;
harga,total:real;
begin
clrscr;
write('masukkan nama barang=');readln(nama);
write('masukkan jumlah barang=');readln(jml);
write('masukkan harga barang=');readln(harga);
total:=jml*harga;
writeln('------');
write('jadi total harga=', total:4:0);
end.