pascal

nusinau....

baca - pascal

array

uses wincrt; var x : array[1..3] of string; a : integer;begin for a := 1 to 3 do begin write('input ', a, ' : '); readln(x[a]); end; writeln; write('output : '); for a := 1 to 3 do write(x[a],' ');end.uses wincrt;var genap : array[1..100]...

baca - array

input nilai

Program Input_nilai_mhs;Uses WinCrt;Constgaris='-------------------------------------------------------------------------------';Varnil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}nim : Array [1..10] Of String [8];nama : Array [1..10]...

baca - input nilai

rata-rata

uses wincrt; var a, siswa : integer;nilai, total, tinggi, rendah, rata : real; begin total := 0; write ('jumlah siswa : '); readln (siswa); writeln; for a := 1 to siswa do begin write ('nilai siswa ke ',a,' : '); readln (nilai); total :=...

baca - rata-rata

pascal

uses wincrt;var a: integer;ket: string;beginwrite ('suhu : '); readln (a);if a <= 0 thenket :='padat'elseif (a > 0) and (a < 100) thenket :='cair'elseif a >=100 thenket :='gas';writeln('Air pada suhu tersebut berbentuk',' ',ket);e...

baca - pascal

segitiga pascal

program bintang_piramid;uses wincrt; var c,a,b,n : integer;begin write ('masukkan angka : ');readln(n); writeln; if n mod 2 = 0 then for a := 1 to (n div 2) do begin for b := 1 to (n div 2)-a do write (' '); for c := 1 to (a*2)...

baca - segitiga pascal

konveksi suhu

Program Konversi_Suhu;Uses WinCrt; var f,c,r : real;a,ul : char; procedure farein_celcius;begin Writeln('Program Konversi Fareinheit Ke Celcius'); Writeln('======================================'); Writeln;Write('Masukan Suhu dalam Farenheit: ');readln(f);c:=5/9*(f-32);Writeln;Writeln('Jadi...

baca - konveksi suhu

pascal

uses wincrt;var x,y,hasil:real;jawab:char;begin write ('masukan angka ke-1:');readln (x); write ('pilih operator: (+)/(-)/(*)/(/)');readln (jawab); write ('masukan angka ke-2:');readln (y); if ( jawab= '+') then begin hasil:= x+y end; if (...

baca - pascal