tanGgal le Qoe ok,............

Rabu, 03 November 2010

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

  1. 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.

Tidak ada komentar:

Posting Komentar