program pascal metode urutan angka

Buat urutan angka dari terkecil sampai terbesar dari 5 (lima) nilai yang dinput. Gunakan metode urutan, pemilihan dan perulangan.

Layout :

Angka 1          : 8

Angka 2          : 17

Angka 3          : 5

Angka 4          : 7

Angka 5          : 18

Hasil urutan sebagai berikut:

5          7          8          17        18

Jawab:

if  N1 >  N2  maka tukarkanlah

8

17

5

7

18

5

17

8

7

18

5

8

17

7

18

5

7

17

8

18

5

7

8

17

18

program seder hana menggunakan metode pilihan untuk menampilkan keterangan umur

  Buat program sederhana menggunakan metode pemilihan untuk menampilkan keterangan umur di mana:

Umur	Keterangan
0-5	Balita
6-13	Anak-Anak
14-25	Remaja
26-40	Dewasa
Ø  41	Orang Tua

Dengan memasukan nama, nim, program studi, tahun lahir. Maka akan ditampilkan umur dan keterangan umur

Layoutnya :

Nama                           : Andi

Nim                             : 21015199     

Program Studi : Sistem Informasi

Tahun Lahir                 : 1981

Umur                           : 29

Keterangan                  : Dewasa

jawab :

  uses crt;

  var nama, nim,programstudi,ket: string ;

      tahunlahir, umur : integer;

  begin

  clrscr;

   write('Nama         : '); readln(nama);

   write('NIM          : '); readln(nim);

   write('Program Studi: '); readln(programstudi);

   write('Tahun Lahir  : '); readln(tahunlahir);

   umur:= 2010-tahunlahir;

      writeln;

   writeln('Umur: ', umur);

   if umur <=5 then ket:='balita'

   else if umur <=13 then ket:='anak-anak'

   else if umur <=25 then ket:='remaja'

   else if umur <=40 then ket:='dewasa'

   else ket:='orang tua';

   writeln('Keterangan: ',ket);

   readln;

  end.

Program Pascal Kelipatan 3 dari angka 1 s/d 20

uses crt;

var I,A: integer;

begin

  clrscr;

  A:=3;

  for I:=1 to 6 do

  begin

     writeln(A);

     A:=A+3

  end;

  Readln;

end.

Pemograman pascal bilangan Ganjil 1-100

Menampilkan bilangan ganjil dari angka 1 s/d 100 

    1. Beri Nilai A = 2.

    2. Untuk  I = 1 sampai 100 lakukaN

        2.1  Cetak Nilai A

        2.2 Jika A mod 2 = 1 , maka nilai A = bilangan ganjil

uses crt;

var I,A: integer;

begin

 A:=1;

 clrscr;

     for I:= 1 to 100 do

     begin

     if I mod 2= 1 then

     write(I:5);

   end;

     Readln;

 end.

program pascal Bilangan Genap dari angka 1 s/d 50

Menampilkan bilangan genap dari angka 1 s/d 50 

Jawab:

-                         1. Beri Nilai A = 1

-                         2. Untuk I = 1 samapi 50 lakukan

2.1 Cetak Nilai A

2.2  Jika A mod 2 = 0 , maka nilai A = bilangan genap

uses crt;

var I,A: integer;

begin

A:=1;

 clrscr;

 for I:= 1 to 50 do

begin

if I mod 2= 0 then

write(I:5);

end;

  Readln;

end.

program pascal luas persegi panjang

   Buat algoritma dan program untuk menghitung luas yang diarsir pada gambar dibawah ini

1. Menentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, dan lebar sisi dalam (lT): lT= 5.
2. Menghitung luas total, Ltotal= pL x lL
3. Menghitung luas tengah, Ltengah= pT x lT
4. Didapat luas yang diarsir, Larsir= Ltotal-Ltengah

      Program pascal:

uses crt;

var pL, lL, pT, lT, Ltotal , Ltengah: integer;

begin

    clrscr;

    pL:=18;  lL:=12;  pT:=10;  lT:=5;

    Ltotal:= pL*lL;

    Ltengah:= pT*lT;

    writeln('Luas total       = ', Ltotal);

    writeln('Luas tengah      = ', Ltengah);

    writeln('Luas yang diarsir= ', Ltotal-Ltengah);

    readln;

end.