Scribd
Upload
14 views3 pages

Program HelloWorld

The document contains multiple Pascal programs demonstrating basic programming concepts such as printing 'Hello World', using loops for repetition, and performing division and modulus operations. It includes examples of nested loops to create patterns with asterisks and user input for loop limits. Each program is structured with clear variable declarations and output statements.

Uploaded by

Absen SMA Long kali
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
14 views3 pages

Program HelloWorld

The document contains multiple Pascal programs demonstrating basic programming concepts such as printing 'Hello World', using loops for repetition, and performing division and modulus operations. It includes examples of nested loops to create patterns with asterisks and user input for loop limits. Each program is structured with clear variable declarations and output statements.

Uploaded by

Absen SMA Long kali
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

program HelloWorld;

uses crt;

begin

clrscr;

writeln('Hello World');

readln;

end.

program for_to_do;

var

i: integer;

begin

writeln('Mencetak Hello World sebanyak 10 kali ');

for i:=1 to 10 do

begin

writeln('Hello World');

end;

end.

program for_to_do;

var

i,n: integer;

begin

write('Masukan batas perulangan : ');read(n);

for i:=1 to n do

begin

write(i,' ');

end;

end.

program kode_program_segitiga_bintang;
uses crt;
var
i,j: integer;
begin
clrscr;

for i := 1 to 5 do
begin

for j := 1 to i do
begin
write('*');
end;

writeln('*');
end;

readln;
end.
program kode_program_segitiga_bintang;
uses crt;
var
i,j: integer;
begin
clrscr;

for i := 1 to 5 do
begin

for j := 1 to 5 do
begin
write('*');
end;

writeln('*');
end;

readln;
end.
program kode_program_segitiga_bintang;
uses crt;
var
i: integer;
begin
clrscr;

for i := 1 to 5 do
begin
writeln('*');
end;
readln;
end.
program OperasiDivMod;

uses crt;

var

a, b :integer;

hasil :integer;

sisa :integer;

begin

clrscr;

a := 7;

b := 5;

hasil := a div b;

sisa := a mod b;

writeln('nilai a = ', a);

writeln('nilai b = ', b);

write(a, ' / ', b, ' = ');

writeln(hasil, ' sisa ', sisa);

readln;

end.

You might also like