konversi procedure pascal ke c

Pascal

Uses Crt;

Var

       a,b,c :integer;

       jumlah:integer;

       rata:real;

procedure petunjuk;

  begin

     writeln(‘apabila program dijalankan’);

     writeln(‘anda diminta menuliskan 3 buah angka’);

     writeln;

end;

Begin

 petujuk;

 write(‘Masukkan 3 buah angka A, B, C:’);

Readln(a, b, c);

   jumlah:=a+b+c;

   rata:=jumlah/3;

writeln;

  writeln(‘jumlahnya = ‘,jumlah);

  writeln(‘rata-rata = ‘,rata);

readln;

End.

C++

#include <stdio.h>

#include <conio.h>

void petunjuk ()

   {

      printf ("apabila program dijalankan \n");

      printf ("anda diminta menuliskan 3 buah angka");

   }

int main ()

{

  petunjuk ();

  printf ("masukkan 3 buah angka A, B, C \n");

            float a,b,c,x,y;

            scanf("%f",&a);

            scanf("%f",&b);

            scanf("%f",&c);

           

            x = a + b + c;

            y = (a + b + c) / 3;

           

            printf("jumlahnya = %f \n",x);

            printf("rata-ratanya = %f",y);

            getch ();

}