HEALTHY POLITICS

Home » All post

jawaban soal UTS Dreamweaver dari Antelu

Assalamu'alaikum Wr.Wb.
Selamat pagi para teman-teman satu nusa, satu bangsa, dan satu bahasa kita, yaitu INDONESIA!!!.
pada kesempatan ini saya akan membagikan jawaban dari soal yang diberikan oleh blogspot yang bernama "ANTELU". Antelu sendiri merupakan blog yang dibuat oleh guru saya sendiri yaitu Bp.puji. itu nama panggilannya, saya lupa nama lengkap beliau. langsung saja pada pembahasan soal yang diberikan oleh "ANTELU".
Silahkan ikuti langkah-langkah dibawah ini dengan teliti :

Silahkan masuk ke website Antelu : Disini
Pada halaman blog soal latihan Adobe Dreamweaver. silahkan isikan biodata anda yang telah disediakan antelu .
kemudian silahkan unduh filenya hanya ada disini.

DOWNLOAD : jawaban soal dari antelu

*Salam pascal mania & semoga bermanfaat

how to create a program in TURBO PASCAL 7.0 times

Assalamu'alaikum Wr.Wb.
Pascal mania the morning, on this occasion I will be very happy to share one unique program, that program watchmaking. This program has a second element / second and minute. this program a little bit complicated for the beginner, but I think you all must have full control of the basics of pascal program code. please understand this code one by one. and just try to practice on your software Turbo Pascal 7.0.

Please follow the steps below carefully:

Turbo pascal please open your program.
select the file - new.
And write the code as below.

program jam_var;
uses crt,dos;

procedure resikilayar;
begin
clrscr;
end;

procedure garis1(p:integer);
var i:integer;
begin
for i:=1 to p do
write ('-');
end;

procedure garis2(p:integer);
var i:integer;
begin
for i:=1 to p do
write('=');
end;

procedure kotak(b,k:integer);
var i,j:integer;
begin
for i:=1 to b do
begin
for j:=1 to k do
begin
if (j=1) or (j=k) or (i=1) or (i=b) then
write('*')
else
write(' ');
end;
writeln;
end;
end;

procedure jam;
var h,m,s,hund:word;
begin
repeat
gettime(h,m,s,hund);
gotoxy(6,3);
writeln(' ');
gotoxy(6,3);
write(h,':',s);
delay(1000);
until keypressed;
end;

procedure rka(x,y:integer;teks:string);
var pj:integer;
begin
pj:=length(teks);
gotoxy(x-pj,y);
write(teks);
end;

function kuadrat(a:integer):real;
begin
kuadrat:=a*a;
end;

function pangkat(a,b:integer):real;
var i:integer;
p:real;
begin
p:=1;
for i:=1 to b do
p:=p*a;
pangkat:=p;
end;

begin
resikilayar;
clrscr;
textbackground(red);
textcolor(white);
kotak(5,18);
writeln;
textcolor(white);
kotak(10,38);
writeln;
garis1(38);
writeln;
garis2(38);
writeln;
writeln('7 kuadrat = ',kuadrat(7):2:0);
writeln('7 pangkat = ',pangkat(7,7):2:0);
jam;
end.

then compile - compile or alt + f9 to make sure there are no errors in your program code.
If there are no errors please select run - run.
Congratulations you can make the program his own watchmaking.

* Greeting pascal mania and may be useful.

how to copy the code into the program TURBO PASCAL (. Pas)

Assalamu'alaikum Wr.Wb.
Regards the pascal mania, on this sunny morning I will give one more trick for the lovers of Turbo Pascal 7.0 software, which tricks us how to copy the program code browsing of our results and the results of our own type in our code word from a word processor, notepad, etc..
I was initially confused as to how a way that I was not tired of typing back programs that are clearly before us to Turbo Pascal. The first, I tried to copy it menual way, ie with my block all the source code and i press ctrl + c. I then paste in Turbo Pascal 7.0 software, and the result is a big zero. then I try to experiment with my own way, namely with the steps which I will explain below.
just follow the steps below carefully, so that you all can get the desired results.

How to copy the code into a program turbo pascal (. Pas) :

Please open the default Windows notepad. and a notepad window will appear as below.
Then paste the code in notepad program you want to open in Turbo pascal. I like the example program below.
Then select the menu File - Save As.
Then the Save As window will appear as below.
In the Save As window. Please select where you would like the file munyimpan. the menu file name write the name of your program as you wish and add the name. "fit". example (coba.pas). and in the Save as type menu please select All files. then select save. more details, please see the image below.

Congratulations you can now copy the source code to the form of Turbo Pascal programs.

Greeting pascal mania and may be useful.

how to program the calculator calculations using TURBO PASCAL 7.0

Assalamu'alaikum Wr.Wb.
regards the pascal mania, on a clear night, I am going to share a tutorial to make the program count or what we often refer to as the machine count CALCULATOR. in essence, we will create a program that is possessed four elements of the calculation, the first multiplication, division, addition, and the last reduction. just follow the steps below carefully.

How to make the program count CALCULATOR :

Turbo pascal you open the program.
Select the file - new.
And write the code as below.

summation program;
uses crt;
var a,b,result : real;
begin
clrscr;
write('enter the value 1 :');readln(a);
write('enter the value 2 :');readln(b);
writeln;
result:=a+b;
writeln(results from the sum: ',result;
readln;
end.

reduction program;
uses crt;
var a,b,result : real;
begin
clrscr;
write('enter the value 1 :');readln(a);
write('enter the value 2 :');readln(b);
writeln;
result:=a-b;
writeln(result of the reduction : ',result);
readln;
end.

multiplication program;
uses crt;
var a,b,result : real;
begin
clrscr;
write('enter the value 1 :');readln(a);
write('enter the value 2 :');readln(b);
writeln;
result:=a*b;
writeln(the result of multiplication : ',result);
readln;
end.

division program;
uses crt;
var a,b,result : real;
begin
clrscr;
write('enter the value 1 :');readln(a);
write('enter the value 2 :');readln(b);
writeln;
result:=a/b;
writeln(the result of the division : ',result);
readln;
end.

Then compile - compile or alt + f9 to make sure there are no errors in your program code.
If there are no errors please select run - run.
Congratulations you can make the program count yourself.

* Greeting pascal mania and may be useful.

HEALTHY POLITICS