contoh delphi mencari total bayar

 contoh soal delphi: jika harga jual minimal 200.000. maka pembeli mendapatkan potongan 10% dari harga jual dan jika kurang maka 0% potongannya. hitunglah total bayarnya. Rumus: unit Unit7;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm7 = class(TForm)    Label1: TLabel;    Label2: TLabel;    Label3: TLabel;   ......

Read more »

while

#include <conio.h>  #include <iostream.h>  void main ()  {  int bil;  bil=0;  while (bil<9)  {  bil++;  cout<<bil;  }  getch();  } gambar ketika program diRUN ......

Read more »

menghitung dengan fungsi

#include <conio.h> #include <iostream.h>  void lingkaran() {    float r, l;    cout<<"masukkan jari-jari : ";    cin>>r;    cout<<endl;    l=3.14*r*r;    cout<<"luasnya adalah :"<<l; };  void segiempat() {    float s, l;    cout<<"masukan sisi : ";    cin>>s;    cout<<endl;   ......

Read more »