Soal Turbo Pascal

 SOAL.

1. Persegi panjang dengan input (panjang,lebar) dan output (luas dan keliling)
2. Buatlah pola bilangan (6,9,12,15,18,21)
3. Buatlah pola bilangan (3,6,12,24,48,96)

 Jawab.

1. Program Persegi Panjaaaaaang ~(˘▾˘~) ~(˘▾˘)~ (~˘▾˘)~

 
    uses wincrt;
    var
    p,l,ls,k:real;
       
    begin
    writeln;
    writeln(' program persegi panjang');
    write('masukkan panjang: ');readln(p);
    write('masukkan lebar: ');readln(l);
    ls:=p*l;
    k:=2*(p+l);
    writeln('luas tabungnya: ',ls:2:1) ;
    writeln('keliling lingkarannya: ',k:2:1) ;
    end.

 

2. Pola bilangan dengan "while do" (┌','┐)

   
    uses wincrt;
    var
    i:integer;
    begin
    i:=3;
    while i<21 do

    begin

    i:=i+3;
    writeln (i);

    end;

    end.

3. Pola bilangan dengan "while do" /(˘▾˘)/


    uses wincrt;
    var
    i:integer;
    begin
     i:=3;
     while i<99 do
     begin
     write(i, ' - ');
     i:=i*2;
     writeln(i);
     end;
     end.