tugas bilangan prima

Program Bilangan_Prima;
Uses wincrt;
Var
i,j,m,n, batas,jml: integer;
prima: boolean;
prim:array[1..100] of integer;
Begin
write('bilangan prima sampai suku ke: '); readln(n);
writeln('sebagai berikut: ');
i:=3;
prim[1]:=2;
prim[2]:=3;
m:=2;
Repeat
i:=i+1;
batas:=round(sqrt(i))+1;
prima:=true;
For j:= 2 to batas do
if i mod j = 0 then
prima:=false;
if prima = true then
Begin
m:=m+1;
prim[m]:=i;
end;
until m=n;
For i:=1 to n do
Begin
write(prim[i], ' ');
jml:=jml+prim[i];
end;
writeln;
writeln('jumlah bil prima: ',jml);
readln;
end.

tugas bilangan prima

Program Bilangan_Prima;
Uses wincrt;
Var
i,j,m,n, batas,jml: integer;
prima: boolean;
prim:array[1..100] of integer;
Begin
write('bilangan prima sampai suku ke: '); readln(n);
writeln('sebagai berikut: ');
i:=3;
prim[1]:=2;
prim[2]:=3;
m:=2;
Repeat
i:=i+1;
batas:=round(sqrt(i))+1;
prima:=true;
For j:= 2 to batas do
if i mod j = 0 then
prima:=false;
if prima = true then
Begin
m:=m+1;
prim[m]:=i;
end;
until m=n;
For i:=1 to n do
Begin
write(prim[i], ' ');
jml:=jml+prim[i];
end;
writeln;
writeln('jumlah bil prima: ',jml);
readln;
end.

Tugas Struktur data 4

uses wincrt;

type biodata = record

alamat : string;

nama : string;

ttl:string;

nim : string;

end;

var

data:biodata;

n,i: integer;

begin

writeln ('Inputkan Jumlah data Mahasiswa');readln(n);

for i:=1 to n do

begin

writeln ('Data ke - ',i,':');

write ('NIM : '); readln(data.nim);

write ('Nama : '); readln(data.nama);

write ('Alamat : '); readln(data.alamat);

write ('TTL : '); readln(data.ttl);

writeln;

end;

end.

tugas struktur data

uses wincrt;

const awal =1;

const akhir =5;

var

nim,nama :array [awal..akhir] of string;

nilai :array [awal..akhir] of string;

n,i :integer;

jumlah,rataan : real;

begin

write ('banyak nya data mahasiswa =');

readln(n) ;

for n :=1 to 3 do

begin

write('nim',n,':');readln(nim[n]);

write('nama',n,':');readln(nama[n]);

for i:=1 to 3 do

begin

write('nilai ke',n,'=');readln(nilai[i]);

writeln;

end;

end;

writeln;

writeln('hasil dari inputan adalah =');

writeln('=====================');

writeln('nim nama nilai1 nilai 2 nilai 3 rata-rata');

writeln('=====================');

for i:= i to 3 do

begin

writeln(nim [n],' ', nama[n],' ',nilai[1],' ',nilai[2],' ',nilai[3]);

writeln;

end;

end.

Memasukan Data Mahasiswa

uses wincrt;
const
garis='------------------------------------------------------';
var nil1,nil2,nil3:array[1..10] of 0..100;
nim:array[1..10] of string[8];
nama:array[1..10] of string[15];
n,i,bar:integer;
jum:real;
tulis:char;
begin
clrscr;
write('Masukkan Banyak data:');readln(n);
for i:=1 to n do
begin
clrscr;
GotoXY(30,4+1);write('Data Ke-:',i:2);
GotoXY(10,5+i);write('NIM:');readln(nim[i]);
GotoXY(10,6+i);write('Nama:');readln(nama[i]);
GotoXY(10,7+i);write('Nilai 1:');readln(nil1[i]);
GotoXY(10,8+i);write('Nilai 2:');readln(nil2[i]);
GotoXY(10,9+i);write('Nilai 3:');readln(nil3[i]);
end;
clrscr;
GotoXY(5,4);write(garis);
GotoXY(5,5);write('No');
GotoXY(9,5);write('NIM');
GotoXY(18,5);write('Nama');
GotoXY(34,5);write('Nilai 1');
GotoXY(41,5);write('Nilai 2');
GotoXY(47,5);write('Nilai 3');
GotoXY(54,5);write('Rata');
GotoXY(61,5);write('Abjad');
GotoXY(5,6);write(Garis);
bar:=7;
for i:=1 to n do
begin
jum:=(nil1[i]+nil2[i]+nil3[i]/3);
if jum>=90 then tulis:='A' else
if jum>80 then tulis:='B' else
if jum>60 then tulis:='C' else
if jum<50 then tulis:='D' else tulis:='E';
GotoXY(5,bar);writeln(i:2);
GotoXY(9,bar);writeln(NIM[i]);
GotoXY(18,bar);writeln(Nama[i]);
GotoXY(34,bar);writeln(nil1[i]:4);
GotoXY(41,bar);writeln(nil2[i]:4);
GotoXY(47,bar);writeln(nil3[i]:4);
GotoXY(54,bar);writeln(jum:5:1);
GotoXY(61,bar);writeln(tulis);
bar:=bar+1;
end;
GotoXY(5,bar+1);writeln(garis);
readln;
end 

