ZULPEDIA

Juhha's Wonders - Tugas Bahasa Inggris

Assalamu’alaikum Wr. Wb

Bismillahirrahmanirrahim.

Hello friend, Thanks for the opportunity given to me. Today I’d like to tell you a story. It’s about a wise man when he solve a problem in his village. The tittle is Juhha’s Wonder.

Once upon a time, there was a very small village in Baghdad. Its population is very small. In this village everybody knew each other and knew every little or big problems that went on in the village. In this small village there was a bakery, which was popular for its delicious bread. Mmmmm, yummy.

One day a poor old man was walking in the street passing the bakery and he stopped to smell the scent of the bread which was spreading out of the bakery.

(the poor old mand walked along the street, andsuddenly stopped when he smell the bread’s scent)
(mmmm, delicious!) (It’s a veeery delllicious bread scent, if I could eat that bread)

Suddenly, the baker caught the old man and shouted at him demanding the price of the bread's smell?!!? He nearly took him to the police.

(whuaahhahahaha, hey you oldman!) (Why are you standing in front of my bakery?)

(a, a, a,) (I just stopped to smell the delicous bread scent)

(You know!, My bread is the most very famous delicious bread, and every scent, every grain of starch in my bakery is delicious!) (AND It’s not free!) (You should pay for the bread scent!)

(Pe, Pe, Paying the bread scent?) (I have no money for that, I don’t know if smelling your bread scent I have to pay for it)

(YOU SHOULD PAY IT POOR OLD MAN!!)
A very famous wise man named Juhha heard the baker shouting. So, he went to him and asked about the problem.

(what’s is that?) (I hear someone was shouting loudly)

(Hey, you are you shouting at this oldman?) (what’s wrong with he?) (Is there any problem?)

(He smell my bread scent, and He should pay for it!)

(I don’t know if smelling the bread scent, means I have to pay for it, I have no money)

(Oooo,) (okey)

Juhha stood calmly listening to the baker and he thought of a solution.

