Matematika adalah Kehidupan

Matematika adalah bahasa dimana Tuhan menuliskan alam semesta #Galileo Galilei

Senin, 30 Maret 2015

Pascal > Program Urut Data

Program Urut Data  Di bawah ini adalah coding untuk mengurutkan data pada program pascal, semoga bermanfaat :) program Urut_data; uses wincrt; var  i,j,n:integer;  x: array[0..6] of integer; begin  writeln('Program Urut Data');  write ('Masukkan Banyak Data '); readln (n);  for i:=1 to n do   begin    write ('Masukkan Data ke ',i,':'); readln (x[i]);   end; for i:=1 to n-1 do for j:=1 to n-1 do  begin   if x[j]>x[j+1] then    begin     x[0]:=x[j];     x[j]:=x[j+1];     x[j+1]:=x[0];    end;  end;  writeln('Data Setelah...

Pascal > Program Menu

Program Menghitung_Luas_Bangun_Datar;               Uses wincrt; label akhir,awal; Var menu:integer; p,l,t,r,s,a,d1,d2,L1,L2,L3,L4,L5,L6:real; YN: char; begin      begin      awal:      gotoxy(15,2); writeln(' == Program Menghitung Luas Bangun Datar ==');      writeln;      writeln (' Menu-Menu ');      writeln;      writeln('1. Persegi');     ...