Flowchart dari perulangan repeat to until, while to do, for to do

1.  Flowchart dari perulangan repeat.....until

             Contoh :
             uses crt;
             var
                  a : integer;
             begin
                 repeat
                     writeln (a);
                         inc (a);
                            until (a<=10);
              readln;
              end.       



2.  Flowchart dari perulangan while.....do

Contoh :
uses crt;
var
     a : integer;
begin
while (a<=10) do
begin
     writeln (a);
        inc (a);
end;
      readln;
end.



3.     Flowchart dari perulangan for.....do

                     Contoh :
                     uses crt;
                     var
                          a : integer;
                     begin
                     clrscr;
                     for a := 1 to 10 do
                          writeln (a);
                           readln;
                     end.
 







                                    http://www.4shared.com/rar/YfnnUdDm/tugas_5.html

Latihan & Jawaban Algoritma

Tugas Algoritma!

1.Buatlah algoritma dan flowchart dan program untuk menampilkan semua bilangan genap dari 1 – 20 dan bilangan ganjil dari 30 – 50 dengan menggunakan pengulangan while.
2.Buatlah algoritma dan flowchart dan program untuk menampilkan semua bilangan kelipatan 7 dari 1 – 50 dengan menggunakan pengulangan do while.
3.Buatlah algoritma dan flowchart dan program untuk menampilkan deret segitiga dibawah ini menggunakan while.
* * *
* *
*

Jawab :

1.Algoritma loop while
x : int
y : int
Deskripsi
x ← 2
y ← 31
while (x<=20)
write (x)
x ← x+2
while (y<=49)
write (y)
y ← y+2
end while

Flowchart










Program














2.Algoritma loop do-while
x : int
Deskripsi
x ← 7
do
write (x)
x ← x+7
while (x<=49)

Flowchart
















 

Program













3.Algoritma loop while Flowchart
x : int
y : int
z : int
Deskripsi
x ← 1
y ← 2
z ← 3
while (x<=3)
write “*”
x ← x+1
while (y<=3)
write “*”
y ← y+1
while (z<=3)
write “*”
z ← z+1
end while

Flowchart












Program

flowchart looping/perulangan

contoh Flowchart Looping dan perulangan Segitiga Siku-Siku.

mungkin flowchart ini masih belum sempurna,, masih perlu pembenahan..
untuk programnya Java
public class Perulangan {
public static void main (String[]arg){
int i=1;
int j=5;
for (i=1;i<=5;i++)
{
System.out.println();
for(j=1;j<=i;j++){
System.out.print(i);}
}

Flowchart Yaumul Hisab

Flowchart Yaumul Hisab, Tugas Logika dan Algoritma Percabangan..

Untuk Program Java menggunakan GUI
int Pahala=Integer.parseInt(Pahala1.getText());
int Dosa=Integer.parseInt(Dosa2.getText());
int pahala =24000;
int dosa   =650;
int y=Dosa-Pahala;
if (y>0) {Hasil1.setText("Maafkan Saya Ya Allah");} else
{Hasil1.setText("HOREE! Saya Masuk Surga");}

Algoritma dan flowchart untuk menghitung luas dan keliling lingkaran (C/C++)

Algoritma merupakan langkah-langkah atau step-step dalam menyelesaikan suatu masalah. Sedangkan Flowchart adalah bagan atau diagram yang memilki aliran yang menggambarkan langkah-langkah penyelesaian masalah.
Berikut ini adalah Algoritma dan flowchart dalam menghitung luas dan keliling lingkaran.

1. Algoritma menghitung luas lingkaran

• menetapkan nilai Phi yaitu 3.14
• menghitung jari-jari lingkaran.
• menghitung luas lingkaran dengan rumus L=phi*r*r
• mencetak nilai L

2. Flowchart mengitung luas lingkaran




3. Algoritma menghitung keliling lingkaran

• menetapkan nilai Phi yaitu 3.14
• menghitung jari-jari lingkaran.
• menghitung keliling lingkaran dengan rumus K=2*phi*r
• mencetak nilai K
  

4. Flowchart mengitung keliling lingkaran

Menghitung Volume dan Luas Permukaan balok pada Delphi

karen masih banyak yang harus di posting, maka langsung saja.
untuk daftar kode di ocnclick button hitung sebagai berikut :

procedure TForm1.HitungClick(Sender: TObject);
var
p,lebar,t,v,luas:integer;
begin
p:=StrToInt(edpanjang.Text);
lebar:=StrToInt(edlebar.Text);
t:=StrToInt(edtinggi.Text);

v:=p*lebar*t;
luas:=(2*p*lebar)+(2*p*t)+(2*lebar*t);

edvolume.Text:=IntToStr(v);
edluas.Text:=IntToStr(luas);

end;

ScreenShoot programnya seperti ini





yang mau download sourcecode lengkapnya, klik disini.

Membuat program : Menghitung Luas dan Keliling Persegi Panjang Dengan Delphi 7

Ini Listing Programnya :

unit edit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm2 = class(TForm)

    label1: TLabel;

    label2: TLabel;

    label3: TLabel;

    label4: TLabel;

    Editpanjang: TEdit;

    Editlebar: TEdit;

    Editluas: TEdit;

    Editkeliling: TEdit;

    mulai: TButton;

    hitung: TButton;

    Button3: TButton;

    procedure FormCreate(Sender: TObject);

    procedure mulaiClick(Sender: TObject);

    procedure hitungClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

  p,l,luas,keliling:integer;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

editpanjang.Enabled:=false;

editlebar.Enabled:=false;

editluas.Enabled:=false;

editkeliling.Enabled:=false;

end;

procedure TForm2.mulaiClick(Sender: TObject);

begin

editPanjang.Enabled:=true;

editLebar.Enabled:=true;

editPanjang.Setfocus;

end;

procedure TForm2.hitungClick(Sender: TObject);

begin

//koreksi dari string ke integer

p:=strtoint(editpanjang.Text);

l:=strtoint(editlebar.text);

luas:=p*l;

keliling:=2*(p+l);  ;

editluas.text:=inttostr(luas);

editkeliling.text:=inttostr(keliling);

end;

end.

*SELAMAT MENCOBA*