Komunitas Progaming, Software, Perbaikan Komputer, Gaming, Musik, dll
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Like Page
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Musik
Blog Sahabat
»alijenggot

»Tips dan Trik Lengkap
Latest topics
» Contoh Program Aplikasi Sistem Informasi Absen Siswa
Wed Apr 23, 2014 12:33 pm by Admin

» Cara mengedit profil Account
Thu Apr 17, 2014 9:02 am by Admin

» Cara Registrasi Member
Thu Apr 17, 2014 8:01 am by Admin

» Cara membuat Playlist Musik Website dan Blog
Wed Apr 16, 2014 5:21 am by Admin

» Di Butuhkan New Moderator
Tue Apr 15, 2014 11:40 am by Admin

» Memperbaiki Print cannon IP1880 Series
Tue Apr 15, 2014 11:18 am by Admin

» Curhat lepi & kompi disni
Tue Apr 15, 2014 10:05 am by alijenggot

» Program remote destop menggunakan TightVNC
Tue Apr 15, 2014 10:00 am by alijenggot

» Kumpulan Program Teksnisi Komputer
Tue Apr 15, 2014 9:45 am by alijenggot

Keywords

Share | 
 

 Pemograman Bahasa Pascal dengan If Then

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Admin
Admin
Admin
avatar

Posts : 47
Join date : 08.04.14
Age : 29

PostSubyek: Pemograman Bahasa Pascal dengan If Then   Sat Apr 12, 2014 9:57 pm

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:


Code:
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://dkcode.indonesianforum.net
 
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
Cyber Community  :: Forum Informatika :: Forum Membahas Semua Jenis Programming :: Forum Membahas Algoritma, pemograman terstruktur dan Pascal-
Navigasi: