Pembahasan TOKI Learning BAB 1A

Oleh Unknown

Minggu, 08 Februari 2015

Bagikan :

Tweet

CahBoedi | Pada kesempatan kali ini saya akan SHARE beberapa Pembahasan TOKI Learning BAB 1A. Berikut Pembahasannya yang saya kutip dari Website Jogoyitnan dan saya sudah check jawabannya dan BENAR.

 1A : MASUKAN DAN KELUARAN

Program Pertamaku

var
kalimat : string;
begin
readln(kalimat);
writeln(kalimat);
end.

A Tambah B

var
a, b : byte;
begin
readln(a, b);
writeln(a+b);
end.

Bebek Untuk Teman

var
n, m : integer;
begin
read(n, m);
writeln('masing-masing ', n div m);
writeln('bersisa ', n mod m);
end.

Luas Segitiga

var
a, t : integer;
luas : real;
begin
readln(a, t);
luas := a*t/2;
writeln(luas:0:2);
end.

Transpos Matriks

var
a,b,c,d,e,f,g,h,i : integer;
begin
readln(a, b, c);
readln(d, e, f);
readln(g, h, i);
writeln(a,' ',d,' ',g);
writeln(b,' ',e,' ',h);
writeln(c,' ',f,' ',i);
end.

Demikian Pembahasan TOKI Learning BAB 1A. Selamat Belajar Pascal ^_^