CODING STANDAR DI TURBO PASCAL

program belajar;

uses crt;

begin

clrscr;

write(‘ usaha go ’); {ln membuat huruf di bawah}

write(‘ oke ‘); {pemberian tanda spasi sebelum tulisan oke menyebabkan tulisan ada spasi}

readln;

end.

Program deret;

Uses crt;

Var  i : integer;

Begin

clrscr;

for i := 1 to 15 do

begin

writeln(i*9);

end;

readln;

end.

program deret_aritmatika;

uses crt;

var a,b,c,n,u : integer;

s : real ;

begin

clrscr;

writeln(‘PROGRAM DERET MATEMATIKA’);

writeln(‘-------------‘);

writeln(‘a=’);readln(a);

writeln(‘b=’);readln(b);

writeln(‘n=’);readln(n);

s:= ½*n*((2*a)+((n-a)*b));

writeln(‘Jumlah deret aritmatika suku ke’,s:6:2);

u:=a+((n-a)*b);

writeln(‘suku ke’,u:10);

readln;

end.

program bebas;

uses crt;

var m,s,sum,ddd,eee:integer;

aaa,bbb,ccc : real;

begin

clrscr;

write(‘a=’);readln(m);

write(‘b=’);readln(s);

sum :=m+s;

writeln(‘m+s’,vol:6);

aaa:=m-s;

writeln(‘m-s’,aaa:6:0);bbb:=m/s;

writeln(‘m/s’,bbb:6:0);ccc:=m*s;

writeln(‘m*s’,aaa:6:0);ddd:=m div s;

 writeln(‘m div s’,ddd:6:0);eee:=m mod s;

writeln(‘m mod s’,eee:6);

readln;

end.

program logika;

uses crt ;

var nilai : integer;

begin

clrscr;

write(‘nilai anda ?’); readln(nilai);

if nilai>=80 then writeln(‘A’)

else if nilai >=60 then writeln(‘B’)

else if nilai >=40 then writeln(‘C’)

else if nilai >=20 then writeln(‘D’)

else writeln(‘E’);

readln;

end.

program logika;

uses crt;

var bil:integer;

begind

clrscr;

write(‘input sembarang bilangan’); readln(bil);

if bil mod 2=0 then writeln(‘bilangan genap’)

else write(‘bilangan ganjil’);

readln;

end.

program nilai_akhir;

uses crt;

var u1,u2,u3 : integer ;

na : real;

begin

clrscr;

write(‘tugas=’);readln(u1);

write(‘uts=’);readln(u2);

write(‘uas=’);readln(u3);

na :=(2*u1+4*u2+4*u3)/10;

writeln(‘Jadi nilai akhir adalah’,na:6:2);

if na >=80 then write(‘A’)

else if na>=76 then writeln(‘B+’);

else if na>=72 then writeln(‘B’);

else if na>=65 then writeln(‘C+’);

else if na>=60 then writeln(‘C’);

else if na>=56 then writeln(‘D+’);

else if na>=51 then writeln(‘D’);

else if writeln(‘E’);

readln;

end.