Kamis, 11 Juni 2015

tugas pengenalan internet

ALGORITMA DAN PEMOGRAMAN
Pada semester  1 dan 2 saya mempelajari aplikasi pemograman dengan 2 aplikasi pada aplikasi pertama mepelajari  aplikasi turbo pascal dan pada semester 2 mempelajari aplikasi C++  kedua aplikasi sebenrnya hampr sama tapi lebih rumit aplikasi C++ jujur ni yaa ……
Lebih ngerti aplikasi turbo pascal dibanding C++ . sama-sama harus pakai deklarasi tapi C++ lebih sensitive beda A besar sama A kecil aja udah salah , salah dikit langsung error
Perbedaan c++ dengan turbo pascal
TURBO PASCAL : 
program contoh_13;
uses wincrt ;
var
  n,i:integer;
  nama :array [1..10] of string [20];
  NT   :array [1..10] of real;
  NUTS :array [1..10] of real;
  NUAS :array [1..10] of real;
  NA   :array [1..10] of real;
  grade :array [1..10] of char;
  ket   :array [1..10] of string [20];
  nim   :array [1..10] of string ;
begin
    write ('banyak data mahasiswa  = :');readln(n);
    for i := 1 to n do
begin
    write ('NIM                          :');readln(nim[i]);
    write ('Nama                         :');readln(nama[i]);
    write ('Nilai tugas                  :');readln(NT[i]);
    write ('nilai ujian tengah semester  :');readln(NUTS[i]);
    write ('nilai ujian akhir semester   :');readln(NUAS[i]);
    writeln;

      NA[i] :=(0.2*NT[i])+(0.3*NUTS[i])+(0.5*NUAS[i]);
     
      if (NA[i]>=80)then
     
      grade [i]:='A'
   
      else if (NA[i]>=70)then
      
       grade [i]:='B'
     
       else if (NA[i]>=60)then
      
       grade [i]:='C'
      
         else if (NA[i]>=0)then
        
         grade [i]:='E';
        
  case grade [i] of
  'A' :ket[i]:='LULUS';
  'B' :ket[i]:='LULUS';
  'C' :ket[i]:='LULUS' ;
  'D' :ket[i]:='Tidak lulus';
  'E' :ket[i]:='Tidak lulus';
  end;
  end;
writeln ('   HASILNYA     ');
writeln('============================================================================');
writeln('+    NIM         Nama     tugas     UTS     UAS     NA     grade     ket');
writeln('=============================================================================');
for i:=1 to n do
begin
  writeln(NIM[i]:10,Nama[i]:12,NT[i]:8:0,NUTS[i]:8:0,NUAS[i]:8:0,NA[i]:8:0,grade[i]:8,ket[i]:10);
  end;
end.


APLIKASI C++
#include <iostream.h>
#include <conio.h>
#include"stdio.h"
#define phi 3.14
void main()
{
int a,b;
float luas, keliling;
printf("PROGRAM MENGHITUNG LUAS DAN KELILING LINGKARAN");
printf("\n\n\nmasukkan jari-jari:");
scanf("%d",&a);
printf("\n (1) menghitung luas \n (2) menghitung keliling");
printf("\n Inputkan 1/2: ");
scanf("%d",&b);
luas=phi*a*a;
keliling=2*phi*a;
if(b==1)
{printf("luas lingkaran adalah:%.2f",luas);
}
else if(b==2)
{printf("keliling lingkaran adalah:%.2f",keliling);
}
else
{printf("kode yang Anda masukkan salah...!");
}
getch();
}