Sabtu, 06 April 2013

Belajar Program Menggunakan BAHAS Pemograman PASCAL "program Roket"

program peluncuranRoket;
uses crt;
label roket;
 var
    i:byte;
begin
begin
    clrscr;
    write('masukan waktu peluncuran:'); readln(i);
end;
begin
    roket:
    i:=i-1 times;
        write(i);
       
        i:= i - 1; readln;
    if i>0 then Goto roket else if i=0 then writeln('Go!');
end;
    writeln;
    readln;
end.
   

Tidak ada komentar:

Posting Komentar