program prima atau bukan

program untuk memeriksa bilangan prima atau bukan

program prima;

uses wincrt;

var
N,i,x : integer;
prima : boolean;
limit : integer;
loop : char;

begin

repeat

clrscr;

write('Masukkan nilai angka : ');

read(N);


limit := round(sqrt(N))+1;

prima := true;

if (N=2) or (N=3) then

prima := true

else
for i:=2 to limit do

if N mod i = 0 then

prima := false;

if prima = true then begin

writeln(N,' bilangan prima');

end else begin

writeln(N,' Bukan bilangan prima');

writeln;
end;

write('Ulang lagi [Y/T] : '); loop:=upcase(readkey);

writeln(loop);


until loop <> 'Y';

end.

program kata ke

program kata ke :

contoh :
masukkan kata: aku,dia,saya,mereka,kamu
kata ke: 4

output:

kata ke 4: mereka



uses wincrt;

var
temp,S,S1:string;
N,C,j:integer;
begin

write('masukkan kata : ');readln(S);
write('kata ke : ');readln(N);


C:=1; S1:='';

for j:= 1 to length(S) do begin

if S[j]<>',' then begin
S1:=S1+S[j];
end else begin
S1:='';
C:=C+1;

end;
if (C=N) then temp:=S1
end;
writeln('kata ke ',N,' : ', temp);
end.

download pascal for windows 1.5

buat yang pengen download software pascal compiler dan ingin belajar bahasa pascal bisa pake software ini, turbo pascal for windows 1.5.

program pascal " kembalian uang "

program pascal dengan output jika input nya adalah sejumlah uang :
maka outputnya:
2 koin 200
2 koin 100
3 koin 50
1 koin 25


uses wincrt;

var

koin200,koin100,koin50,koin25:real;
N,sisa:integer;
begin

write('masukkan nilai N: ');
readln(N);
koin200:=N div 200;writeln(koin200:3:0,' koin 200');
sisa:=N mod 200;
koin100:=sisa div 100;writeln(koin100:3:0,' koin 100');
sisa:=sisa mod 100;
koin50:=sisa div 50; writeln(koin50:3:0,' koin 50');
sisa:=sisa mod 50;
koin25:=sisa div 25; writeln(koin25:3:0,' koin 25');
end.

Program pascal "segitiga"

Program pascal untuk menentukan apakah segitiga sama sisi , segitiga sama kaki atau segitiga sembarang ?

code:

uses wincrt;

var
A,B,C:integer;

begin
write('sisi A : '); readln(B);
write('sisi B : '); readln(C);
write('sisi C : '); readln(A);

IF A = B then begin
IF B = C then
begin
writeln('SEGITIGA SAMA SISI ');
end Else Begin
writeln('SEGITIGA SAMA KAKI');
End;
end ELSE begin
if B = C then Begin
writeln('SEGITIGA SAMA KAKI ');
End Else begin
if C = A then
Begin
writeln('SEGITIGA SAMA KAKI ');
End Else begin
writeln(' SEGITIGA SEMBARANG');
End;
End;
End;
End.