TUGAS PASCAL Bu Marliza

FOR...DOWNTO...DO

uses crt;
var y: integer;
begin
clrscr;
for y := 5 downto 1 do
writeln (y);
readln;
end.

REPEAT..UNTIL..

uses crt;
var
nilai : integer;
begin
clrscr;
nilai:=1;
repeat
writeln (nilai);
nilai:= nilai +1;
until nilai > 20;
readln;
end.

FOR ...TO...DO..

uses crt;
var x : integer;
begin
clrscr;
for x := 1 to 5 do
writeln ('Belajar Ya');
readln;
end.



FOR...TO...DO...

uses crt;
var
a,b,c,d,e : integer ;
begin
clrscr ;
write ('masukkan angka : '); readln (c);
for a := 1 to c do
begin
for b := 1 to a do
begin
write (b);
end;
writeln;
end;
for d := c downto 1 do
begin
for e := 1 to (d-1) do
begin
write (e);
end;
writeln;
end;
readln;
end.

IF...THEN...

uses crt;
var
nilai : integer;
ket : string;
begin
clrscr;
ket := 'tidak lulus';
write ('Masukkan Nilai anda : ');readln(nilai);
if nilai >= 70 then
ket:= 'Lulus';
writeln (ket);;
readln;
end.

WHILE..DO..BEGIN

uses crt;
var b : integer;
begin
clrscr;
b:=1;
while(b<=5) do begin
writeln('ok ', b);
b:=b+1;
readln;
end;
end.


WHILE..DO

USES CRT;
VAR DIGIT : INTEGER;
begin;
clrscr;
digit := 1;
while digit <= 20 do
begin
write(digit);
digit:= digit +1;
readln;
end;
end.

CASE ...OF

uses crt;
var nilai :char;
begin;
clrscr;
write('Nilai huruf yang didpat : ');readln(nilai);
case nilai of
'A' :writeln('T-SHIRT');
'B' :writeln('Sepatu');
'C' :writeln('Topi');
end;
readln;
end.

tugas pascal

uses crt;
var
y: integer;
begin
clrscr;
for y := 5 downto 1 do
writeln (y);
readln;
end.