Untitled
unknown
plain_text
23 days ago
873 B
2
Indexable
Never
program Latihan_pascal_bareng; var nama_mahasiswa:string; umur_mahasiswa:integer; jenis_kelamin:char; berat_badan:real; begin {nama_mahasiswa:='dian'; umur_mahasiswa:=20; jenis_kelamin:='P'; berat_badan:=10.2} write('Input Nama Mahasiswa = ');readln(nama_mahasiswa); write('Input umur_mahasiswa = ');readln(umur_mahasiswa); write('Input Jenis Kelamin(L/P) = ');readln(jenis_kelamin); write('Input Berat Badan = ');readln(berat_badan); writeln('Nama Mahasiswa = ',nama_mahasiswa); writeln('Umur Mahasiswa = ',umur_mahasiswa); begin if(jenis_kelamin = 'P') then begin writeln('Jenis Kelamin = Perempuan'); end else begin writeln('Jenis Kelamin = Laki-Laki'); end; end; writeln('Berat Badan = ',berat_badan:1:1); end.
Leave a Comment