Tugas Menghitung rata-rata menggunakan array dengan for

uses wincrt;

var nilai: array[1..3] of integer ;

jm,rata :real;

i : integer;

begin

writeln

for i:=1 to 3 do

begin

clrscr;

write (‘masukan data ke-1: ’);readln (nilai[1]);

write (‘masukan data ke-2:’) ;readln(nilai [2]);

write (‘masukan data ke-3:’); readln(nilai [3]);

jumlah := nilai[1]+nilai [2]+nilai [3] ;

rata := jumlah/3;

writeln;

writeln(‘jumlah nilai =’,jumlah 5:3’);

writeln(‘rata-rata nya =’,jumlah 5:3’);

readln;

end;

end.

OUTPUT

Masukan data ke-1 :60

Masukan data ke-2 :70

Masukan data ke-3:50

Jumlah nilai =150.00

Rata-ratanya =50.00

Tugas Menghitung rata-rata menggunakan array

Uses wincrt;

var nilai : array [1..10] of integer ;

jm,rata : real;

begin

clrscr ;

writeln(‘menghitung rata-rata 10 buah nilai’);

writeln(‘nilai =’);readln(nilai [1] );

writeln(‘nilai =’);readln(nilai [2] );

writeln(‘nilai =’);readln(nilai [3] );

writeln(‘niali =’);readln(nilai [4] );

writeln(’nilai =’);readln(nilai [5] );

writeln('nilai =')readln(nilai [6]);

writeln('nilai =')readln(nilai [7]);

writeln('nilai =')readln(nilai [8]);

writeln('nilai =')readln (nilai [9]);

writeln('nilai =')readln (nilai [10]);

jm := nilai[1]+nilai[2]+nila[3]+nilai[4]+nilai[5]+nilai[6]+nilai[7]+nilai[8]+nilai[9]+nilai[10];

rata:= jm/10;

writeln;

writeln(‘jumlah =’,jm :9:2);

writeln(‘rata-rata =’,rata :9:2);

end.

Outpot

Menghitung rata-rata 10 buah nilai

Nilai=

9

Nilai=

5

Nilai=

6

Nilai=

8

Nilai=

9

nilai=

7

nilai=

5

nilai=

4

nilai=

7

nilai=

9

Jumlah = 69.00

Rata-rata= 6.90

Fungtion

Konsep function

Function adalah kumpulan beberapa statement yang dibuat dengan
tujuan menyelesaikan satu tugas tertentu.
Return value dan parameter

Perhatikan kode berikut :
function add($a, $b){
return $a + $b;
}

Function sederhana di atas akan menerima masukan berupa dua angka. Kemudian kedua angka tersebut akan dijumlahkan, dan hasilnya dikembalikan kepada pemanggil function. Nilai yang dikembalikan tersebut disebut return value . Sedangkan nilai yang dimasukkan ke dalam function ( $a dan $b ) disebut parameter .
Deklarasi function

Ada beberapa hal utama yang perlu diperhatikan dalam deklarasi function pada PHP.
nama function
parameter
function body

Contoh function:
function addNumber($x, $y)
{
z = x + y; 4 echo(z);
}


function jumlahkanlah(int x, int y)
{
z = x + y;
return z;
}


Perhatikan contoh function addNumber di atas.

Baris satu merupakan deklarasi function. deklarasi berisi :
keyword function
nama function
parameter

Parameter adalah nilai yang dimasukkan ke dalam function untuk diproses sehingga menghasilkan output. Nama function ditentukan dengan memenuhi aturan sebagai berikut :
Tidak boleh sama dengan function yang telah ada dalam PHP.
Hanya boleh terdiri dari huruf, angka, dan garis bawah (underscore)
Tidak boleh diawali dengan angka
function 4uOnly(){} // tidak boleh

Bahasa pemrograman lain mendukung fasilitas overloading, yaitu sebuah function dapat memiliki nama yang sama dan hasil yang berbeda, dengan syarat parameternya berbeda. PHP tidak mendukung overloading. Jadi, kita tidak dapat menggunakan nama yang telah digunakan sebelumnya.
Implementasi function

Contoh function:
function addNumber($x, $y)
{
z = x + y;
echo(z);
}


function jumlahkanlah(int x, int y)
{
z = x + y;
return z;
}

Perhatikan contoh function addNumber di atas. Perhatikan baris 2 sampai 4.
Function body dibatasi oleh sepasang { dan }
Function body berisi instruksi yang harus dilakukan komputer untuk menghasilkan output yang diinginkan.
Baris 3 menyuruh komputer untuk membuat satu variabel bernama z yang isinya adalah hasil penjumlahan x dan y.
x dan y didapat dari input yang diberikan user.

Baris 4 menyuruh komputer untuk menampilkan hasil perhitungan ke layar. Bedakan dengan baris 4 pada function jumlahkanlah yang memerintahkan komputer untuk menampilkan hasil perhitungan di layar

Contoh penggunaan function
hasil = jumlahkanlah(4,5); addNumber(4,5);

Function