Pages

Senin, 14 November 2011

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.

Tidak ada komentar:

Posting Komentar