|
|
Pascal bölümüne hoşgeldiniz!
|
|
|
|
|
|
|
|
|
|
Devamı...  |
| |
|
|
|
| Devamı... |
| |
|
| Örnek Uygulamalar : |
Kullanıcı |
Puan |
|
Tarih |
| 1- |
 pascalda küp çevirme 3d ortamında |
happyyellow |
50 |
|
28 Aralık '05 |
|
 program boxrot;
uses graph,crt;
const radtheta=1{degrees}*3.1415926535{radians}/180{per degrees};
type tpointr=..... |
| Bölüm: Pascal |
|
|
|
 |
| 2- |
2 kare matris hesaplama |
ataskin27 |
50 |
|
18 Aralık '05 |
|
program matris;
uses crt;
var
A,B,C : array[1..20,1..20] of integer;
i,j,n,k : integer;
begin
while n<=0 do
..... |
| Bölüm: Pascal |
|
|
|
|
| 3- |
Menülü Telefon Rehberi (Bilgi Giriş Bölümü) |
ilkerkirtan |
25 |
|
29 Eylül '05 |
|
uses crt;
type kayit=record
isim:string[20];
soyisim:string[20];
telefon:string[15];
cep:string[15];
adres:str..... |
| Bölüm: Pascal |
|
|
|
|
| 4- |
gotoxy komutuna kucuk bır ornek. |
melisa24 |
60 |
|
16 Haziran '05 |
|
uses crt;
var
m,n:string;
i,j,k,l,c:byte;
begin
REPEAT
clrscr;
write('GORUNTULEME TARZINIZI SECIN (1-2-3?) ='); READL..... |
| Bölüm: Pascal |
|
|
|
|
| 5- |
güzel bir takvim programı ayrıca tarihi istediğini |
murat6693 |
45 |
|
24 Mayıs '05 |
|
{ Bu Program MURAT DALGI€ Tarafndan
30/08/2004 Tarihinde Son Halini AlmŸtr. }
uses crt,dos,secim,tuslar;
const
gun:array..... |
| Bölüm: Pascal |
|
|
|
|
| 6- |
Basit Bir Araba Kiraya verme ve Geri Alma ışlemler |
murat6693 |
45 |
|
24 Mayıs '05 |
|
program arabatakip;
uses crt,dos;
type
araba=record
plaka:string[10];
gels,gelsn,gits,gitsn,gelg,gela,gely,gitg,gita,gity:w..... |
| Bölüm: Pascal |
|
|
|
|
| 7- |
Pascalda sınırlı alanda istediğiniz satır miktarın |
murat6693 |
60 |
|
24 Mayıs '05 |
|
{ Bu Program 01/09/2004 tarihinde Murat Dalgic tarafindan Yapylmystir
basicp@tnn.net
murat6693@kahkaha.com
..... |
| Bölüm: Pascal |
|
|
|
|
| 8- |
Binary Search Pascal Kodu |
881211 |
5 |
|
4 Mayıs '05 |
|
Uses wincrt;
Var
IB,IS,IC,N,i,x : integer;
A:Array[1..1000] of integer;
Begin
clrscr;
write('Kac sayi gireceks..... |
| Bölüm: Pascal |
|
|
|
|
| 9- |
Faktöriyel hesabı! |
matheist |
45 |
|
6 Mart '05 |
|
uses crt;
var
s,i,j:byte;
begin
clrscr
write('Sayyyy girin :');
readln(s);
for i:=1 to s do
begin
f:=f*1;
..... |
| Bölüm: Pascal |
|
|
|
|
| 10- |
grafik modunda mukemmel bir yazı efeği |
ksksks |
45 |
|
22 Şubat '05 |
|
uses crt,graph;
var
gs,gm:integer;
b,i,f,e:integer;
procedure yaz(a,c,r,d:integer; s:string); begin
for i:=1 to length(s) d..... |
| Bölüm: Pascal |
|
|
|
|
| Devamı... |
| |
|
|
|
| Devamı... |
| |
|
|
|
 |
 |
| 1. |
|
| 2. |
|
| 3. |
|
| 4. |
|
| 5. |
|
| 6. |
|
| 7. |
|
| 8. |
|
|
|
 |
Henüz bu bölüm için bir hediye sponsoru yok.
Sponsorluk için tıklayın!
|
|
 |
|
|
 |
|
|
