Latest Post
Loading...
Kamis, 05 Desember 2013

Repeat_Until pemrograman PASCAL



Assalamualaikum

Ini nah program pascal yang Repeat_until itu :D
Pascal yee bukan pecel :3

program repeat_until;
uses wincrt;
var nama:string;
nim:integer;
pilih:char;
begin
repeat
CLRSCR;
write(‘masukkan nama= ‘);readln(nama);
write(‘masukkan nim= ‘);readln(nim);
write(‘anda ingin mengulang (Y/T)? ‘);readln(pilih);
until pilih=’t';
write(‘selesai’);
end.

Copas codingan nyo ke Notepad
tros tu save dengan format .pas
misal : ganteng.pas

Nah itu dio :D
Pacak"la kau wak ye.. ngeditnyo :P
Ngayal lah haha

Wassalamualakum!



0 komentar:

Posting Komentar

Akang Cyber © 2013-2016 | ALL RIGHTS RESERVED