uses wincrt;
procedure Hitung(var A,B,C:integer);
begin
B:= A;
C:= A+B;
Writeln(A,B,C);
End;
var X,Y,Z: integer;
Begin
Readln(X);
Readln(Y);
Readln(Z);
Hitung(X,Y,Z);
Writeln(X,Y,Z); Readln;
End.
------------------------------------------------------
---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textbox
Tidak ada komentar:
Posting Komentar