Tugas pa udin smester II
program mata_pelajaran;
uses wincrt;
type
mahasiswa=record
No:integer;
Hari:string;
MataKuliah:string;
NamaDosen:string;
end;
var
i:integer;
Mhs:array[1..3] of mahasiswa;
begin
for i:=1 to 3 do
begin
write ('masukan No mahasiswa =');readln(Mhs[i].no);
write ('masukan Hari mahasiswa =');readln(Mhs[i].hari);
write ('masukan Mata Kuliah mahasiswa =');readln(Mhs[i].matakuliah);
write ('masukan Nama Dosen =');readln(Mhs[i].namadosen);
writeln ('---------------------------------------------');
end;
writeln;
writeln;
writeln (' MATA PELAJARAN ');
writeln ('-----------------------------------------------------------------------');
writeln (' No ! Hari ! Mata Kuliah ! Nama Dosen !');
writeln ('-----------------------------------------------------------------------');
for i:=1 to 3 do
begin
write (' ',Mhs[i].No);
write (' ',Mhs[i].Hari);
write (' ',Mhs[i].MataKuliah);
writeln (' ',Mhs[i].NamaDosen);
end;
writeln ('-------------------------------');
end.
program mata_pelajaran;
uses wincrt;
type
mahasiswa=record
No:integer;
Hari:string;
MataKuliah:string;
NamaDosen:string;
end;
var
i:integer;
Mhs:array[1..3] of mahasiswa;
begin
for i:=1 to 3 do
begin
write ('masukan No mahasiswa =');readln(Mhs[i].no);
write ('masukan Hari mahasiswa =');readln(Mhs[i].hari);
write ('masukan Mata Kuliah mahasiswa =');readln(Mhs[i].matakuliah);
write ('masukan Nama Dosen =');readln(Mhs[i].namadosen);
writeln ('---------------------------------------------');
end;
writeln;
writeln;
writeln (' MATA PELAJARAN ');
writeln ('-----------------------------------------------------------------------');
writeln (' No ! Hari ! Mata Kuliah ! Nama Dosen !');
writeln ('-----------------------------------------------------------------------');
for i:=1 to 3 do
begin
write (' ',Mhs[i]. No);
write (' ',Mhs[i]. Hari);
write (' ',Mhs[i]. MataKuliah);
writeln (' ',Mhs[i]. NamaDosen);
end;
writeln ('-------------------------------');
end.
Soal
- konversi dari suhu farenheit-celcius
input : suhu awal celcius
rumus : suhu=5/9*(suhu awal celcius-32)
jawab=
program konversi_suhu;
uses wincrt;
var
awal:real;
suhu:real;
begin
write('masukan suhu awal celcius=');readln(awal);
suhu:=5/9*(awal-32);
writeln('jadi suhu akhirnya adalah=',suhu:2:2);
end.
soal
2.menentukan gaji bersih
Input=gaji pokok
Rumus pajak=0,15*gaji pokok
Gaji bersih=gaji pokok – pajak
Jawab=
program gaji_bersih;
uses wincrt;
var
gajipokok:real;
pajak:real;
gajibersih:real;
begin
write('masukan gaji pokok=');readln(gajipokok);
pajak:=0.15*gajipokok;
gajibersih:=gajipokok-pajak;
writeln('jadi gaji bersihnya adalah=',gajibersih:2:0);
end.
program nama_karyawn_dan_gaji_pokok;
uses wincrt;
var
karyawan:string;
gp,gb,t,p:real;
begin
write('masukan nama karyawan=');readln(karyawan);
write('masukan gaji pokoknya=');readln(gp);
t:=0.3*gp;
p:=0.25*(gp+t);
gb:=gp+t-p;
writeln('jadi tunjangannya adalah=',t:2:0);
writeln('jadi pajaknya adalah=',p:2:0);
writeln('jadi gaji bersihnya adalah',gb:2:0);
end.
program rerata_tanpalarik;
uses wincrt;
var x1,x2,x3,x4,x5:integer;
u :real;
begin
write('masukan nilai 1=');readln(x1);
write('masukan nilai 2=');readln(x2);
write('masukan nilai 3=');readln(x3);
write('masukan nilai 4=');readln(x4);
write('masukan nilai 5=');readln(x5);
writeln('nilai ke-1=',x1);
writeln('nilai ke-2=',x2);
writeln('nilai ke-3=',x3);
writeln('nilai ke-4=',x4);
writeln('nilai ke-5=',x5);
u:=(x1+x2+x3+4+5)/5;
writeln('masukan rata-ratanya adalah =',u:2:2);
end.
program rerata_tanpalarik;
uses wincrt;
var
x:array [1..3] of integer;
i:integer;
jumlah,u:real;
begin
for i:=1 to 3 do
begin
writeln ('masukan nilai=');readln(x[i]);
end;
for i:=1 to 3 do
begin
write('nilai ke.=',x[i]);
end;
jumlah:=0;
for i:=1 to 3 do
begin
jumlah :=jumlah+ x[i];
end;
u:=jumlah/3;
writeln('maka rata-ratanya adalah=', u:2:2);
end.
program data_mahasiswa;
uses wincrt;
type
mahasiswa=record
NIM :integer;
NamaMhs:string;
IPK:real;
end;
var
i:integer;
Mhs : array[1..3] of mahasiswa;
begin
for i:=1 to 3 do
begin
write('masukan NIM mahasiswa =');readln(Mhs[i].NIM);
write('masukan Nama mahasiswa =');readln(Mhs[i].NamaMhs);
write('masukan IPK mahasiswa =');readln(Mhs[i].IPK);
write('........................................');
writeln;
writeln;
writeln(' tabel mahasiswa' );
writeln('...............................');
writeln('! NIM ! nama ! ipk !');
writeln('...............................');
writeln('! ! ! !');
writeln('...............................');
for i:=1 to 3 do
begin
write(' ',Mhs[i].NIM);
write(' ',Mhs[i].NamaMhs);
writeln(' ',Mhs[i].IPK:2:2);
end;
writeln('...............................');
end.
program jadwal_mata_kuliah;
uses wincrt;
type
mahasiswa=record
NO :integer;
Hari:real;
matakuliah:string;
namadosen:real;
end;
var
i:integer;
Mhs : array[1..5] of mahasiswa;
begin
for i:=1 to 5 do
begin
write('masukan no =');readln(Mhs[i].no);
write('masukan hari =');readln(Mhs[i].hari);
write('masukan mata kuliah =');readln(Mhs[i].matakuliah);
write('masukan nama dosen =');readln(Mhs[i].namadosen);
write('........................................');
end;
writeln;
writeln;
writeln(' jadwal mata kuliah' );
writeln('...............................');
writeln('! No ! hari ! mata kulaih ! nama dosen! ');
writeln('.....................................................');
writeln('! 1 ! rabu ! struktur data ! udin ! ');
writeln('! 2 ! rabu !perkmbngan psrta didik! ali ! ');
writeln('! 3 ! rabu ! pemrograman visual ! nanang ! ');
writeln('! ! ! ! ! ');
writeln('.....................................................');
for i:=1 to 5 do
begin
write(' ',Mhs[i].no);
write(' ',Mhs[i].hari );
write(' ',Mhs[i].matakuliah );
writeln(' ',Mhs[i].namadosen:2:2);
program keren;
uses wincrt;
Var nama:string;
Urutan, posisi:integer;
begin
nama:=('drjas keren');
Writeln('yang ini di dellete');
For urutan:=1 to 11 do
Begin
Posisi:=13-urutan;
delete (nama,posisi,1);
writeln(nama);
end;
writeln;
nama:='dijas keren';
writeln('yang ini lewat');
writeln('sebelum di insert:','nama');
insert('-',nama,6);
writeln('setelah di insert','nama');
readln;
end.
program pembalik_kata;
uses wincrt;
var kata,hasil,tmp:string;i:integer;
begin
write('kata:');readln(kata);
hasil:='';
for i:=length(kata) downto 1 do
begin
tmp:=copy(kata,i,1);
hasil:=hasil+tmp;
end;
write('dibalik',hasil);
readln;
end.