(**********************************************
* pemrogram : moh. rizky rahmanda *
* nim : 1108101010010 *
* fakultas : mipa matematika *
* universitas : syiah kuala *
* compiler : turbo pascal 7.0 *
* cpu : amd dual-core processor c60 *
* with turbo core technology up to 1.333 ghz *
**********************************************)
program pertamaku;
uses crt; {memanggil unit crt}
label keluar, ulang; {memasang label goto keluar}
var a, b, c, d : real;
x1, x2 : real;
f : text;
namafile : string;
directory : string[20];
simpan, ulangi : char;
procedure judul;
begin
writeln(' ******************************************************************');
writeln(' * *');
writeln(' * program menghitung nilai akar x1 dan x2 dari ax^2 + bx + c = 0 *');
writeln(' * *');
writeln(' ******************************************************************');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' ******************************************************************');
writeln;
end;
procedure tunggu;
var d : integer;
s : string[63];
begin
s := '< < < < < < < < <s i l a h k a n t u n g g u> > > > > > > > >';
for d := 1 to 62 do {perulangan membuat efek loading}
begin
delay(85);
write(s[d]);
end;
writeln;
writeln;
end;
begin
repeat
clrscr;
judul;
gotoxy(10,7);
write('nilai a = ');
readln(a);
writeln;
gotoxy(10, wherey);
write('nilai b = ');
readln(b);
writeln;
gotoxy(10, wherey);
write('nilai c = ');
readln(c);
writeln;
d := sqr(b) - 4 * a * c;
if d < 0 then {memeriksa nilai d}
begin
gotoxy(10, 17);
tunggu;
gotoxy(10, 13);
write('persamaan kuadrat tidak memiliki akar real');
writeln;
writeln;
gotoxy(10, wherey);
write('tekan sembarang tombol');
readkey;
goto keluar;
end;
x1 := ( -b + sqrt(d) ) / ( 2 * a );
x2 := ( -b - sqrt(d) ) / ( 2 * a );
gotoxy(10, 17);
tunggu;
clrscr;
judul;
gotoxy(10, 7);
writeln('--------------------------------------------------------------');
gotoxy(10, wherey);
writeln('| persamaan kuadrat | nilai x1 | nilai x2 |');
gotoxy(10, wherey);
writeln('--------------------------------------------------------------');
gotoxy(10, wherey);
writeln('| (',a:0:2,')x^2+(',b:0:2,')x+(',c:0:2,')=0 | ',x1:0:2,' | ',x2:0:2,' |');
gotoxy(10, wherey);
writeln('--------------------------------------------------------------');
writeln;
gotoxy(10, wherey);
write('simpan (y/t) ? ');
readln(simpan);
if (simpan = 'Y') or (simpan = 'y') then
begin
{$i-}
clrscr;
judul;
ulang :
mkdir('c:\14101994'); {membuat folder}
if ioresult = 0 then {jika direktori bisa dibuat}
goto ulang;
chdir('c:\14101994'); {membuka direktori}
gotoxy(10, 7);
write('nama file ? '); {proses membuat file}
readln(namafile);
assign(f, namafile + '.txt');
rewrite(f);
writeln(f,'******************************************************************');
writeln(f,'* *');
writeln(f,'* program menghitung nilai akar x1 dan x2 dari ax^2 + bx + c = 0 *');
writeln(f,'* *');
writeln(f,'******************************************************************');
writeln(f,'* *');
writeln(f,'* -------------------------------------------------------------- *');
writeln(f,'* | persamaan kuadrat | nilai x1 | nilai x2 | *');
writeln(f,'* -------------------------------------------------------------- *');
writeln(f,'* | (',a:0:2,')x^2+(',b:0:2,')x+(',c:0:2,')=0 | ',x1:0:2,' | ',x2:0:2,' | *');
writeln(f,'* -------------------------------------------------------------- *');
writeln(f,'* | -Moh. Rizky Rahmanda- | *');
writeln(f,'* -------------------------------------------------------------- *');
writeln(f,'* *');
writeln(f,'******************************************************************');
append(f);
close(f); {akhir dari proses membuat file}
getdir(0,directory); {mencari alamat direktori}
writeln;
gotoxy(10, wherey);
writeln('file akan disimpan di ', directory);
writeln;
gotoxy(10, 17);
tunggu;
gotoxy(10, 11);
writeln('selesai');
writeln;
gotoxy(10, wherey);
write('tekan sembarang tombol');
readkey;
end;
keluar :
clrscr;
judul;
gotoxy(10, 7);
write('ulangi (y/t) ? '); {untuk melakukan proses ulangi}
readln(ulangi);
until (ulangi = 't') or (ulangi= 'T');
end.
Rabu, 04 April 2012
pertemuan 6 versi 2
#include <stdio.h>
#include <conio.h>
int main(void)
{
int data[150];
int i, maks, min, n;
float jumlah = 0, ratarata;
printf("banyak data ? ");
scanf("%d", &n);
clrscr();
for(i=0; i<n; i++)
{
printf("masukkan data ke-%d ? ",i+1);
scanf("%d",&data[i]);
if(i == 1)
{
min = data[1];
maks = data[1];
}
if(data[i] < min)
min = data[i];
if(data[i] > maks)
maks = data[i];
clrscr();
jumlah += data[i];
}
printf("data minimum -> %d\n\n", min);
printf("data maksimum -> %d\n\n", maks);
ratarata = jumlah / n;
printf("data rata-rata -> %f", ratarata);
getch();
return 0;
}
#include <conio.h>
int main(void)
{
int data[150];
int i, maks, min, n;
float jumlah = 0, ratarata;
printf("banyak data ? ");
scanf("%d", &n);
clrscr();
for(i=0; i<n; i++)
{
printf("masukkan data ke-%d ? ",i+1);
scanf("%d",&data[i]);
if(i == 1)
{
min = data[1];
maks = data[1];
}
if(data[i] < min)
min = data[i];
if(data[i] > maks)
maks = data[i];
clrscr();
jumlah += data[i];
}
printf("data minimum -> %d\n\n", min);
printf("data maksimum -> %d\n\n", maks);
ratarata = jumlah / n;
printf("data rata-rata -> %f", ratarata);
getch();
return 0;
}
Senin, 02 April 2012
pertemuan 6 prak. pemrograman
#include <stdio.h>
#include <conio.h>
int main(void)
{
int data[150];
int i, j, tukar, n;
float jumlah = 0, ratarata;
printf("banyak data ? ");
scanf("%d", &n);
clrscr();
for(i=0; i<n; i++)
{
printf("masukkan data ke-%d ? ",i+1);
scanf("%d",&data[i]);
clrscr();
}
printf("data yang anda masukkan\n\n");
for(i=0; i<n; i++)
{
printf("%d ",data[i]);
jumlah += data[i];
}
for(j=0; j<n; j++)
{
for(i=0; i<n; i++)
{
if(data[i] > data[i+1])
{
tukar = data[i];
data[i] = data[i+1];
data[i+1] = tukar;
}
}
}
printf("\n\ndata minimum -> %d\n\n", data[0]);
printf("data maksimum -> %d\n\n", data[n-1]);
ratarata = jumlah / n;
printf("data rata-rata -> %f", ratarata);
getch();
return 0;
}
#include <conio.h>
int main(void)
{
int data[150];
int i, j, tukar, n;
float jumlah = 0, ratarata;
printf("banyak data ? ");
scanf("%d", &n);
clrscr();
for(i=0; i<n; i++)
{
printf("masukkan data ke-%d ? ",i+1);
scanf("%d",&data[i]);
clrscr();
}
printf("data yang anda masukkan\n\n");
for(i=0; i<n; i++)
{
printf("%d ",data[i]);
jumlah += data[i];
}
for(j=0; j<n; j++)
{
for(i=0; i<n; i++)
{
if(data[i] > data[i+1])
{
tukar = data[i];
data[i] = data[i+1];
data[i+1] = tukar;
}
}
}
printf("\n\ndata minimum -> %d\n\n", data[0]);
printf("data maksimum -> %d\n\n", data[n-1]);
ratarata = jumlah / n;
printf("data rata-rata -> %f", ratarata);
getch();
return 0;
}
Kamis, 29 Maret 2012
pertemuan 5 permasalahan b prak. pemrograman
#include <stdio.h>
#include <conio.h>
int main(void)
{
float a, b;
char pilihan;
do {
clrscr();
printf("1. A^2 + B^2\n\n2. A^2 - B^2\n\n3. A^2 * B^2\n\n4. A^2 / B^2\n\n5. Keluar\n\n");
printf("(1 / 2 / 3 / 4 / 5) -> ");
scanf("%c", &pilihan);
clrscr();
switch(pilihan)
{
case '1' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 + B^2 = %f", a * a + b * b);
getch();
break;
case '2' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 - B^2 = %f", a * a - b * b);
getch();
break;
case '3' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 * B^2 = %f", a * a * b * b);
getch();
break;
case '4' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 / B^2 = %f", a * a / b * b);
getch();
break;
case '5' :
break;
default :
break;
}
} while(pilihan < '5' || pilihan > '5');
return 0;
}
#include <conio.h>
int main(void)
{
float a, b;
char pilihan;
do {
clrscr();
printf("1. A^2 + B^2\n\n2. A^2 - B^2\n\n3. A^2 * B^2\n\n4. A^2 / B^2\n\n5. Keluar\n\n");
printf("(1 / 2 / 3 / 4 / 5) -> ");
scanf("%c", &pilihan);
clrscr();
switch(pilihan)
{
case '1' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 + B^2 = %f", a * a + b * b);
getch();
break;
case '2' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 - B^2 = %f", a * a - b * b);
getch();
break;
case '3' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 * B^2 = %f", a * a * b * b);
getch();
break;
case '4' :
printf("A -> ");
scanf("%f", &a);
printf("\nB -> ");
scanf("%f", &b);
printf("\nA^2 / B^2 = %f", a * a / b * b);
getch();
break;
case '5' :
break;
default :
break;
}
} while(pilihan < '5' || pilihan > '5');
return 0;
}
Senin, 26 Maret 2012
pertemuan 4 prak. pemrograman
#include <stdio.h>
#include <conio.h>
int main(void)
{
char nama[255];
char pangkat1, pangkat2;
int gajipokok;
int konstanta;
int tunjangan;
int totalgaji;
int salahinput;
salahinput = 1;
printf("nama : ");
gets(nama);
printf("pangkat : ");
scanf("%c%c", &pangkat1, &pangkat2);
switch(pangkat1)
{
case '1' : switch(pangkat2)
{
case 'a' : konstanta = 0;
tunjangan = 15000;
break;
case 'b' : konstanta = 1;
tunjangan = 20000;
break;
case 'c' : konstanta = 2;
tunjangan = 25000;
break;
case 'd' : konstanta = 3;
tunjangan = 30000;
break;
default : salahinput = 0;
}
break;
case '2' : switch(pangkat2)
{
case 'a' : konstanta = 4;
tunjangan = 40000;
break;
case 'b' : konstanta = 5;
tunjangan = 50000;
break;
case 'c' : konstanta = 6;
tunjangan = 60000;
break;
case 'd' : konstanta = 7;
tunjangan = 70000;
break;
default : salahinput = 0;
}
break;
case '3' : switch(pangkat2)
{
case 'a' : konstanta = 8;
tunjangan = 120000;
break;
case 'b' : konstanta = 9;
tunjangan = 170000;
break;
case 'c' : konstanta = 10;
tunjangan = 220000;
break;
case 'd' : konstanta = 11;
tunjangan = 270000;
break;
default : salahinput = 0;
}
break;
case '4' : switch(pangkat2)
{
case 'a' : konstanta = 12;
tunjangan = 470000;
break;
case 'b' : konstanta = 13;
tunjangan = 870000;
break;
case 'c' : konstanta = 14;
tunjangan = 1670000;
break;
case 'd' : konstanta = 15;
tunjangan = 3270000;
break;
case 'e' : konstanta = 16;
tunjangan = 6470000;
break;
default : salahinput = 0;
}
break;
default : salahinput = 0;
}
if(salahinput == 1)
{
gajipokok = 150000 + konstanta * 16000;
totalgaji = gajipokok + tunjangan;
printf("\ngaji -> Rp. %d", totalgaji);
}
else
printf("\ntidak ada pangkat %c%c", pangkat1, pangkat2);
getch();
return 0;
}
Sabtu, 24 Maret 2012
pertemuan 5 prak. pemrograman
#include <stdio.h>
#include <conio.h>
int main(void)
{
int i, j, n, jumlah = 0;
printf("banyak data ? ");
scanf("%d", &n);
for(i = 1; i <= n; i++)
{
if(i%2 == 0)
j = -i;
else
j = i;
jumlah += j;
}
printf("\nhasilnya %d", jumlah);
getch();
return 0;
}
#include <conio.h>
int main(void)
{
int i, j, n, jumlah = 0;
printf("banyak data ? ");
scanf("%d", &n);
for(i = 1; i <= n; i++)
{
if(i%2 == 0)
j = -i;
else
j = i;
jumlah += j;
}
printf("\nhasilnya %d", jumlah);
getch();
return 0;
}
matahariku
bersinar kau dalam hatiku
penggerak utama jiwaku
hangatkan diriku ketika mendingin
semangat
kukejar kau selalu
walau yang kudapat hanya sinarmu
namun itu cukup
sangat cukup
ketika kau dimiliki
tetapi bukan olehku
hatiku menghitam
kehilangan sinar
wahai matahariku
bersinarlah kembali untukku
yang ku ingin sinarmu
hangatnya matamu
penggerak utama jiwaku
hangatkan diriku ketika mendingin
semangat
kukejar kau selalu
walau yang kudapat hanya sinarmu
namun itu cukup
sangat cukup
ketika kau dimiliki
tetapi bukan olehku
hatiku menghitam
kehilangan sinar
wahai matahariku
bersinarlah kembali untukku
yang ku ingin sinarmu
hangatnya matamu
tahun kabisat (C)
Permasalahan
Buatlah program yang dapat menentukan apakah suatu
tahun (terdiri dari 4 digit) yang diinputkan melalui keyboard merupakan tahun
kabisat atau bukan !
Analisa Masalah
Tahun kabisat
adalah sebutan bagi tahun masehi yang di mana pada tahun tersebut jumlah hari
tidak terdiri dari 365 hari
tetapi 366 hari. Satu tahun
masehi tidak secara persis terdiri dari 365 hari, tetapi 365 hari lima jam 48 menit 45,1814 detik.
Jika hal ini tidak dihiraukan, maka setiap 4 tahun akan kekurangan
hampir satu hari (tepatnya 23 jam 15 menit 0,7256 detik. Maka
untuk mengkompensasi hal ini, setiap empat tahun sekali (tahun yang bisa dibagi
empat), diberi satu hari ekstra yaitu 29 Februari. Tetapi karena lima
jam 48 menit 45,1814 detik kurang dari enam jam, maka tahun-tahun
yang bisa dibagi 100 (seperti tahun 1900),
bukan tahun kabisat, kecuali bisa dibagi dengan 400 (seperti tahun 2000)
(id.wikipedia.org)
Perumusan Masalah
Perumusan Masalah
- Jika habis dibagi 400, tahun adalah tahun kabisat
- Jika tidak habis dibagi 100, tapi habis dibagi empat, tahun adalah tahun kabisat
- Jika selain diatas, tahun bukan tahun kabisat
- Dengan memasukkan nilai tahun melalui keyboard
- Yang ditulisakan dalam bentuk kondisi if
Penyusunan
Algoritma
- Deklarasikan variabel penampung nilai tahun
- Masukkan nilai tahun
- Periksa jika habis dibagi 400
- Tampilkan tahun adalah tahun kabisat
- Periksa jika tidak habis dibagi 100, tapi habis dibagi empat
- Tampilkan tahun adalah tahun kabisat
- Periksa jika selain di atas
- Tampilkan tahun bukan tahun kabisat
Pengkodean
Program
#include<stdio.h>
#include<conio.h>
void main(void)
{
int
tahun;
printf("program
tahun kabisat\n\n");
printf("masukkan
tahun ? ");
scanf("%d", &tahun);
if(tahun % 400 == 0)
printf("\ntahun %d adalah tahun
kabisat", tahun);
else
if((tahun % 100 != 0) && (tahun % 4 == 0))
printf("\ntahun %d adalah tahun
kabisat", tahun);
else
printf("\ntahun
%d bukan tahun kabisat", tahun);
getch();
}
Langganan:
Postingan (Atom)