Begin typing your search above and press return to search. Press Esc to cancel.

Contoh Program Pascal Perulangan For

By
. Published on 6:49 PM. 0

CONTOH PERULANGAN FOR

program deret;
uses crt;
var
        batas,hasil,counter,o : integer;
begin
clrscr;
        write('Input batas akhir :');
        readln(batas);
        o :=1;
        if (batas <=0)  then
                write('Inputan anda salah :')
          else
          begin
          for o :=o+1 to batas do
          begin
          counter :=o*o;
          hasil :=hasil+o;
          write(o,' + ');
          end;
          end;
        write(' = ',hasil);
readln;
end.

SEMOGA BERMANFAAT

TERIMAH KASIH TELAH MENGUNJUNGI APOTIK-ILMU

    No comments:

    Post a Comment

    Subscribe to: Post Comments (Atom)