konversi suhu nomor 5 pascal

uses crt;
var
f,k,c,r,pil : integer;
menu : string;
label awal,akhir,tengah;
begin
awal:
clrscr;
writeln('===KONVERSI SUHU===');
writeln('1.celcius ke fahrenheit');
writeln('2.celcius ke kelvin');


writeln('3.clcius ke reamur');
writeln('4.exit');
writeln('masukkan jenis pilihan anda = ');readln(pil);
case pil of

1:begin
clrscr;
writeln('celcius ke fahrenheit ');
write ('masukkan nilai celcius = ');readln(c);
f := 9 mod 5 * c + 32 ;
writeln(c,' derajat celcius = ',f,' derajat fahrenheit');
readln;
end;
2:begin
clrscr;
writeln('celcius ke kelvin');
write('masukkan nilai celcius = ');readln(c);
k := c + 273;
writeln(c,' derajat celcius = ',k,' derajat kelvin');
readln;
end;
3:begin
clrscr;
writeln('celcius ke reamur');
write('masukkan angka celcius = ');readln(c);
r:= 4 mod 5 * c ;
writeln(c,' derajat celcius = ',r,' derajat reamur');
readln;
end;
4:begin
akhir:
clrscr;
writeln('exit');
gotoxy(32,12);writeln('terimakasih');
readln;
goto tengah;
end;
else
writeln('tidak ada menu');
end;
write('apakah anda ingin kembali ke menu y/t = ');readln(menu);
if menu = 'y' then
goto awal
else
goto akhir;
readln;
tengah:
end.

tugas pascal 1-5 bu marliza

FOR...DOWNTO...DO

uses crt;
var y: integer;
begin
clrscr;
for y := 15 downto 1 do
writeln (y);
readln;
end.

REPEAT..UNTIL..

uses crt;
var
nilai : integer;
begin
clrscr;
nilai:=0;
repeat
writeln (nilai);
nilai:= nilai +1;
until nilai > 15;
readln;
end.

FOR ...TO...DO..

uses crt;
var x,n,y : integer;
begin
clrscr;
for x := 1 to n do
begin
for y := 1 to x do
begin
write(y);
end;
writeln;
end
readln;
end.




IF...THEN...

uses crt;
var
a : integer;
b : string;
begin
clrscr;
write ('Masukkan Nilai anda : ');readln(a);
if a >= 70 then
writeln('bagus')
readln;
end.

WHILE..DO..BEGIN

uses crt;
var a: integer;
begin
clrscr;
a :=0;
while(a <=5) do begin
writeln( A);
A :=A+1;
readln;
end;
end.


WHILE..DO
uses crt;
begin
a : integer;
begin;
clrscr;
a := 1;
while a <= 20 do
begin
write(a);
digit:= a +1;
readln;
end;
end.

CASE ...OF

uses crt;
var
menu :char;
begin;
clrscr;
writeln('=====menu=====');
writeln('1.menu 1');
writeln('2.menu 2');
writeln('exit');
write('masukkan pilihan anda = ');readln(menu);
case menu of
1:begin
clrscr;
writeln('menu 1');
end;
2:begin
clrscr;
writeln('menu 2');
end;
3:begin
clrscr;
writeln('exit');
end;
readln;
end.
end;
readln;

manusia dan penderitaan

manusia sebagai makhluk tuhan yang paling sempurna juga tidak luput dari penderitaan yang dialaminya sepanjang hidupnya. tetapi penderitaan seseorang dengan orang lainnya itu berbeda beda. penderitaan itu sesungguhnya adalah buah ujian dari Allah swt agar menjadikan manusia itu lebih bertakwa kepada Allah swt.
penderitaan seorang miskin misalnya, dia tidak pernah makan enak bukan hanya untuk makan tetap untuk tidur saja dia tidak tau harus dimana. itulah penderitaan orang miskin.
knp Allah menciptakan orang miskin ??
itu semua karena Allah ingin menjadikan manusia di bumi ini menjadi seorang pemimpin yang sabar dan kuat menghadapi ujian ujian yang di berikannya seperti layaknya nabi2 pada jaman dulu.
penderitaan tidak hanya kemiskinan saja tetapi manusia menderita juga ada karena penyakit atau depresi berat.
semua itu selalu kembali kepada setiap manusia itu sendiri bagai mana cara menghadapi penderitaan.
banyak orang yang tidak kuat hidup menderita dan mencoba berbagai cara untuk hidup layak dengan membaut kriminalitas. terjadi pencurian perampokan sampai pembunuhan. itu semua terjadi karena manusia itu sendiri tidak kuat menghadapi ujian penderitaan dari Allah swt

manusia dan keindahan

dalam kehidupan manusia setiap manusia memandang keindahan itu dengan berbagai macam cara. ada yang memandang seni lukisan telanjang itu adalah seni yang menjiwai sangat tinggi ada juga yang menilai itu adalah hal yang porni dan tidak layak di tampilkan.
dalam pandangan manusia terhadap keindahan dapat dilihat bahwa manusia dapat saja menyalah artikan keindahan itu sebagai sesuatu karya seni misal saja pembangunan villa yang sangat bagus dan indah di puncak. menurut yang membangun villa itu sangatlah indah tetapi apakah menurut orang lain villa itu indah atau bahkan menurut orang lain villa itu sangat jelek dan rusak karena merusak keindahan alam sekitar dan menjadikan tempat itu rusak. bisa saja keindahan menurut padngan orang itu berbeda beda tergantung si orang itu melihat dari sudut mana keindahan itu di lihat.

