بانک سورس پاسکال

[iranfa]

دوستان عزیز ، با اجازه مدیر می خواهیم اینجا هر چی سورس واسه پاسکال داریم قرار بدیم . من خودم به عنوان یک مبتدی که از پاسکال دارم شروع میکنم با کلی سرچ فقط چند تا سورس پاسکال گیر آوردم ، لازم دونستم که یک همچین جایی رو بزنم.
دوستان کمک کنید هر سورسی از پاسکال دارید بگزارید ، چون اصل یادگیریی به بررسی سورس هستش درست نمیگم ؟

[iranfa]

سورس تبدیل سیلیسیوس به فارنهایت :

uses crt;
var
c: shortint;
f : real ;
begin
clrscr;
write('Silisius ra vared konid : ');
textcolor(cyan);
read(c);
f := (c*1.8) + 32 ;
write('farenhaite : ');
textcolor(red);
write(trunc(f)A);
readkey
end.
سورس محاسبه فاکتوریل :

uses crt;
var
a,b,c : integer;
begin
clrscr;
write('enter one number : ');
textcolor(cyan);
read(a);
b := 1;
for c := 1 to a do
b := b * c;
textcolor(red);
write('fac ',a,' is ');
textcolor(yellow);
write(b);
readkey;
end.

[hadiaj168]

خواندن یک فایل متنی و جدا کردن تک تک کلمات تا رسیدن به اولین نقطه.

procedure TForm1.Button1Click(Sender: TObject);
var

w : char;
i:integer;
begin

AssignFile(source, 'source.txt');

i := 0;

Reset(source);
Read(source,w);

while w <> '.' do
begin

while w = ' ' do
Read(source,w);

if w = '.' then
break ;

i := i+1;
setlength(word,i); //***************

while (w <> ' ') and (w <> '.') do
begin
word[i-1] := concat(word[i-1],w);
Read(source,w);
end;

end;
n:=i; // azad kardan motaqhayer 'i'
CloseFile(source);
edit1.Text:=inttostr(n); //tedad kalamat . noqhte khande nemishavad*****
memo1.Lines.LoadFromFile('source.txt');
button1.Enabled := false;
end;

[iranfa]

هادی جان خیلی ممنون اما این یک سورس دلفی نه پاسکال ، ولی از این که اهمیت دادی خیلی ممنونم...
دوستان همکاری نمیکنیدا !!!
بسیار خوب فعلا یک سورس دمه دستی بیزارم براتون تا ببینیم چی میشه ؟
سورس مرتب سازی آرایه به صورت حبابی

program arr;
uses crt;
var
a : array [1..10] of byte;
temp,m,n : byte;
begin
(*Daryafte etelaat *)
for m := 1 to 10 do begin
clrscr;
Writeln('Please enter ',m,'th positive number(1-255)');
Readln(a[m]);
end;
(* moratab sazi *)
for n := 1 to 9 do
for m := 1 to 9 do begin
if a[m] > a[m+1] then begin
temp := a[m+1];
a[m+1] := a[m];
a[m] := temp;
end;
end;
(* namayesh arraye *)
for n := 1 to 10 do
write(a[n]0,' ');
end.

[sql_qassem]

كار قشنگيه . اي كاش بصورت بصورت مجموعه اي از فايل ها هم بصورت فشرده همين تاپيك آپلود كني
ممنون

[iranfa]

خیلی ممنون،حتی میشه یک کار خیلی قشنگ هم کرد ف یک برنامه بانک سورس بسازم ، اما یک مشکل وجود داره که اگه دوستان همکاری کنن حل میشه ، وقتی میگیم بانک طبیعتا باید تعداد سورس ها زیاد باشه در حالی که تا به الان این طور نبوده.

[askar98]

باسلام کسی هست یه راهنمای کنه
من تازه پرنامه نویسی پاسکال رو شروع کردم
سورس ساخت مثلث متساوی الاضلاح رو می خواستم که با حلقه forساخته بشه ممنون می شم

[mf4arman24]

سلام کسی سورس چرتکه نداره؟ همین ماشین حساب های دستی قدیمی

[MohsenB]

سلام


فکر نمیکنید این تاپیک به این (http://barnamenevis.org/showthread.php?209792-%D8%B3%D9%88%D8%B1%D8%B3%D9%87%D8%A7%D9%8A-%D9%86%D9%85%D9%88%D9%86%D9%87-%D8%A2%D9%85%D9%88%D8%B2%D8%B4%D9%8A)یا این (http://barnamenevis.org/showthread.php?190417-%D9%85%D8%B1%D8%AC%D8%B9-%D8%AA%D9%88%D8%A7%D8%A8%D8%B9-%D8%AF%D9%84%D9%81%DB%8C)خیلی شبیه باشه؟