((hard thinking)
After a few minutes Juhha's eyes glittered and an amused smile was on his face.

Ahha!

He asked the baker "How much money do you want?" The baker and poor old man were astonished

the baker demanding the price of the bread scent. and answered "3 dinar". Juhha took the money out of his wallet and putted it in his pocket and shook the money. (criiik, criiik) "Did you hear the sound of the money?" Juhha asked. "Yes I did", the baker replied, and with a big smile Juhha said "Well then, this is the price of your bread's scent!

Pengetahuan tentang kode Pascal

a. Write
Digunakan untuk mencetak beberapa buah item ke monitor komputer dengan berurutan dan secara otomatis pascal menempatkan kursor ke sebelah kanan terakhir. Rumus umumbya adalah: write (item1, item2, item3…). Item ini dapat berupa angka, karakter, string, nilai boolean, variable dan ekspresi.
Perhatikan contoh dibawah ini !
Contoh Write:
____________________________________________________
Program menggunakan_write; uses wincrt;car
angka1:real;
begin
write(‘ini program’);
write(‘turbo pascal’);
write(‘pertama saya’);
end.
____________________________________________________
Terlihat hasil kompilasi baris program pascal string ‘ini program’,'turbo pascal’, dan ‘pertama saya’ ditulis oleh program pascal dalam satu baris. Ketika pascal telah menuliskan string ‘ini program’ pascal hanya menggeser kursornya kemudian string berikutnya sedang baris programnya kita menuliskan ketiga string berbeda baris.
b. Writlen
Writeln merupakan singkatan dari write line, setelah menuliskan parameter/item/string di layar maka kursor penulisan akan langsung pindah ke basris dibawahnya atau garis baris. Perbedaan write dan writeln adalah setelah menuliskan item-item, pascal memindahkan kursor turun satu baris berikutnya (menuliskan kebasris yang baru).
Perhatikan contoh dibawah ini !
Contoh Writeln:
____________________________________________________
Program identitasku;
Uses wincrt;
Begin
Writeln (‘hay sahabat…’);
Writeln (‘apa kabar’);
Writeln (‘mau belajar pemograman ya?’);
End.
___________________________________________________
Hasil kompilasi baris program diatas menunjukkan bahwa setelah menuliskan sebuah string, pacal akan memindahkan kursornya ke baris berikutnya untuk menuliskan string berikutnya.
c. Read
Digunakan untuk membaca data yang dimasukkan oleh programmer melalui keyboard. Statemen read tidak memperhatikan batas baris, rinci data akan selalu dibaca tidak tergantung apakah ada di baris yang sama atau tidak. Rumus umumnya adalah: read (variabel1, variabel2,…). Pernyataaan ini mengharuskan anda memasukkan data melalui keyboard dan mengakhiri proses memasukkan data dengan menekan tombol Enter.
Perhatikan contoh dibawah ini !
Contoh Writeln:
___________________________________________________
Program statemen_memasukkan;
Uses wincrt;
Var
Angka1, Angka2 : integer;
Begin
Write (‘masukkan dua buah angka’);
Read (Angka1,Angka2);
Write (Angka satu adalah: ‘,angka1,’dan angka kedua adalah: ‘Angka2);
End.
____________________________________________________
d. Readln
Hampir sama dengan pernyataan Read, pernyataan Readln memindahkan kursor turun satu baris ke baris berikutnya setelah anda mengetikkan nilai variable yang ditanya oleh pascal.
Perhatikan contoh dibawah ini !
Contoh Writeln:
____________________________________________________
Program demo_readln;
Uses wincrt;
var
Angka1 : integer;
Begin
Writeln (‘masukkan satu buah angka :’);
Readln (Angka1);
Writeln (‘angka yang anda masukkan adalah:’,angka1);
End.

kode-kode bahasa pascal

perkalian

uses wincrt;
var
a,b,h:integer;
begin
writeln('===PERKALIAN===');
writeln('=================');
write('Masukan Angka Pertama = ');read(a);
write('Masukan Angka Kedua = ');read(b);
h:=a*b;
writeln('Angka Pertama * Angka Kedua = Hasil Perkalian');      writeln(a, ' x ',b, ' = ' ,h);      writeln('Hasil Operasi Perkalian Anda Adalah ',h);
end.

SEGITIGAA

program segitiga;

uses wincrt;

var alas, tinggi, sisimiring, luas, keliling : re al ;

begi n

clrscr;

writeln (‘Menghitung Luas dan Keliling Segitiga’);

writeln (‘-------------------------------------------------‘);

write (‘Masukkan nilai alas : ‘) ;

readln (alas);

write (‘Masukkan nilai tinggi : ‘) ;

readln (tinggi) ;

luas:= 0.5*alas*tinggi;

sisimiring:= sqrt (sqr(alas)+sqr(tinggi));

keliling:= alas+tinggi+sisimiring;

writeln (‘Luas Segitiga adalah : ‘, luas:3:2, ‘cm’);

writeln (‘Keliling Segitiga adalah : ‘, keliling3:2, ‘cm’);

readln;

end.

Menghitung Luas dan Keliling Lingkaran

program lingkaran;

uses wincrt;

var r, luas, keliling : real ;

begi n

clrscr;

writeln (‘Menghitung Luas dan Keliling Lingkaran’);

writeln (‘---------------------------------------------------‘)

write (‘Masukkan jari-jari lingkaran : ‘) ;

luas:= pi*sqr(r);

keliling:=2*pi*pi;

writeln (‘Luas Lingkaran adalah : ‘, luas:3:2, ‘cm’);

writeln (‘Keliling Lingkaran adalah : ‘, keliling3:2, ‘cm’);

readln;

end.3. Menghitung Luas dan Keliling Persegi Panjang

program persegi_panjang;

uses wincrt;

var alas, tinggi, luas , keliling : real ;

begi n

clrscr;

suhuuuu

LISTING PROGRAM PASCAL :

program konversi_dan_rumus;

uses wincrt;

var

C,K : integer;

Re,Fe,jari2,panjang,lebar,luas,tinggi,alas : real;

pil : char;

z,y,n:string;

label mn1,mn2,mn3;

begin

mn1:

clrscr;

gotoxy(30,3); writeln('*****MENU UTAMA******');

gotoxy(30,4); writeln('1.Konversi Suhu Udara');

gotoxy(30,5); writeln('2.Rumus Matematika');

gotoxy(30,6); writeln('3.keluar');

gotoxy(30,7); write('masukkan pilihan anda:');

readln(pil);

case pil of

'1':begin

mn2:

clrscr;

writeln('a.Celcius-Reamur');

writeln('b.Celcius-Fahrenheit');

writeln('c.Celcius-Kelvin');

writeln('d.back');

write('masukkan pilihan anda:');readln(pil);

case pil of

'a': begin

clrscr;

writeln('CELCIUS-REAMUR');

Write('Masukkan Celciusnya = '); readln(C);

Re:=4/5*C;

Writeln('Hasil Konversi Celcius-Reamur adalah = ',Re:0:2);

write('mau keluar y/t:');readln(z);

if z='y' then goto mn1

else

goto mn2;

readln;

end;

'b': begin

clrscr;

writeln('CELCIUS-FAHRENHEIT ');

write('Masukkan Celciusmya = ' ); readln(C);

Fe:=9/5*C+32;

writeln('Hasil Konversi Celcius-Fahrenheit adalah = ',Fe:0:2);

readln;

end;

'c': begin

clrscr;

writeln('CELCIUS-KELVIN ');

write('Masukkan nilai Celcius = ' ); readln(C);

K:=C+237;

writeln('Hasil Konversi Celcius-Kelvin adalah = ',K);

end;

'd':begin

goto mn1;

end;

'2':begin

clrscr;

writeln('a.segitiga');

writeln('b.lingkaran');

writeln('c.luas persegi panjang');

writeln('0.selesai');

write('masukkan pilihan anda:');readln(pil);

case pil of

'a':begin

clrscr;

write('masukkan alas:');readln(alas);

write('masukkan tinggi:');readln(tinggi);

luas:=0.5*alas*tinggi;

write('luas segitiga adalah',luas);

end;

'b':begin

clrscr;

write('masukkan jari-jari:');readln(jari2);

luas:=jari2*jari2*3.14;

write('luas lingkaran adalah',luas:0:2);

end;

'c':begin

clrscr;

write('masukkan panjang:');readln(panjang);

write('masukkan lebar:');readln(lebar);

luas:=panjang*lebar;

write('luas persegi panjang adalah',luas);

end;

'3': begin

clrscr;

Writeln('anda keluar Program');

Writeln('Terima Kasih');

readln;

end;

end.

luas dan keliling persegi panjang

writeln (‘Menghitung Luas dan Keliling Persegi Panjang’);

writeln (‘----------------------------------------------------------‘);

write (‘Masukkan nilai alas : ‘) ;

readln (alas);

write (‘Masukkan nilai tinggi : ‘) ;

readln (tinggi) ;

luas:= alas*tinggi;

keliling:= ((2*alas)+(2*tinggi));

writeln (‘Luas Persegi Panjang adalah : ‘, luas:3:2, ‘cm’);

writeln (‘Keliling Persegi Panjang adalah : ‘, keliling3:2, ‘cm’);

readln;

end

lingkaraaan

Uses Crt;
Var r,L,K:Real;
Begin
clrscr;
Write ('masukan jari-jari lingkaran(cm):');
Readln(r);
L:=pi*r*r;
K:=2*pi*r;
Writeln;
Writeln ('luas lingkaran:',L:10:2,'cm2');
Writeln ('keliling lingkaran:',K:10:2,'cm');
End.
Pada baris 7 terdapat penggunaan sintak Read(r), artinya pada baris tersebut program akan berhenti sejenak sampai user mengetikkan sebuah angka untuk nilai variabel 'r' dan menekan tombol ENTER.

Juhha's Wonders - Tugas Bahasa Inggris

Pengetahuan tentang kode Pascal

kode-kode bahasa pascal

perkalian

Menghitung Luas dan Keliling Lingkaran

suhuuuu

LISTING PROGRAM PASCAL :

PASCAAAL

Clock

Categories

Archives

Pages

Jumlah Pengunjung

ZULPEDIA

Followers

PERINGATAN !!