program array pada pascal dan C++

Di Posting Oleh : Blogger Bodoh (Fajerin Biabdillah)
Kategori :

PROGRAM ARRAY C++

#include <stdio.h>

#include <conio.h>

//Pendeklarasian tipe data baru struct Mahasiswa

typedef struct Mahasiswa{

                                        char NIM[9];

                                        char nama[30];

                                        float ipk;

                          };

main()

{

  //Buat variabel mhs bertipe data Mahasiswa

                         Mahasiswa mhs;

                         printf("NIM = ");scanf("%s",mhs.NIM);

                         printf("Nama = ");scanf("%s",mhs.nama);

                         printf("IPK = ");scanf("%f",&mhs.ipk);

                         printf("Data Anda : \n");

                         printf("NIM : %s\n",mhs.NIM);

                         printf("Nama : %s\n",mhs.nama);

                         printf("IPK : %f\n",mhs.ipk);

                         getch();

}

Input program,

Logika program

Setelah program selesai dibuat maka program akan memanggil library var mhs bertipe data mahasiswa. Kemudian program akan cetak  char NIM[9];

                        char nama[30];

                        float ipk;

selanjutnya program berjalan  akan cetak lagi

("NIM = ");,program akan baca NIM mahasiswa

("Nama = ");,program akan baca Nama Mahasiswa

("IPK = ");,program akan baca IPK Mahasiswa.

("Data Anda : \n");

("NIM : %s\n",mhs.NIM);

("Nama : %s\n",mhs.nama);

("IPK : %f\n",mhs.ipk);

Program selesai.

Output program

PROGRAM ARRAY PASCAL

LISTING PROGRAM ARRAY

Uses Crt;

VAR

A, N, Jml_Nilai : Integer;

Nilai : ARRAY[1..10] Of Integer;

Nil_Rata : Real;

BEGIN

ClrScr;

WriteLn('Program Latihan Array');

WriteLn('=====================');

WriteLn;

Write('Masukan Banyak Data : ');

ReadLn(N);

FOR A := 1 TO N DO

Begin

Write('Nilai Ke- ',A,' = ');

ReadLn(Nilai[A]);

End;

Nil_Rata := 0;

Jml_Nilai := 0;

FOR A := 1 TO N DO

Begin

Jml_Nilai := Jml_Nilai + Nilai[A];

Write('Nilai Ke- ',A,' = ',Nilai[A]);

End;

Nil_Rata := Jml_Nilai / N;

WriteLn('');

WriteLn('Jumlah Nilai    : ',Jml_Nilai);

WriteLn('Nilai Rata-Rata : ',Nil_Rata:5:2);

ReadLn;

END.

INPUT PROGRAM

LOGIKA PROGRAM

Setelah program selesai program akan memulai akan memanggil variable bertipe data A, N, Jml_Nilai : Integer; Nilai : ARRAY[1..10] Of Integer; Nil_Rata : Real;. Selanjutnya program akan cetak

 ('Program Latihan Array');

                ('====================='). Program meminta kita untuk memasukan  banyak data. Program akan melakukan pengulangan . selanjutnya program akan melakukan pengdeklarasian tentang jumlah nilai dan nilai rata rata. Program selesai.