tugas perancangan multimedia membuat animasi sederhana

quality="high"
type="application/x-shockwave-flash"
WMODE="transparent"
width="50"
height="350"
pluginspage="http://www.macromedia.com/go/getflashplayer" />

TUGAS PERANCANGAN MULTIMEDIA

ucridnitip

Program jumlah Bilangan Prima

program bilangan_prima;
uses wincrt;
var i,jumprima:integer;
e,x,d: integer;
jml:integer;
function fakt (n : integer):integer;
begin
jumprima:=0;
for i:=1 to n do
if n mod i=0 then jumprima:=jumprima+1;
fakt:=jumprima;
end;
begin
clrscr;
writeln (‘ Deret Bilangan Prima’);
writeln (‘————————-’);
write (‘Batas Bilangan Prima:‘);readln(x);
writeln;
writeln;
writeln (‘Deret Bilangan Prima:‘);
writeln (”);
d:= 1; e:=0;
repeat
if fakt (d) = 2 then
begin
write (d,’, ‘);
jml:=jml+d;
e:=e+1;
end;
d:=d+1; until (d=x);
writeln; writeln(”);
write(‘Jumlah : ‘,jml);
end.

ingintau: TUGAS STRUKTUR DATA 'PROGRAM PILIHAN'

ingintau: TUGAS STRUKTUR DATA 'PROGRAM PILIHAN'

TUGAS STRUKTUR DATA 'PROGRAM PILIHAN'

program pilihan;

uses wincrt;
var penjumlahan,pengurangan,perkalian,pembagian :string;
pilih,jawab:char;
label menu;

begin
menu:
clrscr;
writeln('pilihan yang tersedia adalah: ');
writeln('1. penjumlahan');
writeln('2. pengurangan');
writeln('3. perkalian');
writeln('4. pembagian');
writeln;
write('pilih menu di atas [1..4]? ');readln(pilih);
clrscr;
case pilih of
'1' :
begin
writeln('penjumlahan')
end;

'2' :
begin
writeln('pengurangan')
end;
'3' :
begin
writeln('perkalian')
end;
'4' :
begin
writeln('pembagian')
end;
end;
end.

ingintau: ingintau: Tugas Struktur Data SI 08B1

ingintau: ingintau: Tugas Struktur Data SI 08B1

STRUKTUR DATA NILAI RATA-RATA

type
nilai1 = array [1..100] of integer;
var
nilai:nilai1;
jum,n,i:integer;
rata:real;
begin
write('Masukan banyaknya data : ');readln(n);
for i := 1 to n do
begin
write('Masukan data ke',i,' = ');readln(nilai[i]);
jum:jum+nilai[i];
end;
rata:=jum/n;
writeln('Jumlah keseluruhan data = ',jum);
writeln('Jumlah rata-ratanya = ',rata:2:2);
end.