Osman Kılıç

uses crt;
var
i,sayi,sayi1:integer;
son:string;
begin
clrscr;
write(‘sayıyı gir:’);readln(sayi);
for i:=1 to sayi do begin
sayi1:=sayi mod 2;
if (sayi1=0) then
son:=’0’+son
else son:=’1’+son;
sayi:=sayi div 2;
if (sayi=1) then begin
son:=’1’+son;
break;end;end;
writeln(son);
readln;
end.

uses crt;
var
sayi,b:string;
x,i:integer;
sayii:real;
begin
writeln(‘sayıyı gir’);readln(sayi);
x:=length(sayi);
for i:=0 to x-1 do begin
b:=copy(sayi,x-i,1);
write(b,’=’);
if (b=’0′)then
sayii:=0;
if (b=’1′) then sayii:=1*exp(i*Ln(16));
if (b=’2′) then sayii:=2*exp(i*Ln(16));
if (b=’3′) then sayii:=3*exp(i*Ln(16));
if (b=’4′) then sayii:=4*exp(i*Ln(16));
if (b=’5′) then sayii:=5*exp(i*Ln(16));
if (b=’6′) then sayii:=6*exp(i*Ln(16));
if (b=’7′) then sayii:=7*exp(i*Ln(16));
if (b=’8′) then sayii:=8*exp(i*Ln(16));
if (b=’9′) then sayii:=9*exp(i*Ln(16));
if (b=’A’) then sayii:=10*exp(i*Ln(16));
if (b=’B’) then sayii:=11*exp(i*Ln(16));
if (b=’C’) then sayii:=12*exp(i*Ln(16));
if (b=’D’) then sayii:=13*exp(i*Ln(16));
if (b=’E’) then sayii:=14*exp(i*Ln(16));
if (b=’F’) then sayii:=15*exp(i*Ln(16));
end;
write(sayii:0:0);
readln;
end.

uses crt;
var
a,b,sifre:integer;
ad:string;
begin
clrscr;
repeat
gotoxy(25,10);
write(‘Kullanıcı_adını_girin:’);readln(ad);
gotoxy(25,11);
delay(1000);
writeln(‘!!!Yanlış kullanıcı!!!’);
gotoxy(47,10);
until ad=’sonnur’;
gotoxy(25,11);
delline;
repeat
gotoxy(25,11);
write(‘sifre:’);readln(sifre);
gotoxy(25,12);
delay(1000);
writeln(‘!!!Yanlış Sifre!!!’);
gotoxy(31,11);
until sifre=123;
gotoxy(25,12);
delline;
if(sifre=123)then
gotoxy(27,14);
write(‘hoşgeldin’);
readln;
end.

uses crt;
var
i,x,y:integer;
begin
clrscr;
randomize;
textbackground(0);
for i:=1 to 100 do begin
insline;
x:=random(78);
y:=random(24);
gotoxy(x,y);
textcolor(15);
write(‘*’);
delay(25);
end;
readln;
end.

uses crt;
var
a,b,c,d,e,f,g,h,m,para:integer;
begin clrscr;
writeln(‘Lütfen bir para birimi giriniz’);readln(para); clrscr;
a:=para div 100;
b:=para mod 100;
c:=b div 50;
e:=b mod 50;
d:=e div 10;
f:=e mod 10;
g:=f div 5;
h:=f mod 5;
m:=h div 1;
writeln(para ,’  YTL’,’ *** Bu Paranın Banknotu ***!!!’);
writeln(100,’ YTL’,’=’,a,’ tane var ‘);
writeln(50,’ YTL’,’=’,c,’ tane var ‘);
writeln(10,’ YTL’,’=’,d,’ tane var ‘);
writeln(5,’ YTL’,’=’,g,’ tane var ‘);
writeln(1,’ YTL’,’=’,m,’ tane var ‘);
readln;
end.

uses crt;
var
sutun,satir,a,i,x:integer;
begin
randomize;
clrscr;
writeln(‘sütun sayısını gir:’);readln(sutun);
writeln(‘satır sayısını gir:’);readln(satir);
clrscr;
for i:=1 to satir do begin
for x:=1 to sutun do begin
gotoxy(5*i,3*x);
a:=random(99);
writeln(a);
end;
end;
readln;
end.

n! iÅŸlemini hesaplayan programa girmek için kalvyeden ÅŸifre girilecektir. Åžifre doÄŸru girilene kadar ÅŸifre girmesi istenecek. Åžifre her 3 kez yanlış girilince programdan çıkmak istiyor musunuz: ‘E’,’e’ ÅŸeklinde uyarı verecektir. Kullanıcı ‘e’ yada ‘E’ harfine bastığında programdan çıkacak aksi halde ÅŸifreyi girmeye devam eden program. More »

uses crt;
var
i,sayi,a,b:integer;
tus:char;
begin
clrscr;
for i:=1 to 79 do begin
gotoxy(i,1);write(‘*’);
gotoxy(i,24);write(‘*’);
end; More »

uses crt;
var
i:integer;
begin
clrscr;
for i:=1 to 79 do
begin
gotoxy(i,1);write(‘*’);
gotoxy(i,24);write(‘*’);
end;
for i:=1 to 24 do
begin
gotoxy(1,i);write(‘*’);
gotoxy(79,i);write(‘*’);
end;
readln;
end.

uses crt;
var
a,b,c,d,i:integer;
procedure sekil;begin
clrscr;
for i:=a to c do
begin
gotoxy(i,b);write(‘*’); gotoxy(i,d);write(‘*’);
end;
for i:=b to d do
begin
gotoxy(a,i);write(‘*’);
gotoxy(c,i);write(‘*’);
end;
end;
begin
clrscr;
writeln(‘a sütun koordinatını gir’);readln(a);
writeln(‘b satir koordinatını gir’);readln(b);
writeln(‘c sütun koordinatını gir’);readln(c);
writeln(‘d satır koordinatını gir’);readln(d);
sekil;
readln;
end.