rss
email
twitter
facebook

Friday, February 26, 2010

program pascal

input data berikut ke aplikasi pascal

program menghitung_10_bilangan_genap_pertama;
uses wincrt;
var :integer;
begin
writeln('nama :fildzah alfita');
writeln('kelas : X.1');
writeln(' ');
writeln('program menghitung 10 bilangan genap pertama:');
i:=20;
write(i-18);
write(' ');
write(i-16);
write(' ');
write(i-14);
write(' ');
write(i-12);
write(' ');
write(i-10);
write(' ');
write(i-8);
write(' ');
write(i);
readln;
end.

maka setelah di run akan menjadi output sebagai berikut

2, 4, 6, 8, 10, 12

semoga berguna untuk anda.