22.38
Exz
Dapatkan panduan dan motivasi tentang langkah awal memulai bisnis online maupun oflline
Unduh segera!
tab menu artikel => bisnis
(-_-)v salam.....!!!!!
Unduh segera!
tab menu artikel => bisnis
(-_-)v salam.....!!!!!
Posted in: infoTugas PD 2
Listing Syntax Tugas PD 2 (Record+array)
useswincrt;
typedat =record
nama, jenis :string;
saldo, sisa:longint
end;
lar=array[1..50] of dat;
si=array[1..100] of longint;
var
pil,i,j:longint;
data:lar;
lagi:char;
sis,sal:si;
nam,jns:string;
label utama;
begin
utama:
clrscr;
writeln(' ============================================= ');
writeln(' Data Stock Pulsa WARUNG BAROKAH ');
writeln(' ============================================= ');
writeln;
writeln;
writeln;
writeln(' Menu program ');
writeln(' 1.Input Data');
writeln(' 2.Stock & Saldo ');
writeln(' 3.Transaksi ');
writeln(' 4.exit ');
writeln;
write(' Pilih Menu --> ');readln(pil);
case pil of
1:
begin
clrscr;
lagi:='y';
repeat
inc(i);
writeln;
writeln('Isi data ke- ',i);
write('Nama Voucher ==> ');readln(data[i].nama);
write('Jenis Voucher ==> ');readln(data[i].jenis);
write('Jumlah Saldo Yang disediakan ==> ');readln(data[i].saldo);
data[i].sisa:=data[i].saldo;
writeln;
write('Apakah mau memasukan data lagi? [y/t]');readln(lagi);
until lagi='t';
goto utama;
end;
2:
begin
clrscr;
writeln(' ------------------------------------------------------ ');
writeln(' Nama | Jenis | Saldo | Sisa ');
writeln(' -------------------------------------------------------');
for j:=1 to i do
begin
writeln('|':2,data[j].nama:4,'|':6,data[j].jenis:6,'|':7,data[j].saldo:8,'|':9,data[j].sisa:6,'|':2);
end;
readln;
goto utama; end;
3:
begin
clrscr;
Writeln;
lagi:='y';
repeat
write('Masukan Nama Voucher yang dibeli ==> ');readln(nam);
write('Masukan Jenis Voucher yang dibeli ==>');readln(jns);
for j:=1 to i do
if (nam = data[j].nama) and (jns=data[j].jenis) then
begin
write('Masukan Jumlah Saldo yang dibeli ==> ');readln(sal[j]);
sis[j]:=sal[j] ;
data[j].sisa:=data[j].sisa-sis[j];
readln;
goto utama;
end;
write('Voucher tidak tersedia, anda mau yang lain? [y/t]');readln(lagi);
until lagi='t';
goto utama;
end;
4:
begin
exit;
end;
end;
readln;
end.
useswincrt;
typedat =record
nama, jenis :string;
saldo, sisa:longint
end;
lar=array[1..50] of dat;
si=array[1..100] of longint;
var
pil,i,j:longint;
data:lar;
lagi:char;
sis,sal:si;
nam,jns:string;
label utama;
begin
utama:
clrscr;
writeln(' ============================================= ');
writeln(' Data Stock Pulsa WARUNG BAROKAH ');
writeln(' ============================================= ');
writeln;
writeln;
writeln;
writeln(' Menu program ');
writeln(' 1.Input Data');
writeln(' 2.Stock & Saldo ');
writeln(' 3.Transaksi ');
writeln(' 4.exit ');
writeln;
write(' Pilih Menu --> ');readln(pil);
case pil of
1:
begin
clrscr;
lagi:='y';
repeat
inc(i);
writeln;
writeln('Isi data ke- ',i);
write('Nama Voucher ==> ');readln(data[i].nama);
write('Jenis Voucher ==> ');readln(data[i].jenis);
write('Jumlah Saldo Yang disediakan ==> ');readln(data[i].saldo);
data[i].sisa:=data[i].saldo;
writeln;
write('Apakah mau memasukan data lagi? [y/t]');readln(lagi);
until lagi='t';
goto utama;
end;
2:
begin
clrscr;
writeln(' ------------------------------------------------------ ');
writeln(' Nama | Jenis | Saldo | Sisa ');
writeln(' -------------------------------------------------------');
for j:=1 to i do
begin
writeln('|':2,data[j].nama:4,'|':6,data[j].jenis:6,'|':7,data[j].saldo:8,'|':9,data[j].sisa:6,'|':2);
end;
readln;
goto utama; end;
3:
begin
clrscr;
Writeln;
lagi:='y';
repeat
write('Masukan Nama Voucher yang dibeli ==> ');readln(nam);
write('Masukan Jenis Voucher yang dibeli ==>');readln(jns);
for j:=1 to i do
if (nam = data[j].nama) and (jns=data[j].jenis) then
begin
write('Masukan Jumlah Saldo yang dibeli ==> ');readln(sal[j]);
sis[j]:=sal[j] ;
data[j].sisa:=data[j].sisa-sis[j];
readln;
goto utama;
end;
write('Voucher tidak tersedia, anda mau yang lain? [y/t]');readln(lagi);
until lagi='t';
goto utama;
end;
4:
begin
exit;
end;
end;
readln;
end.
Atau download Listing syntax (txt) di tab menu Kuliah-Tugas-Pemrograman Dasar...!!!!!
Posted in: infoTugas Pemrograman
Hasil tugas pemrograman dasar dapat dilihat di tab menu Kuliah-Tugas-Pemrograman Dasar...!!!!!
Posted in: infoHow to Make Windows 7 a Lot Faster
One of the operating systems that a lot of users prefer to use worldwide is often the Windows OS from the Microsoft Corporation. Besides practical to use, Windows also sports an interesting GUI. In fact, with some high end VGA cards, the GUI can spoil users' eyes even more. However, the bad news is that most Windows versions - including Windows 7 - often have a common problem over time. They become slow and annoying to use. But fortunately, there are ways users can approach to make their Windows 7 faster. These approaches also apply to other versions of Windows.
First of all, users need to check how much space is left free on their hard drive. If they do not seem to have enough free space, it is time to remove some installed programs. This can be done by clicking Start - Control Panel - Uninstall a program. Another option is to click Start and type appwiz.cpl.
Cleaning up the hard drive is also a good thing to do. To carry it out, users simply need to click on the Start button and then navigate to All Programs, Accessories, System Tools and click Disk Cleanup. This will bring out a small window that checks for any possible files to delete and it will then display all the files in a list.
Making changes to what services or programs Windows runs during startup is also another good idea to make Windows 7 faster. The System Configuration utility is what users will need in this case. They can launch it by clicking Start followed by typing msconfig. Here, users will first have to check the Startup section to see any programs that may turn out unnecessary to run during startup meaning they are safe to be deactivated. Then, users will also have to take a look at the Services section to find out what services they can deactivate without damaging their system.
Last but not least, another effective method to make PC run faster is by cleaning the Windows registry. To do this, users can take advantage of a third party registry cleaner. Fortunately, users have loads of options to choose from when it comes to registry cleaners these days and most of them are often quite handy in cleaning the registry. The reason why users should clean the registry to make their system faster is because the registry gets messed up over time due to installation and removal of applications. Sometimes, removing applications does not remove the entries they have made in the registry. As a result, there are more items in it Windows has to check and this slows down the system.
Article Source: http://EzineArticles.com/6169827
First of all, users need to check how much space is left free on their hard drive. If they do not seem to have enough free space, it is time to remove some installed programs. This can be done by clicking Start - Control Panel - Uninstall a program. Another option is to click Start and type appwiz.cpl.
Cleaning up the hard drive is also a good thing to do. To carry it out, users simply need to click on the Start button and then navigate to All Programs, Accessories, System Tools and click Disk Cleanup. This will bring out a small window that checks for any possible files to delete and it will then display all the files in a list.
Making changes to what services or programs Windows runs during startup is also another good idea to make Windows 7 faster. The System Configuration utility is what users will need in this case. They can launch it by clicking Start followed by typing msconfig. Here, users will first have to check the Startup section to see any programs that may turn out unnecessary to run during startup meaning they are safe to be deactivated. Then, users will also have to take a look at the Services section to find out what services they can deactivate without damaging their system.
Last but not least, another effective method to make PC run faster is by cleaning the Windows registry. To do this, users can take advantage of a third party registry cleaner. Fortunately, users have loads of options to choose from when it comes to registry cleaners these days and most of them are often quite handy in cleaning the registry. The reason why users should clean the registry to make their system faster is because the registry gets messed up over time due to installation and removal of applications. Sometimes, removing applications does not remove the entries they have made in the registry. As a result, there are more items in it Windows has to check and this slows down the system.
Article Source: http://EzineArticles.com/6169827
Posted in: OS articlesGet Rich Fast: Learn the Best Way to Make Money Online
These days, the number of people who make use of the Internet in their day to day lives has reached gigantic proportions. Billions of dollars are earned collectively every year by the companies who advertise their work on the net, plus those who have their own websites as also social networking site owners. This advent of internet use has in turn created a number of job opportunities for people who want to work and earn money, but can't go out of their homes due to some domestic responsibilities or for others like students, or those already working but just want an additional income.
There are a number of ways to make money online such as writing blogs, internet advertising, etc. If you want to earn good money online, you should first start with getting your targets and priorities straight. Make a list of goals, both short term and long term and go about working on them. Try to find out the best ways to earn money in online ventures. Learn as much as you can about online marketing, E- Commerce, the customer base etc. Then, you could think about investing your resources in an already existing online business. You could become an investor, or even opt to buy the company of your choice. As you do this, make sure that you buy only the company which earns slightly higher or as much as their target amount. If their earnings are less than what they aim for, it is a bad investment. Learn the ropes of the company's functioning, and implement your experience in your own working. Initially you may not earn as much as the company seller does, but after a month or two of experience, you have a good chance of it.
Another option would be to offer your services to existing online companies. This of course, depends upon the kind of services you can offer which in turn depends upon your personal skills and working abilities. You can work as an intern at any online company of your choice, and gain experience just as you brush up your own skills and make money too. Keep refreshing your job profile, don't remain stagnant. As you keep adding job experiences to your database, your demand will increase among online employers and your income can see a significant growth as well.
A third option is online marketing and/or advertising. Many companies these days put up their advertisements on the internet. If the ad is catchy enough, internet users will click on them to find out more and this earns money for the advertisers. Many people today shop for their requirements online. Hence, online marketing can rake in the money too.
Writing blogs has become a fad these days. You can write blogs on sites like Blogger.com and earn money depending on the number of people who read your blog. Hence, we see there are a number of ways to earn good money online, right from the comfort of our homes.
Article Source: http://EzineArticles.com/?expert=Dennis_Reldoff
Posted in: Internet and Bussines OnlineRural High Speed Internet Options - Don't Just Stick With Dial Up
When you are living out in a rural area, typically your high speed internet options are fairly limited. You might think you are stuck with dial up connections, but today there are many more options that you can consider using so that you can have faster internet speeds.
The most popular type of high speed internet for those in rural areas is satellite internet. This has as high initial cost as you need to purchase the dish and get someone to professionally install it to get you a good signal. These tend to have a higher monthly fee and data limits that you have to be careful with. You need to look for service plans that don't charge additional money if you go over the limit. The best ones will just slow down your speed as opposed to charging you more.
Some go for long range wifi. These are very tall antennas that you get installed to your home. These will pick up a wifi signal long range and are fairly reliable. You won't get as fast speeds as with other things but there are normally no limits on your data usage.
If you have a smart phone, you might be able to tether it to your computer. If you have 3g access in the rural area you live in, this is something you could use for your internet access. Most cell phone plans will limit you to about 5 gigabytes of data, but this is great compared to a dial up connection. It's not as fast as DSL or cable, but it's better than nothing.
There are also broadband cellular connections. These have very low initial cost and the monthly fees are competitive with most broadband plans. Look for plans without caps or contracts as these are starting to come out and become more popular. If you can't find one like this, you will be dealing with 5 gigabyte caps just like when tethering a phone.
Article Source: http://EzineArticles.com/?expert=Christopher_JA_Wang
Posted in: Internet and Bussines Online
.png "English"){kind=small}
