Dumay Community
Dumay Community
Dumay Community
Would you like to react to this message? Create an account in a few clicks or log in to continue.


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


Similar topics
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
User Yang Sedang Online
Total 2 uses online :: 0 Terdaftar, 0 Tersembunyi dan 2 Tamu

Tidak ada

User online terbanyak adalah 20 pada Sun Feb 04, 2024 3:26 am
Clock
Top posters
Admin
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
buginese
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
harex
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
suliswanto
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
Prisa
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
alijenggot
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
XXX
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
joecow
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
safana
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
ilmu komputer
Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15Program Bahasa Pascal “While - Do” I_back15 
Latest topics
» Kenalan Yuk Semua...
Program Bahasa Pascal “While - Do” EmptyWed Apr 30, 2014 10:33 am by Bagus Rio Dwi Mayvando

» Aplikasi Program TU Sekolah
Program Bahasa Pascal “While - Do” EmptyMon Apr 07, 2014 9:35 am by Admin

» ESET NOD32 Antivirus 5 Full Crak
Program Bahasa Pascal “While - Do” EmptyMon Apr 07, 2014 7:55 am by Admin

» Cara Install Anti Virus NOD32 Full Crak
Program Bahasa Pascal “While - Do” EmptyMon Apr 07, 2014 12:07 am by Admin

» Menampilkan File Flasdisk yang Terhiden
Program Bahasa Pascal “While - Do” EmptySun Apr 06, 2014 8:53 pm by Admin

» bahasa pemprogaman Pascal
Program Bahasa Pascal “While - Do” EmptyThu Dec 19, 2013 11:13 pm by julpiyanur

» bahasa pemprogaman Pascal
Program Bahasa Pascal “While - Do” EmptyThu Dec 19, 2013 11:08 pm by julpiyanur

» bahasa pemprogaman Pascal
Program Bahasa Pascal “While - Do” EmptyThu Dec 19, 2013 11:06 pm by julpiyanur

» Membuat Folder Lock Sederhana
Program Bahasa Pascal “While - Do” EmptySat Jun 22, 2013 10:12 am by DK.pujangga

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



 

 Program Bahasa Pascal “While - Do”

Go down 
2 posters
PengirimMessage
Admin
Admin
Admin
Admin


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

Program Bahasa Pascal “While - Do” Empty
PostSubyek: Program Bahasa Pascal “While - Do”   Program Bahasa Pascal “While - Do” EmptyFri Apr 24, 2009 10:10 am

program berikut ini akan menghitung nilai rata-rata dari sejumlah data yang akan dimasukkan. Jumlah dari data dimasukkan dan akan dilakukan perulangan sebanyak jumlah data tersebut untuk menanyakan nilai masing-masing data dan menghitung totalnya.

berikut sourcecode programnya.

program hitung;

uses wincrt;

var

nilai,total,ratarata : real;

n,i : integer;

begin

clrscr;

write(’jumlah data? ‘);

readln(n);

writeln;

i:=0;

total:=0;

while i < n do

begin

i:=i+1;

write(’nilai data ke’,i,’?');

readln(nilai);

total:=total + nilai;

end;

ratarata:=total/n;

writeln;

writeln(’Total Nilai =’,total:8:2);

writeln(’Jumlah Data =’,n:3);

writeln(’Rata-rata Nilai =’,ratarata:8:2);

end.
Kembali Ke Atas Go down
https://dumay.forum.st
InformaticsSider
Members
Members
InformaticsSider


Posts : 5
Join date : 31.10.11
Age : 30
Location : Bandung, Indoneisa

Program Bahasa Pascal “While - Do” Empty
PostSubyek: [ASK]   Program Bahasa Pascal “While - Do” EmptyTue Nov 01, 2011 12:44 am

Kak Admin, maaf nih saya mau tanya,,, kalo buat logo atau lambang pokoknya gambar lah, pake perulangan itu gimana????

contoh :
uses crt;
var
i,nj : integer;
begin
readln (n)
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
write ('*');
end;
writeln;
end;
end;
end.

Nah, biar tanda '*' itu mbentuk lambang swastika (NAZI) caranya gmana ya???
Kembali Ke Atas Go down
 
Program Bahasa Pascal “While - Do”
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Program Bahasa Pascal (Procedure)
» bahasa pemprogaman Pascal
» Pemograman Bahasa Pascal dengan If Then

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: