PROGRAM KOMPUTER BERBASIS TURBO PASCAL UNTUK MEMPERKIRAKAN PUSAT LOKASI OPTIMUM BARI BEBERAPA LOKASI PUSAT SUMBER KEBISINGAN PADA SAAT BERSAMAAN PENELITIAN TEORITIS

SYAMSUL ARIFIN, 099913568 M (2002) PROGRAM KOMPUTER BERBASIS TURBO PASCAL UNTUK MEMPERKIRAKAN PUSAT LOKASI OPTIMUM BARI BEBERAPA LOKASI PUSAT SUMBER KEBISINGAN PADA SAAT BERSAMAAN PENELITIAN TEORITIS. Thesis thesis, UNIVERSITAS AIRLANGGA.

[img]
Preview
Text (ABSTRAK)
gdlhub-gdl-s2-2006-arifinsyam-720-tkm_12-03.pdf

Download (602kB) | Preview
[img]
Preview
Text (FULL TEXT)
gdlhub-gdl-s2-2006-arifinsyam-720-tkm_12-03.pdf

Download (2MB) | Preview
Official URL: http://lib.unair.ac.id

Abstract

Noise is a natural phenomenon that can make a psychological disturbance, physical disturbance or hearing loss. It is a primary environmental hazard because it is generally defined as unwanted sound at any time and any place. A mixture location, quantity, level of noise and the distance at the same time can cause an optimum sound at optimum location. The problema of this paper is to esstimate the optimum location of noise from three resources. The development method is a difrential dinamic method to find the coordinate of optimum point. With the computer facilities (Turbo Pascal ver 7.0 for DOS or for Win), a mathematic problem can be processed and analyzed easier and faster. Fictitious datas were used for testing the model to find the coordinate of optimum point. Secondary and primary datas were obtained from BTKI. Surabaya, Surabaya map and from experiment in SMF Surabaya and Studio TVRI Surabaya. Finally, the program to determine coordinate of optimum point is : uses wincrt ; (' or uses crt *) var i,n :byte; x, y, z, w : array [byte] of real; bedaX, bedaY, bedaZ, bedal, beda2, beda3, total :real; begin total:=0; bedaX:=O; bedaY:=O; bodaZ:=O; for is=1 to n do begin write(' data x anda ke',j,' ? ');readln (X[ j]); write(' data y anda ke'j,' ?'); anda readln (Y[ j]); write(' data z anda ke'j,' ? '); readin (Z(j]); write(' data nilai bising anda ke'j,' ? '); readln(W [ j]); total:=total+W [ j]; bedaX:=bedaX+W [ j]'X[ j]; bedal:=bedaX/ total; bedaY:=bedaY+W [ j]'Y( j]; beda2:=bedaY / total; bedaZ:=bedaZ+W [ j]*Z [ jl; beda3:=bedaZ / total; end; ('Tebakan untuk X')JumlahX:=O; TebakanX:=-1;While(tebakar.X <>beda l do begin tebakanX:=O.0;write('tebakan anda ?); readln(tebakanX); delline; if tebakanX< bedal then begin write(tebakanX:4,' - - -> salah, kurang besar !!!!'); end; if tebakanX> beda l then begin write(tebakanX:4,' - - - > salah, kurang kecil !!!!'); end; JumtahX: jumlahX+1; end; write(TebakanX:4,' - - - > benar,', jumlahX,' kali anda menebak !!!!'); ('Tebakan untukY') JumlahY:=O; TebakanY:=-1;While(tebakanY <>bedal do begin tebakanY:=O.O;write('tebakan anda 7); readln(tebakanY); delline; if tebakanY< beda2 then begin write(tebakanY:4,' - - - > salah, kurang besar !!!!'); end; if tebakanY> beda2 then begin wriie(tebakanY:4,' --- > salan, kurang kecil 1111); end; JumlahY:=jumlahY+1; end; write(TebakanY:4,' - - - > benar,', jumlahY,' kali anda menebak !!!!'); ('Tebakan untukZ')JumlahZ:=G: TebakanZ:=-1;While(tehakanZ <>beda3 do . begin tebakanZ:=O.O;write('tebakan anda 7); readln(tebakanZ); delline; if tebakanZ< beda3 then begin write(tebakanz:4,' - - - > salah, kurang besar !!!!'); end; if tebakanZ> beda3 then begin write(tebakanZ:4,' - - - > salah, kurang kecil !!!!'); end; JumlahZ:=jumlahZ+1; end; write(TebakanZ:4,' - - - > benar,', jumlahZ,' kali anda menebak writeln (' titik optimum =', bedal :7: 2, beda 2 :102,beda3:13:2); end. Hoping this computer program can be used by noise technician.

Item Type: Thesis (Thesis)
Additional Information: KKC KK TKW 12/03 Ari p
Uncontrolled Keywords: Psychological disturbance, physical
Subjects: B Philosophy. Psychology. Religion > BF Psychology > BF1-940 Psychology
T Technology > TK Electrical engineering. Electronics Nuclear engineering > TK7885-7895 Computer engineering. Computer hardware
Divisions: 10. Fakultas Kesehatan Masyarakat > Magister Ilmu Kesehatan Masyarakat
Creators:
CreatorsEmail
SYAMSUL ARIFIN, 099913568 MUNSPECIFIED
Contributors:
ContributionNameEmail
ContributorHaryadi Soeparto, Dr.,H.,dr.,DOR.,M.Sc.,APUUNSPECIFIED
ContributorSuharmadi Sanjaya, Drs.,DIPL.Sc.,M.PhilUNSPECIFIED
Depositing User: Nn Anisa Septiyo Ningtias
Date Deposited: 2016
Last Modified: 10 Aug 2016 08:23
URI: http://repository.unair.ac.id/id/eprint/35797
Sosial Share:

Actions (login required)

View Item View Item