Dumay Community


Komunitas Progaming, Software, Perbaikan Komputer, Gaming, Musik, dll
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Like Page
Tinggalkan Jempol Kalian di Forum INI


Login
Username:
Password:
Login otomatis: 
:: Lupa password?
User Yang Sedang Online
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 10 pada Fri Aug 26, 2016 7:04 pm
Clock
Top posters
Admin
 
buginese
 
harex
 
suliswanto
 
Prisa
 
alijenggot
 
XXX
 
joecow
 
safana
 
ilmu komputer
 
Latest topics
» Kenalan Yuk Semua...
Wed Apr 30, 2014 10:33 am by Bagus Rio Dwi Mayvando

» Aplikasi Program TU Sekolah
Mon Apr 07, 2014 9:35 am by Admin

» ESET NOD32 Antivirus 5 Full Crak
Mon Apr 07, 2014 7:55 am by Admin

» Cara Install Anti Virus NOD32 Full Crak
Mon Apr 07, 2014 12:07 am by Admin

» Menampilkan File Flasdisk yang Terhiden
Sun Apr 06, 2014 8:53 pm by Admin

» bahasa pemprogaman Pascal
Thu Dec 19, 2013 11:13 pm by julpiyanur

» bahasa pemprogaman Pascal
Thu Dec 19, 2013 11:08 pm by julpiyanur

» bahasa pemprogaman Pascal
Thu Dec 19, 2013 11:06 pm by julpiyanur

» Membuat Folder Lock Sederhana
Sat Jun 22, 2013 10:12 am by DK.pujangga

My Banner
Kolom blog tutorial
Tukeran link yuuk..
Silahkan copas code dibawah ini,,



Share | 
 

 Pemograman Bahasa Pascal dengan If Then

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Admin
Admin
Admin
avatar

Posts : 179
Join date : 01.04.09
Age : 29
Location : Bumiku tercinta

PostSubyek: Pemograman Bahasa Pascal dengan If Then   Fri Apr 24, 2009 10:10 am

Di sini saya dapat tugas dari dosen untuk membuat program data,nilai mahasiswa dan membuat program bisokop dengan mengunakan bahasa pascal. Dengan mengunakan If Then.

1. Buat program untuk input nama dan nilai mahasiswa dengan ketentuan:

Nilai > = 85 nilai huruf A

Nilai > = 75 nilai huruf B

Nilai > = 60 nilai huruf C

Nilai > = 50 nilai huruf D

Output/Tampilan

Nama :

Nilai :

Nilai Huruf :

1. 2. Buat program Bioskop dan input no_studio dengan ketentuan:

No studio = 1 judul film = ayat-ayat cinta

No studio = 2 judul film = jumpe

No studio = 3 judul film = CJ7

No studio = 4 judul film = DO

No studio = 5 udul film = In the name of time

Output/Tampilan

No Studio :

Judul Film :

berikut sourcecode programnya.

Program1

program nama_nilai_mahasiswa;

uses wincrt;

var

nama:string;

nilai:integer;

begin

clrscr;

writeln(’Nama dan Nilai Mahasiswa’);

writeln(’————————-’);

write(’Nama = ‘);

readln(nama);

write(’Nilai = ‘);

readln(nilai);

if (nilai >=85) then begin

writeln(’Nilai Huruf = A’);

end else if (nilai >=75) then begin

writeln(’Nilai Huruf = B’);

end else if (nilai >=60) then begin

writeln(’Nilai Huruf = C’);

end else if (nilai >=50) then begin

writeln(’Nilai Huruf = D’);

end else if (nilai <50) then begin

writeln(’Nilai Huruf = E’);

end;

readln;

end.

program2

program bioskop;

uses wincrt;

var

no_studio:integer;

begin

clrscr;

writeln(’Bioskop 2in1′);

writeln(’————’);

write(’No Studio =’);

readln(no_studio);

if (no_studio =1) then begin

writeln(’Judul Film = Ayat-Ayat Cinta’);

end else if (no_studio =2) then begin

writeln(’Judul Film = Jumper’);

end else if (no_studio =3) then begin

writeln(’Judul Film = CJ7′);

end else if (no_studio =4) then begin

writeln(’Judul Film = DO’);

end else if (no_studio =5) then begin

writeln(’Judul Film = In the name of love’);

end;

readln;

end.

_________________
Sesuatu Akan Terasa Sangat Berharga, Apabila Sesuatu Itu Telah Pergi Dari Hidup Kita. Kesempurnaan Hanya Milik ALLAH Semata

Kembali Ke Atas Go down
Lihat profil user http://dumay.forum.st
 
Pemograman Bahasa Pascal dengan If Then
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Dumay Community :: FORUM TEKNIK INFORMATIKA :: Forum Membahas Semua Jenis Programming :: Forum Membahas Algoritma, pemograman terstruktur dan Pascal-
Navigasi: