Tugas TI-M 1222

Tugas TI-M 1222 (PASCAL)

uses CRT;

Var

kode          : byte;

harga,jumlah  : longint;

th            : longint;

nama          : string;

begin

 clrscr;

 Writeln('Inputkan Kode Penjualan');

 writeln('---------------------------');

 write('kode:');readln(kode);

 case kode of

    1 : Begin

          clrscr;

          nama:='Televisi';

          Writeln('Nama:',nama);

          harga:=1750000;

          writeln('Harga:',harga);

          write('Jumlah Beli:');readln(jumlah);

          th :=harga*jumlah;

          writeln('---------------');

          writeln('Total Harga:',th);

        end;

   2 : Begin

          clrscr;

          nama:='DVD';

          writeln('Nama:',nama);

          harga:=650000;

          writeln('Harga:',harga);

          write('Jumlah Beli:');readln(jumlah);

          th:= jumlah*harga;

          writeln('---------------');

          writeln('Total Harga:',th);

       end;

   3 : Begin

         clrscr;

         nama:='CD ROOM';

         writeln('Nama:',nama);

         harga:=450000;

         writeln('Harga:',harga);

         write('Jumlah Beli:');readln(jumlah);

         th := jumlah*harga;

         writeln('---------------');

         writeln('Total Harga:',th);

       end;

    end;

 readln;

 end.

Jika anda sudah sesuai mengetikkan script diatas pada Aplikasi Turbo Pascal anda, kemudian tekan CTRL+F9, maka akan muncul tampilan gambar dibawah ini,

Namun jika belum tampil ataupun gagal, silahkan periksa kembali letak kesalahan anda.

Untuk memulai langkah selanjutnya, anda diberikan 3 pilihan untuk menginput kode produknya yaitu 1,2, dan 3. contoh ketikkan angka 1, maka akan tampil gambar seperti dibawah ini.

lalu ketikkan nominal jumlah belinya, misalnya 5.

pada akhirnya total harga dari produk yang anda ingin beli akan tampil,

dan itulah hasil akhir dari program ini, mudah bukan??. Semoga Artikel ini bermanfaat dan dapat membantu teman-teman semua. 

Disini Anda bisa Mengunduh Adobe Potoshop,, ( Bagii Kamu tukang edit.edittphoto :D )

http://photoshop.joydownload.com/&c=45?gclid=CKKV4IaQ0rcCFeEl4godMzUAsw 

Adobe Photoshop is the ultimate solution for advanced digital imaging, delivering all the editing and compositing capabilities of Photoshop plus breakthrough tools that let you create and edit 3D and motion-based content. Keep pushing creative boundaries with world-class 2D and 3D design. Use powerful new selection, painting, and warping capabilities to create standout images. Get just the right look for each client's site. Easily select intricate image elements for placing in layout. Create 3D artwork for logos and buttons. Create and enhance 3D and motion-based content and prepare still images and text for all your projects. Work fast with cross-platform 64-bit support, and create stunning HDR images for video backdrops. Design cutting-edge looks for interactive web content and experiences. Create 3D artwork, warped graphics, and realistic painting effects for all your projects.What's new in this version:
Photoshop greatly expands the toolset that Adobe offers in its flagship product, charting new ways to make image manipulation easier while making older tools work better than before.
Photoshop has been in the English lexicon as a term to edit images for a long time, but the latest version of Adobe's flagship program stretches the canvas of manipulation much further than ever before. The look of the program has changed so little from Photoshop that users of that version should be instantly comfortable with this major update, but Photoshop Creative Suite gives photographers, artists, designers, and LOLcats obsessives a stunning array of new tools. Among the new features in Adobe's flagship image-editing software are automatic lens corrections, High Dynamic Range toning, automated editing tools, and significant improvements to creating 3D images.
Photoshop gives you the ability to work more productively, edit with unrivalled power, and composite with breakthrough tools.
New features for productivity include:

• Streamlined interface
• Improved Camera RAW
• Better control over print options
• Enhanced PDF support
• Better management with Adobe Bridge

Editing tools new to are the Clone Source palette and nondestructive Smart Filters. Other features such as the Brightness/Contrast adjustment and Vanishing Point module were enhanced.
Photoshop's Black and White adjustment option improves users control over manual grayscale conversions with a dialog box similar to that of Channel Mixer. Compositing is assisted with Photoshop's new Quick Selection and Refine Edge tools and improved image stitching technology.
Semoga bermanfaat yaah temann :)

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikanlah Kasus Berikut :
JUDUL SOAL : http://www.mesran.blogspot.com/2013/06/cara-menjawab-quiz-online-semester-ii.html

Berikut Jawaban Program :

1.

#include"iostream.h"

void main(){

        int i;

        for(i=5;i>=1;i--)

              cout<<i<<'_';

}

2.

#include"iostream.h"

#include"conio.h"

                void main()

{

float jp,disc=0;

clrscr() ;

cout<< "menghitung discount----------------------\n";

cout<<" masukan jumlah penjualan :";

cin>>jp;

if(jp>5000000);

disc=10 * jp ;

cout << " nilai discount yaitu :" << disc;

}