Subscribe tidak dipungut bayaran, mari dukung saya dengan klik tombol subscribe.
Script berikut menerapkan penggunaan procedure serta statemen Repeat-Until dan Case-Of untuk membangun sebuah kalkulator sederhana menggunakan Bahasa Pascal. Untuk lebih jelasnya silahkan dicoba sendiri listing berikut :
Program Calculator;
uses wincrt;
const
Kol = 10; kol2=35;
Var
Bil1,Bil2,Bil3,Pilih : Integer;
procedure masukkan;
begin
clrscr;
gotoxy(kol2,4);writeln('----------------------');
gotoxy(kol2,5);writeln(' Masukan Bilangan ');
gotoxy(kol2,6);writeln('----------------------');
gotoxy(kol2,7);writeln('Bilangan 1 : ');
gotoxy(kol2,8);writeln('Bilangan 2 : ');
gotoxy(kol2,9);writeln('----------------------');
gotoxy(kol2,10);writeln('Hasil Operasi : ');
gotoxy(kol2,11);writeln('----------------------');
gotoxy(kol2+20,7);readln(bil1);
gotoxy(kol2+20,8);readln(bil2);
end;
Procedure Tambah;
begin
masukkan;
bil3 := bil1 + bil2;
gotoxy(kol2+20,10);writeln(bil1,'+',bil2,'=',bil3);
readln;
end;
Procedure Kurang;
begin
masukkan;
bil3 := bil1 - bil2;
gotoxy(kol2+20,10);writeln(bil1,'-',bil2,'=',bil3);
readln;
end;
Procedure Kali;
begin
masukkan;
bil3 := bil1 * bil2;
gotoxy(kol2+20,10);writeln(bil1,'*',bil2,'=',bil3);
readln;
end;
Procedure bagi_bulat;
begin
masukkan;
bil3 := bil1 div bil2;
gotoxy(kol2+20,10);writeln(bil1,'div',bil2,'=',bil3);
readln;
end;
Procedure Sisa_bagi;
begin
masukkan;
bil3 := bil1 mod bil2;
gotoxy(kol2+20,10);writeln(bil1,'mod',bil2,'=',bil3);
readln;
end;
(* Program Utama *)
begin
repeat
clrscr;
gotoxy(kol,4); writeln('--------------------------');
gotoxy(kol,5); writeln('Operasi Bilangan Bulat');
gotoxy(kol,6); writeln('--------------------------');
gotoxy(kol,7); writeln('1. Penambahan');
gotoxy(kol,8); writeln('2. Pengurangan');
gotoxy(kol,9); writeln('3. Perkalian');
gotoxy(kol,10);writeln('4. Pembagian Integer {Div} ');
gotoxy(kol,11); writeln('5. Sisa Hasil Bagi {Mod} ');
gotoxy(kol,12); writeln('6. Selesai');
gotoxy(kol,13); writeln('--------------------------');
gotoxy(kol,14); writeln('Pilihan Anda [1..6] : [ ] ');
gotoxy(kol,15);writeln('--------------------------');
gotoxy (kol+25,14);readln(pilih);
case pilih of
1 : Tambah;
2 : Kurang;
3 : Kali;
4 : Bagi_bulat;
5 : Sisa_bagi;
end;
until pilih = 6;
end.
Bagikan artikel ini:
Artikel ini dilidungi oleh DMCA Takedown Services & Website Content Protection. Dilarang Copy-Paste.
Yang mau ngajakin ngopi silahkan klik
Hai teman-teman, jangan lupa subscribe Channel Youtube saya.
Subscribe tidak dipungut bayaran, mari dukung saya dengan klik tombol subscribe.
Like Facebook Wira Loksado dengan menekan tombol "Suka" di bawah ini agar tetap update informasi terbaru:
Just want to say what a great blog you got here!
I’ve been around for quite a lot of time, but finally decided to show my appreciation of your work!
Thumbs up, and keep it going!
Cheers
Christian, watch south park online
… [Trackback]
[…] Find More on|Find More|Find More Informations here|There you will find 23199 additional Informations|Infos to that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Read More here|Read More|Read More Infos here|Here you will find 9676 more Infos|Informations to that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Read More on|Read More|Find More Infos here|There you can find 61994 additional Infos|Infos on that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Read More here|Read More|Find More Informations here|Here you will find 71967 more Informations|Infos on that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Find More on|Find More|Find More Informations here|Here you can find 97821 additional Informations|Informations on that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Find More on|Find More|Read More Infos here|Here you can find 20776 additional Infos|Informations to that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Read More here|Read More|Find More Informations here|Here you will find 44252 additional Informations|Infos to that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Read More on|Read More|Read More Infos here|There you can find 17628 more Infos|Informations to that Topic: blog.loksado.com/kalkulator-pascal […]
… [Trackback]
[…] Read More here|Read More|Find More Infos here|Here you will find 66453 more Infos|Informations on that Topic: blog.loksado.com/kalkulator-pascal […]
Well I truly liked reading it.This tip offered by you is very effective for accurate planning. Rules of Survival Cheat
Please let me know if you’re looking for a article writer for your blog.You have some really great posts and I think I would be a good asset.If you ever want to take some of the load off, I’d love to write some material for your blog in exchange for a link back to mine.Please send me an email if interested.Thanks! Destiny 6 Cheat
… [Trackback]
[…] Find More on|Find More|Read More Informations here|There you can find 98991 additional Informations|Infos on that Topic: blog.loksado.com/kalkulator-pascal […]
There are some fascinating cut-off dates in this article but I don’t know if I see all of them middle to heart.There may be some validity but I will take maintain opinion till I look into it further.Good article , thanks and we would like more! Added to FeedBurner as effectively Destiny 6 IOS Cheat
Today, I went to the beachfront with my children.I found a sea shell and gave it to my 4 year old daughter and said “You can hear the ocean if you put this to your ear.” She put the shell to her ear and screamed.There was a hermit crab inside and it pinched her ear.She never wants to go back! LoL I know this is completely off topic but I had to tell someone! Destiny 6 Hack
… [Trackback]
[…] Find More on|Find More|Find More Infos here|Here you can find 51468 additional Infos|Informations on that Topic: blog.loksado.com/kalkulator-pascal […]
My spouse and i have been excited that Raymond could carry out his researching while using the ideas he discovered while using the weblog.It is now and again perplexing just to be handing out procedures which some other people may have been trying to sell.So we fully grasp we have got the blog owner to thank for this.The entire illustrations you’ve made, the simple site navigation, the friendships you make it possible to create – it’s got everything wonderful, and it’s aiding our son in addition to our family imagine that the article is entertaining, which is especially essential.Thank you for the whole thing! ?????????? ? goon
I’d need to verify with you here.Which is not something I often do! I get pleasure from reading a post that can make folks think.Also, thanks for allowing me to remark! Rise Of the Kings Hack
Hi, Neat post.There is a problem with your website in internet explorer, would check this…IE still is the market leader and a good portion of people will miss your fantastic writing because of this problem. Jurassic Survival iPhone Mod
Hi, Neat post.There’s a problem with your web site in web explorer, might check this…IE nonetheless is the market leader and a large element of people will miss your great writing due to this problem. Dream League Soccer 2018 Cheat
Hiya, I’m really glad I have found this information.Nowadays bloggers publish just about gossips and internet and this is really frustrating.A good site with interesting content, this is what I need.Thank you for keeping this web-site, I’ll be visiting it.Do you do newsletters? Cant find it. heroes evolved codes
After research a number of of the blog posts on your website now, and I really like your method of blogging.I bookmarked it to my bookmark website checklist and will likely be checking back soon.Pls check out my web page as effectively and let me know what you think. Rules of Survival Unlimited money
I have been absent for some time, but now I remember why I used to love this blog.Thank you, I’ll try and check back more frequently.How frequently you update your site? Need For Speed No Limits APK Mod
hey there and thanks for your information – I’ve certainly picked up anything new from right here.I did alternatively experience a few technical issues the usage of this website, as I experienced to reload the site a lot of occasions previous to I could get it to load correctly.I had been considering if your web hosting is OK? Now not that I’m complaining, but sluggish loading circumstances times will often affect your placement in google and could damage your high quality ranking if advertising and ***********|advertising|advertising|advertising and *********** with Adwords.Anyway I’m including this RSS to my e-mail and can look out for a lot more of your respective interesting content.Make sure you update this once more soon.. Transformers Earth Wars unlimited cyber coins
I’m impressed, I need to say.Actually rarely do I encounter a blog that’s both educative and entertaining, and let me let you know, you could have hit the nail on the head.Your idea is excellent; the problem is something that not enough persons are talking intelligently about.I’m very happy that I stumbled across this in my seek for one thing referring to this. jurassic survival guide by heather dakota
I am really impressed with your writing skills and also with the layout on your blog.Is this a paid theme or did you customize it yourself? Anyway keep up the nice quality writing, it’s rare to see a great blog like this one today.. Heroes Evolved Apk Hack Mod
Good post however I was wondering if you could write a litte more on this topic? I’d be very grateful if you could elaborate a little bit further.Kudos! Last Day On Earth Hack
obviously like your web site however you need to check the spelling on several of your posts.A number of them are rife with spelling problems and I to find it very troublesome to tell the truth nevertheless I’ll surely come back again. Cooking Fever hack for android
Hello.This article was really interesting, especially since I was investigating for thoughts on this issue last Thursday. Jurassic Survival Hack
There’s noticeably a bundle to learn about this.I assume you made certain nice points in options also. Rules of Survival Android Cheat
Awesome blog! Do you have any suggestions for aspiring writers? I’m planning to start my own website soon but I’m a little lost on everything.Would you advise starting with a free platform like WordPress or go for a paid option? There are so many options out there that I’m totally confused ..Any tips? Thanks! ??????? goon ???? 1 ??? 1
Superb blog you have here but I was curious if you knew of any message boards that cover the same topics talked about here? I’d really love to be a part of group where I can get suggestions from other experienced individuals that share the same interest.If you have any recommendations, please let me know.Thanks! Game Mod Hack
Greetings from Ohio! I’m bored at work so I decided to check out your site on my iphone during lunch break.I really like the information you present here and can’t wait to take a look when I get home.I’m shocked at how fast your blog loaded on my phone ..I’m not even using WIFI, just 3G ..Anyhow, amazing blog! Jurassic Survival Cheat Apk
I simply couldn’t leave your site prior to suggesting that I actually enjoyed the standard info an individual supply for your guests? Is gonna be again frequently in order to inspect new posts Heroes Evolved Apk Hack Mod
There’s noticeably a bundle to learn about this.I assume you made certain nice points in options also. Knives Out android trainer tool
There’s noticeably a bundle to learn about this.I assume you made certain nice points in options also. The Sims FreePlay mod apk
Hey there, You’ve done a great job.I will definitely digg it and personally suggest to my friends.I am sure they’ll be benefited from this website. Heroes Evolved Cheat
Hi my friend! I want to say that this article is awesome, nice written and come with almost all vital infos.I would like to see more posts like this . Heroes Evolved Generate Coins
I’ve been exploring for a bit for any high-quality articles or blog posts on this kind of area .Exploring in Yahoo I at last stumbled upon this web site.Reading this information So i’m happy to convey that I have an incredibly good uncanny feeling I discovered just what I needed.I most certainly will make certain to don’t forget this website and give it a glance regularly. Jurassic Survival Hack
I’m no longer sure where you are getting your information, however good topic.I must spend some time learning more or figuring out more.Thanks for magnificent information I used to be on the lookout for this info for my mission. Jurassic Survival Apk Hack
My brother suggested I might like this web site.He was totally right.This post actually made my day.You cann’t imagine simply how much time I had spent for this information! Thanks! Dream League Soccer 2018 online cheats
Wow! This can be one particular of the most useful blogs We have ever arrive across on this subject.Basically Fantastic.I’m also an expert in this topic therefore I can understand your hard work. Way to Cheat Jurassic Survival
Keep working ,remarkable job! Board Game Hack
There are some fascinating cut-off dates in this article but I don’t know if I see all of them middle to heart.There may be some validity but I will take maintain opinion till I look into it further.Good article , thanks and we would like more! Added to FeedBurner as effectively how to download world war heroes hack tool
My partner and I absolutely love your blog and find the majority of your post’s to be just what I’m looking for.Do you offer guest writers to write content for you personally? I wouldn’t mind writing a post or elaborating on many of the subjects you write in relation to here.Again, awesome blog! world war heroes mod hack
There are definitely a number of details like that to take into consideration.That is a great level to convey up.I offer the ideas above as normal inspiration but clearly there are questions like the one you carry up the place crucial thing shall be working in trustworthy good faith.I don?t know if greatest practices have emerged round issues like that, however I’m positive that your job is clearly identified as a good game.Both girls and boys really feel the influence of only a moment’s pleasure, for the rest of their lives. The Sims FreePlay unblocked games