ASAL ASAL

Kali ini gw akan membagikan codingan pascal yang outputnya tambah kyk gini











  

Nah kyk gtu outputnya ini sumpah gw sendiri pusing codingnya disini gw pke perintah Repeat Until langsung aja codingnya ini dia :) owh iya gw di sini pke DoSbox bukan turbo pascal yg 32 bit klo anda pake turbo pascal yang 32 bit ganti aja uses crt jadi uses Wincrt dan di bawah begin gk usah pake clrscr gpp kok dah itu aja kawan perbedaannya.

program kuis;
uses crt;
var a,n,i,z:integer;
begin
clrscr;
write ('masukkan nilai n= ');readln(n);
i:=1;
repeat
writeln('+':n);
i:=i+1;
until i>n div 2;
a:=1;
repeat
write('+ ');
a:=a+1;
until a>n;
writeln;
z:=1;
repeat
writeln('+':n);
z:=z+1;
until z>n div 2;
readln;
end.