Program String Pascal dan Turbo C++
Listing Program Pascal
program cobastring;
uses crt;
var
pil,hasil:integer;
s,s1,s2,hasilconcat,x1,x2:string;
a,x:integer;
jawab:char;
begin
clrscr;
repeat;
writeln('=============MENUPILIHAN
===========');
writeln('');
writeln('1.Mencari Panjang Dari Sebuah Data');
writeln('2.Menggabungkan Isi Dari 2 Buah
Data');
writeln('3.Menyisipkian Isi Dari Sebuah Data');
writeln;
writeln;
write('Masukkan nomor sesuai menu yang anda
pilih : '); readln(pil);
case pil of
1:begin
writeln;
write('Masukkan Sebuah Data : '); readln(s);
a:=length(s);
writeln('panjang Data : ',a);
readln;
end;
2:begin
writeln;
write('Masukkan Data 1 : '); readln(s1);
writeln;
write('Masukkan Data 2 : '); readln(s2);
hasilconcat:=concat(s1,s2);
writeln;
writeln('Data baru : ',hasilconcat);
readln;
end;
3:begin
writeln;
write('masukkan Data 1 : '); readln(x1);
writeln;
write('masukkan Data 2 : '); readln(x2);
writeln;
write('pada posisi keberapa Data 1 akan
disisipkan ke Data 2 : '); readln(x);
insert(x1,x2,x);
writeln;
writeln('Data baru : ',x2);
readln;
end;
end;
clrscr;
writeln('apakah anda ingin kembali ke menu ?
(Y/T)'); readln(jawab);
until(jawab='t');
end.
Input dan Output
Listing Program C++
#include<stdio.h>
#include<conio.h>
#include<string.h>
main()
{
char Data1[20],Data2[20];
int hasil;
clrscr();
printf("=====Membandingkan
Data=====");
printf("\n");
printf("\n");
printf("Data Pertama :
");gets(Data1);
printf("Data Kedua : ");gets(Data2);
printf("_____________________________");
hasil = strcmp(Data1,Data2);
if (hasil > 0) printf("\n\nData1 >
Data2...");
else
if (!hasil) printf("\n\nSama...");
else printf("\n\nData1 <
Data2...");
getch();
}
Input dan Output
Program Array Turbo C++
Listing Program
#include<stdio.h>
int main ()
{
int x,y,nilai [10];
printf("=======PENDATAAN NILAI
SISWA=======\n");
printf("___________________________________\n");
printf("\n");
printf("Masukan Jumlah Siswa : ");
scanf ("%d",&x);
printf("\n");
for (y=1;y<=x;y++)
{
printf("Masukan Nilai Siswa ke-%d :
",y);
scanf ("%d",&nilai [y-1]);
}
{
printf ("\n======Daftar Nilai
SISWA======\n");
for (y=1;y<=x;y++)
printf("\nNilai Mahasiswa ke-%d :
%d\n",y,nilai [y-1]);
}
return 0;
}
Logika Program
array adalah
variabel yang sejenis yang berderet
sedemikian rupa
sehingga alamatnya saling bersambung/kontigu atau dengan
kata lain variabel berindeks.
Program ini dibuat untuk pendataan nilai siswa. Pertama
gunakan perintah “ #include<stdio.h>” untuk memengil program yang
akan digunakan selanjutnya. Kemudian tentukan integer dalam penggunaan data
yaitu “x, y dan nilai [10]. Nilai [10] dalam integer artinya menyiapkan array satu
dimensi bertipe int dengan 10 elemen yang
diberi index dari 0 sampai dengan 10.
Kemudian tentukan inputan dan output dengan perintah “prinf dan scanf”. Setelah
scrib selesai kemudian jalankan program.
Input dan Output Program
Program Array Pascal
Listing Program
uses crt;
var
Nim:array [1..10] of string;
Nama:array [1..10] of string;
Nilai:array [1..10] of string;
n,i:integer;
ulang:string;
begin
ulang:='ya';
while(ulang='ya')or(ulang='YA') do
begin
clrscr;
writeln;
writeln('
POLITEKNIK TANAH LAUT');
writeln('__________________________________');
writeln;
write('Masukkan Jumlah Pengimputan Data : ');
readln(n);
writeln;
writeln('MASUKKAN DATA MAHASISWA');
writeln('-----------------------');
writeln;
for i := 1 to n do
begin
writeln('DATA KE : ' ,i);
writeln('-------------');
write('NIM
: '); readln(nim[i]);
write('NAMA
: '); readln(nama[i]);
write('NILAI : '); readln(nilai[i]);
writeln;
end;
begin
writeln(' DATA MAHASISWA SEMESTER GANJIL
2012/2013');
writeln('__________________________________________');
writeln;
writeln('==========================================');
writeln(' NIM NAMA NILAI');
writeln('==========================================');
for i := 1 to n do
begin
writeln( nim[i]:3, nama[i]:13, nilai[i]:18);
end;
writeln('==========================================');
write('Apa Anda Ingin Mengulangi Data ? : ');
readln(ulang);
end;
end;
readln;
end.
Logika Program
Program ini dibuat untuk mendata nilai
mahasiswa Politeknik Tanah Laut, dalam program ini menggunakan pengulangan “For
and Do”. Pertama gunakan perintah “uses crt” untuk memanggil program
selanjutnya. Kemudian “var” untuk menentukan string yaitu NIM,NAMA dan
NILAI [1..10] maksudnya pengimputan data
hanya 1 sampai 10. Kemudian menentukan integer yaitu N dan i . kemudian
masukkan pengulangan juga sebagai string. kemudian tentukan output yang akan ditampilkan
dengan perintah “writeln” . Dan jika dijalankan kita dapat memasukkan data
nilai mahasiswa sesuka kita . Menggunakan pengulangan for i = 1 to n do ('Apa
Anda Ingin Mengulangi Data ? :...) jika tekan “ya” maka terjadi pengulangan
data. Setelah scrib selesai kemuian jalankan program.
Input dan Output Program
Langganan:
Postingan (Atom)