Perkalian menggunakan perulangan For i do

Ass...

Kali ini kita latihan bahasa pascal dengan menggunakan perulangan For to do, perulangan ini ialah perulangan yang jumlahnya telah diketahui sebelum proses berjalan, karena yang diinputkan disini ialah jumlah perulangannya. kali ini kita akan membua sebuah perulangan dengan mengalikan jumlah dari perulangannya. misalkan kita inputkan jumlah perulangannya 5 maka proses akan dimulai denngan mengalikan 5x1, 5x2, 5x3 dan hingga berakhir di 5x5.
silahkan coba coding berikut dengan menggunakan IDE Free Pascal atau Turbo Pascal...

program latihan;
uses crt;
var
 i, mehmet, hasil:integer;

begin
clrscr;
    writeln('Program Penjumlahan dengan perulangan');
    writeln;
    write('Masukan jumlah angka yang dikalikan : ');
    readln(mehmet);
    writeln;
    for i := 1 to mehmet do
    begin
    hasil := i * mehmet;
    writeln(i,' X ',mehmet,' = ',hasil);
    end;
    readln;
end.

Setelah itu jika telah selesai maka hasil akan tampak seperti ini.

Sekian dulu dari saya Ass. wr.wb....