manusia dan harapan

diamana saja dan kapan saja setiap manusia tentu saja mempunya harapan yang ingin sekali di kabulkan. dan harapan itu tidak hanya dapat di ambil dengan ucapan semata tetapi harus dilakukan dengan usaha dan doa agar harapan yang kita inginkan dapat di kabulkan oleh Allah swt.
dalam blog yang saya baca terungkap kisah seorang ayah tiri yang sangat mencintai anaknya, padahal anak itu bukanlah anak ayah terseut melainkan anak dari seorang pembantu yang dia asuh agar si anak tersebut dapat menjadi orang yang sukses di kemudian harinya.
tetapi si anak ini tidak menghargai usaha ayah tirinya untuk menyekolahkannya sehingga anak ini kabur.
si ayah setiap hari selalu berharap agar anak itu kembali ke pelukkannya karena ayah ini sangat menyayangi anak ini meski bukan anakna. ayah ini juga berharap si anak ini bisa dapat melanjutkan sekolahnya hingga selesai kuliah dan menjadi orang yang sukses di kelak kemudian hari. setiap hari si ayah selalu berdoa sampai sampai menulis di blognya sendiri jika si anak itu membaca dia ingin sekali anak tirinya itu melanjutkan kuliahnya meski tidak tinggal bersama dirinya

manusia dan harapan

manusia dan tanggung jawabnya

di ulas dari sebuah blog pribadi tentang tanggung jawab manusia disini saya akan menceritakan tentang tanggung jawab seorang anak kepada orang tuanya. di dalam blog itu terlihat sekali rasa tanggung ajawab anak2 dari seorang ibu yang setia melayani dan merawat ibunya yang sedang patah tulang dan tidak bisa melihat lagi. mungkin itu sebuah tanggung jawab dan kewajiban anak mengurus orang tuanya saat orang tua itu membutuhkan.
setelah si ibu ini patah tulang anak2nya merawat ibu ini dengan penuh keikhlasan dan rasa hormat. meski ibu ini kembali seperti anak kecil yang banyak maunya tetapi anak2nya tetap merawat ibu ini hingga kaki yang patahnya itu sembuh kembali
itulah rasa tanggung jawab seorang anak kepada ibunya dihari esok saat seorang ibu sudah menjadi nenek sekarang ibu itu adalah tanggung jawab dari putra dan putrinya.

manusia dan pandangan hidpnya terhadap sesuatu

setiap manusia di muka bumi ini memiliki pandangan hidup yang berbeda beda ada yang mengatakan hal ini benar ada juga yang mengatakan hal ini salah begitu sebaliknya di dalam blog yang saya baca pandangan hidup seorang anak yang baru saja menginjak dewasa dan mulai belajar tentang agama tidak tau sama sekali awalnya tentang agama yang dia anut, itu semua terjadi karena pengaruh dari ibunya yang tidak pernah mengajarkannya beribadah menurut agamanya sendiiri tetapi si ibu ini lebih mementingkan megnikutin agama cara cara hidup agama orang lain yang menurut dirinya itu lebih baik dari pada agama yang dia anut sekarang.
di suatu ketika anak ini berfikir kenapa menjadi seorang anak muslim tidak pernah melakukan hal hal yang mencerminkan seorang muslim bahkan orang tuanya tidak pernah mengajarkan tentang islam kepadanya. sehingga si anak ini mencoba untuk belajar sendiri di mulai dari mengaji di rumah tetangganya dan sholat mengikuti ayahnya. meski demikian si anak ini tetap saja takut kepada ibunya yang melarang dia pergi ke masjid untuk beribadah. ,menurut dia islam adalah agama yang sangat dia sukai karena ada berbagai macam ibadah yang tidak membuatnya jenuh.meski ibunya mendidik dia dengan carta katholik tetapi tetap saja pandangan hidup dia tetap tertuju kepada islam

manusia dan cinta kasihnya terhadap sesama

Di dalam kehidupannya manusia tidak lepas dari rasa cinta terhadap sesama yang mencerminkan bahwa sesama manusia itu memiliki rasa cinta kasih terhadap sesama yang sangat kuat. membahas tentang cinta dan kasi sayank manusia terhadap sesama ssaya terinspirasi dari baccan blog lain yang menceritakan betapa sesungguhnya seorang ibu yang sangat mencintai anaknya yang berjuang mencari anaknya sampai ke bali. memang anaknya itu dalam keadaan yang sangat berbeda dengan yang lainnya bisa disebut agak idiot tetapi rasa sayank seorang ibu terhadap anak tidaklah pernah putus bahkan sampai musti mencarinya bertahun2. dan mungkin karena doa dan usahanya maka Allah swt menemukan mereka kembali di pulau bali. entah bagaimana caranya anak ini bisa kebali tetapi rasa cinta kasih seorang ibu dan atas berkat izin Allah lah mereka di pertemukan lagi.
bukan hanya itu si ibu ini juga harus mengasuh anak perempuannya yang sama cacat mental juga hingga dewasa.

disini menunnjukan bahwa sesungguhnya manusia tidak lepas dai cinta kasih antar sesama dan cinta kasih yang peling besar di manusia adalah cinta kasih seorang ibu terhadap anaknya.

SEDIKIT CONTOH TENTANG KODING PASCAL

uses crt;
var
a,b,c : integer;
begin
clrscr;
write ('Masukan bilangan 1 : ');readln(a);
write ('Masukan bilangan 2 : ');readln(b);
c :=1;
while c<=b do
begin
write (a*c,' ' );
c:=c+1;
end;
readln;
end.