My site

Site menu
Section categories
Definisi [0]
Turbo Pascal [4]
Statistics

Total online: 1
Guests: 1
Users: 0
Main » Articles » Artikel Komputer » Turbo Pascal

TPW 1.5
program ABC;
uses wincrt;
var
a,b,c:integer;
lagi:char;
begin
     repeat
           clrscr;
           writeln('masukkan angka 1?');readln(a);
           writeln('masukkan angka 2?');readln(b);
           c:=a+b;
           writeln('hasilnya adalah=');writeln(c);
           writeln;
           writeln('Apakah Anda mau menghitung lagi?(y/t)');readln(lagi);
           if lagi='t' then
              clrscr;
              gotoXY(30,10);writeln('T E R I M A  K A S I H')
     until(lagi='t');
end.
Category: Turbo Pascal | Added by: YahyaOteda (2009-11-15)
Views: 230 | Rating: 0.0/0
Total comments: 0
Name *:
Email *:
Code *:
Search
Site friends
  • Create your own site
  • Tag Board

    Copyright MyCorp © 2018