Soal Dan Jawaban WHILE DO serta Game Singkat [PASCAL]

1. Buat algoritma dan program yang mencetak bilangan ganjil antara 1 sampai

 dengan n. Dimana n di inputkan oleh user

           uses crt;
var
        n, a: integer;

begin
clrscr;
        writeln('Masukkan Batasan Bil Ganjil   : '); readln(n);

        a := 1;
        while a <= n do
        begin
                write(a, '  ');

                a := a + 2;
        end;
        readln;
end.

2. Buat algoritma dan program yang meminta inputan n jumlah bilangan. 

 Kemudian program menghitung rata-rata dari semua bilangan tersebut.

           uses crt;
var
        n, j, a, r: real;


begin
clrscr;
        write('Masukkan batasan Nilai   : '); readln(n);

        j := 0;
        r := 0;
        a := 1;

        while a <= n do
        begin
                write(a:2:0, ' ');
                j := j + a;
                r := j / a;
                a := a + 1;
        end;
        readln;

        writeln('Rata rata nya adalah     : ', r:0:2); readln;

end.

3. Buat algoritma dan program game sederhana. Game ini akan menginisialisasi

  sebuah variable dengan sebuah karakter dan user akan menebak karakter

  tersebut. Game akan berhenti jika tebakan user benar.

           uses crt;
var
        t, j: string;
        n: integer;

begin
textbackground(99);
clrscr;
        textcolor(7);
        writeln('                 Ini Adalah Sebuah Game Singkat     ');
        write('               Game ini dibuat oleh M Lukmanul Hakim  ');
        readln;

        clrscr;

        textcolor(14);
        writeln('    Disini Saya sudah Menyimpan HURUF yang harus kalian tebak!    ');
        readln;

        clrscr;

        textcolor(15);
        writeln('           Kalian hanya tinggal menebak satu buah Huruf     ');
        readln;

        clrscr;

        textcolor(15);
        writeln('                            Oke Langsung Saja....       ');
        readln;

        clrscr;

        textcolor(15);
        writeln('                  Masukkan Sebuah Huruf Tebakkan!    '); readln(t);

        j := 'v';
        n := 1;

        while t <> j do
        begin
                textcolor(11 + n);
                textbackground(15 + n);
                write('                Wahh Masih Kurang Tepat!!! SEMANGAT!     '); readln;
                n := n + 1;

                clrscr;
                writeln('                    Masukkan Huruf nya Lagi!:       '); readln(t);
        end;


        clrscr;

        textcolor(15);
        writeln('                 Hahahaha Bagus Tebakkan Tepat Sekali !     '); readln;

        clrscr;

        writeln('                             Gampang Bukan?                  '); readln;


end.

4. Buatlah program pengulangan untuk menghitung jumlah sederet bilangan 

   berurut yang dimulai dari 1 hingga bilangan inputan. Contoh:

   INPUT  : 7

  PROSES  : 1+2+3+4+5+6+7

  OUTPUT  : 28

uses crt;
var
        n, a, j: integer;

begin
clrscr;
        write('Masukkan Batas Nilai   : '); readln(n);

        j := 0;
        a := 1;
        while a <= n do
        begin
                if a = 1 then
                write(a)
                else
                write(' + ', a);
                j := j + a;
                a := a + 1;
        end;
        readln;

        write('Jumlah nya             : ', j);
        readln;

end.