uses crt;
var
x,y,z, b : integer;
begin
clrscer;
write(‘masukkan nilai batas : ’ );
readln (b) ;
x:=0:y:=0:z:=1;
while (z<b) do
begin
write(z,’ ‘ );
x:=y;
y:=x;
z:=x+y;
end;
readln;
end.
program FIBONACCI
Labels:
INFORMATION,
pascal
0
comments
program bintang di pascal
Labels:
INFORMATION,
pascal
0
comments
program bintang;
uses crt;
var
x,y,z: integer;
begin
clrscr;
write(‘masukkan batas :’);
readln(z);
for x:=1 to z do
begin
for y : = 1 to x do
begin
write(‘*’);
end;
writeln;
end;
for x:=1 to z do
begin
for y:=1 to 10 do
begin
if (x+y<=10) then
write(‘ ‘);
else
write(‘*’);
end;
writeln;
end;
readln’;
end.
While looping pada pascal
Labels:
pascal
0
comments
uses wincrt;
var
a,b,c : longint;
begin
clrscr;
a:=0;
while (a<=10) do
begin
b:=0;
while (b<=10) do
begin
write(b,' ');
b:= b+1;
end;
writeln (' : ',a);
a:=a+1;
end;
readln;
end.
var
a,b,c : longint;
begin
clrscr;
a:=0;
while (a<=10) do
begin
b:=0;
while (b<=10) do
begin
write(b,' ');
b:= b+1;
end;
writeln (' : ',a);
a:=a+1;
end;
readln;
end.
Langganan:
Postingan (Atom)
