TUGAS PETRUK : PROCEDURE NO.1 (ALGORITMA - PASCAL - HASIL )

• ALGORITMA

algoritma procedure1
deklarasi
   a,b : integer
deskripsi
procedure pertama
  read(a,b)
end;
procedure kedua
  write(a,b)
end;
begin
  pertama;
  kedua;
end

• PASCAL

program prosedur1;
uses wincrt;
var
   a,b:integer;

procedure pertama;
   begin
     write('bilangan 1 = ');readln(a);
     write('bilangan 2 = ');readln(b);
     writeln;
   end;

procedure kedua;
  begin
   writeln('bilangan yang anda input :');
   writeln('bilangan pertama = ',a);
   writeln('bilangan kedua = ',b);
  end;

begin
pertama;
kedua;
end.

• HASIL

---

Artikel Terkait: