BELAJAR PASCAL 2

guns...... kalian kan ada yang di remedial sama yang belum ulangan
kayanya soalnya kaya gininih ntar......(meureunnya),

uses
wincrt;
var
luasalas,tinggi,hasil :real;
begin
writeln('---------------');
writeln('rumus segi tiga');
writeln('---------------');
write('masukan luas alas? ');
readln(luasalas);
write(('masukan tinggi? ');
readln(tinggi);
hasil:=1/2*luasalas*tinggi;
writeln(maka hasilnya adalah= ',hasil);
end.

jangan ditulis ya, tp di pahami jd kalau beda soalnya bisa ngerjainnya wokey :D
by 27

belajar pascal "1"

gunss maaf deh yang waktu itu postingnya kurang ngerti ya ya udah gini deh,
 tulis di tupas(turbo paskal) kalian gini


uses
wincrt;
begin
writeln('----------');
writeln('my pascal');
writeln('----------');
writeln('nama: febrianto');
writeln('kelas: 10 rpl');
writeln('umur:15');
writeln('bidang keahlian:rekayasa perangkat lunak');
end.

ok gitu, truss udah itu "run", kalau udah berhasil komen oke di grup rpl :D

good luck :D

BELAJAR PASCAL 1

gans katanya mau blajar pascalkan bikin dulu nih kaya gini
(isi dengan biodata kalian)

---------------
MY PASCAL
---------------
NAMA :
KELAS :
ALAMAT :
JENIS KELAMIN :
SEKOLAH :
BIDANG KEAHLIAN :

tampilannya harus kaya gini kalau udah print screen ke grup rpl ntar saya liat

(SELAMAT MENCOBA) :D
esoknya saya kasih tau yang bener