PASCAL MEMBUAT PROGRAM OPERATOR LOGIKA, EKSPRESI RUNTUTAN, TEKNIK RUNTUTAN

OPERATOR LOGIKA, EKSPRESI RUNTUTAN, TEKNIK RUNTUTAN

SOAL:
1. Buatlah algoritma dan program yang menerima masukan alas dan tinggi sebuah segitiga, dan akan mengeluarkan nilai luas segitiga tersebut!

2. Buatlah program yang menerima masukan Nama, Alamat, Tahun Lahir, dan Tahun Sekarang yangakan menampilkan Jumlah Usia dari tahun yang dimasukkan!

3. Buatlah program pengukuran suhu derajat Celcius ke derajat Fahrenheit dan Reamur dengan masukan derajat Celcius dan tampilkan hasilnya!

JAWABAN:

1. program LuasSegitiga;
uses crt;
var
   luas, alas, tinggi : real;

begin
    Clrscr
    writeln('PROGRAM LUAS SEGITIGA');
    write('Masukan nilai alas : ');readln(alas);
    write('Masukan nilai tinggi : ');readln(tinggi);
    luas:= 0.5 * alas * tinggi ;
    writeln('Luas segitiga adalah : ', luas:0:2);
    readln;

end.
2. program biodata;
uses crt;
var
   nama : string[50];
   alamat : string[100];
   tahunLahir : integer ;
   tahunSekarang : integer ;
   usia: integer ;
begin
clrscr;
     writeln('BIODATA');
     write('Masukan nama anda : ');readln(nama);
     write('Masukan alamat anda : '); readln(alamat);
     write('Masukan tahun lahir anda : '); readln(tahunLahir);
     write('Masukan tahun sekarang : '); readln(tahunSekarang);
     usia := tahunSekarang - tahunLahir ;
     writeln('Usia anda : ', usia);
     readln;

end.
3. program suhu ;
uses crt ;
var
   c: real;
   f: real;
   r: real;
begin
clrscr;
     writeln('==================SUHU===============');
     write('Masukan nilai celcius : '); readln(c);
     f:= 9/5 * c;
     r:= 4/5 * c ;
     writeln('Nilai Farenheit : ', f:0:2);
     writeln('Nilai Reamur : ',r:0:2);
     readln;

end.
SEKIAN DULU SOBAT, JANGAN LUPA KOMENTAR DAN LIKE FB FANSPAGE..

Tweet