Pascal notları

Elinde pascal notları olan varsa paylaşabilirmi?Lütfen daha çok üniversite'de kullanılan örnekler varsa onlar paylaşılsın.Teşekkürler.

lisede de üniversitede de pascalı sıfırdan anlatıyorlar. ünide bi ayrıcalık yok yani

buradan indirebilirsin ders notlarını > http://serdar.ktg.com.tr/Pascal7.zip

Sağolasın kardeş 0 dan anlattıklarını bildiğim için onu istiyorum çünkü bende daha sıfırım

Pascal ı ne yapacaksın abicim. Visual Basic Öğren ona harcıyacağın zamana daha kısa sürede para kazanırsın . yada ne bilim öyle 1 şeyler

Visual basic notları varsa alabiliriz arkadaşlar pascal konusu ilk dönem işlemiştik ama bitti sonuçta

Bize de hem C hem Delphi hem de .net aynı anda gösterceklermiş syntax lar çorba olcak seneye valla.

şimdi yazdım al bakalım küçük ten büyüğe sıralama ;

uses crt;
var i,j,n,ara_deg:integer;
sayi:array[1..50] of integer;
begin
clrscr;
writeln;
write('kac sayi siralanmasini istiyorsunuz?(max:50)');
readln;
for i:=1 to n do
begin
write('sayi[',i,']:');
readln(sayi[i]);
end;
writeln('Girilen Sayilar');
writeln('_______________');
for i:=1 to n do write(sayi[i],' ');
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if sayi[j]<sayi[i] then
begin
ara_deg:=sayi[j];
sayi[j]:=sayi[i];
sayi[i]:=ara_deg;
end;
writeln;
writeln('Kucukten Buyuge Siralanmis Sayilar');
writeln('__________________');
writeln;
for i:=1 to n do write(sayi[i],' ');
repeat until keypressed;
end.

:P

zmanım oldukça bu başlık altında yazarım yanlış varsa bilgilendirin

al bakalım bir tane daha yazdım. . .
fiboneccii . . .

uses crt;
var a,b,c,i,t:integer;
begin
clrscr;
write('terim sayisini giriniz:');readln(t);
a:=3;
b:=(a*3)+1;
c:=b-1;
i:=1;
write(a,' ',b,' ',c);
repeat
c:=(c*3)+1;
write(' ',c);
c:=c-1;
write(' ',c);
i:=i+1;
until i<t;
readln;
end.

:P

eğer ayrıyetten sorunuz olursa sorabilirsiniz zamanım oldukça bakarım