Osman Kılıç

uses crt;
var
numa,turdogru,turyanlis,turbos,matdogru,matyanlis,
matbos,j:integer; fendogru,fenyanlis,fenbos,sosdogru,sosyanlis,
sosbos:integer; ad,soyad,bolum:string;turnet,turpuan,matnet,matpuan,fennet,fenpuan,sosnet,sospuan,topnet,toppuan:real; topdogru,topyanlis,topbos:integer;
begin
clrscr; More »

uses  crt;
var
n,i,r1,r,fakn,faknr,toplam:integer;
sonuc:real;
write(‘n değerini giriniz:’);readln(n);
write(‘r değerine giriniz:’);readln(r);
r1:=r;
faknr:=1; fakn:=1;
for i:=1 to n do begin
toplam:=i*r1+toplam;
r1:=r1,1;
fakn:=fakn*i;
end;
sonuc:=toplam/(faknr*fakn);
readln;
end.

uses crt;
var
toplam,i,fak,n:integer;
sonuc:real;
begin
clrscr;
fak:=1;
writeln(‘n sayısını giriniz’);readln(n);
for i:=1 to n  do begin
if odd(i)then
toplam:=toplam+i;
fak:=fak*i;
end;
sonuc:=toplam/fak;
writeln(‘sonuc:’,sonuc:6:2);
readln;
end.

uses crt;
var
toplam,i,fak,n,r,fakr,faknr:integer;
sonuc:real;
begin
fak:=1; faknr:=1;
writeln(‘r sayısını giriniz’);readln(r);
writeln(‘n sayısını giriniz’);readln(n);
for i:=1 to n  do begin
toplam:=toplam+i;
fak:=fak*i;
if(i<=(n-r))then
faknr:=faknr*i;
end;
sonuc:=toplam/(faknr*fak);
writeln(‘sonuc:’,sonuc:6:2);
readln;
end.

uses crt;
var
fak,i,n,r,fakt,fakr,faktnr:integer;
sonuc:real;
begin
writeln(‘r sayısını giriniz’);readln(r);
writeln(‘n sayısını giriniz’);readln(n);
fak:=1; fakr:=1; faktnr:=1;
for i:=2 to n  do begin
fak:=fak*i;
if(i<=r)then
fakr:=fakr*i;
if(i<=(n-r))then
faktnr:=faktnr*i;
end;
sonuc:=fak/(faktnr*fakr);
writeln(‘sonuc’,sonuc);
readln;
end.

uses crt;
var
i,a,kalan,cift,tek:integer;
begin
for i:=1 to 10 do begin
write(‘sayıyı gir:’);readln(a);
kalan:a mod 2;
if (kalan=0) then
cift:=cift+1
else if (kalan=1) then
tek:=tek+1;
end;
writeln(‘çift sayıların adedi:’cift);
writeln(‘tek sayılarınadei:’,tek);
readln;
end.

uses crt;
var
a,i,negatif,pozitif:integer;
begin
for i:=1 to 10 do begin
write(‘sayıyı gir:’);readln(a);
if (a>0) then
pozitif:=pozitif+1
else
if (0>a) then
negatif:=negatif+1;
end;
writeln(‘pozitif sayılar:’,pozitif);
writeln(‘negatif sayılaar:’,negatif);
readln;
end.

uses crt;
var
toplam,i,yas:integer;
isim:string;
begin
clrscr;
for i:=1 to 5 do begin
write(‘yaşı gir:’);readln(yas);
toplam:=toplam+yas;
end;
writeln(‘toplam:’,toplam);
readln;
end.

uses crt;
type
notlar=record
not1:byte;
not2:byte;
ort:byte;
end;
dersnotu=record
mat:notlar;
fizik:notlar; More »

uses crt;
type
kay=record
tele:string[11];
maas:integer;
ad,soy,ara:string;
end;
var More »