درخواست چند برنامه ی پاسکال

سلام به همگی :)
این برنامه ها رو میخواستم اگه ممکنه لطفی وکنید!
ببینید من سال سوم هنرستان هستم و زیاد بلد نیست وسط های پاسکال 2 هستم
read,readln,write,writeln,case,array,if,repeat,unt il و چند تا دستور و تابع دیگه رو بیشتر بلد نیستم
procedure,function رو هم خوندیم پس یه جوری بنویسید که معلممون گیر نده:D


1-پردازه ای به نام RemoveSpace بنویسید که کراکترهای Space ابتدای یک رشته را حذف نماید. رشته به پردازه ارسال می گردد.

2-پردازه ای به نام TrimString بنویسید که کراکترهای Space ابتدای یک رشته را حذف نماید. رشته به پردازه ارسال می گردد.

3-پردازه ای بنویسید که از یک رشته ی حاوی تاریخ شماره ی ماه را به صورت عدد برگرداند. رشته به صورت پارامتر به پردازه ارسال می شود.

4-برنامه ای بنویسید که نام یک سایت تجاری را دریافت نماید و آدرس وب آن را با اضافه ی www به ابتدای آن و اضافه کردن com. به انتهای آن تولید کند.
مثلا با دریافت sony آدرس [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] را تولید کند.

خیلی خیلی خیلی خیلی ممنون بیدم!
این پردازه رو هم خوندیم
string و boolean و char و .............. رو هم بهمون درس دادن:)
:cool:

اين اوليش :

کد:

---

uses crt;
procedure removespace(var n:string);
begin
while n[1]=chr(32) do
delete(n,1,1);
end;
var n:string;
begin
clrscr;
readln(n);
removespace(n);
writeln(n);
readkey;
end.

---

اينم آخري :

کد:

---

uses crt;
var n:string;
begin
clrscr;
readln(n);
insert('www',n,1);
insert('.com',n,length(n)+1);
writeln(n);
readkey;
end.

---

مورد دومت فكر كنم اشتباه نوشتي ( اگه منظورت فاصله آخر رشته هست اينم برنامش :)

کد:

---

uses crt;
procedure trimstring(var n:string);
begin
while n[length(n)]=chr(32) do
delete(n,length(n),1);
end;
var n:string;
begin
clrscr;
readln(n);
trimstringe(n);
writeln(n);
readkey;
end.

---

reza_s جون دستت درست ولی ما readkey و insert رو نخوندیم هنوز:)

ساسان جان شما ميتوني readkey رو ننويسي كارش اين هست كه وقتي برنامت رو اجرا كردي و جواب گرفتي سريع به محيط برنامه بر نميگرده منتظر ميشه كه يك كليدي رو بزني بعد بره به محيط كد نويسي پاسكال. اين هم براي اين هست كه بتوني خروجي برنامه ات رو ببيني چون اگه اين يا دستوراتي مانند اين رو ننويسي وقتي از برنامه خروجي گرفتي منتظر نميمونه كه خروجي رو نگاه كني و مجبور ميشي كليد هاي alt+F5 رو بزني تا خروجي رو ببيني.
در ضمن كار insert درج يك رشته در محل مورد نظر داخل رشته اي ديگر هست .

راستي برنامه چهارمت رو مي توني بدون insert بنويسي :

کد:

---

uses crt;
var s,n:string;
begin
clrscr;
readln(n);
s:='www.'+n+'.com';
writeln(s);
readkey;
end.

---

خیلی خیلی خیلی خیلی خیلی خیلی خیلی خیلی ممنون
فقط رضا جون این برنامه ی سوم رو هم یه کاریش بکن:)

خواهش مي كنم ساسان جان . اميدوارم اين برنامه ها رو ياد هم بگيري.
اينم برنامه سومي. ( مي دونم يكم راهش سخته ولي كاريش نميشه كرد.البته سختيش هم براي اين هست كه تاريخ قالب بندي خاصي نداره مثلا ممكنه 1/2/1384 وارد بشه يا 1/02/84 )

کد:

---

uses crt;
procedure mah(n:string);
begin
x:=pos('/',n);
if n[x+3]='/' then s:=copy(n,x+1,2) else s:=copy(n,x+1,1);
writeln(s);
end;
var n,s:string;
  x:integer;
begin
clrscr;
readln(n);
mah(n);
readkey;
end.

---

رضا جون آخرشی!
دستت درد نکنه :)
خیلی مخلصیم;)

ساسان جان خوشحالم كه به دردت خورده. :)
راستي يك وقت نگي بيا 1000 خط برنامه بنويس ها ;) ;)

نه رضا جون مطمئن باش اگرم برنامه بخوام بیشتر از 20 30 خط نمیشه:)

رضا جون این برنامه آخریه کار نمیده فکر کنم VAR لازم داره !
رضا جون یه جوری بنویسش که تا Compile کردی بدون مشکل اجرا بشه ممنون رضا جون:);)

شما جون بخواه اگه موجود باشه حتما ميدم.( يكم موضوع تاپيك داره منحرف ميشه)

ساسان جان يكم تغيير دادم . اين رو امتحان كن. من خودم امتحان كردم جواب داد.

کد:

---

uses crt;
procedure mah(n:string);
var x:integer;
    s:string;
begin
x:=pos('/',n);
if n[x+3]='/' then s:=copy(n,x+1,2) else s:=copy(n,x+1,1);
writeln(s);
end;
var n:string;
begin
clrscr;
readln(n);
mah(n);
readkey;
end.

---

مشكلش اين بود كه من بايد var رو قبل از procedure ميزاشتم تا متغيير ها داخل پروسيجر هم شناخته شده باشند.
الان اگه var رو بالاي پروسيجر مي زاشتم كار مي كرد ولي من اومدم دو تا متغيير x,s رو به صورت محلي داخل پروسيجر گذاشتم.
( اينا رو گفتم تا بهتر بفهمي جريان از چه قراره)

ممنون از رضا جون:);)

سلام
منم دو تا برنامه می خواستم ..
من اینجا تازه واردم .. اگه کمکم کنین ممنون می شم :)
دو تا برنامه پاسکال می خواستم ..
ا- یک تقویم .. که توی یک صفحه جا بشه .. و مثلا به جای شنبه و اینا .. از 0 تا 6 باشه .. شروع سال و پایانش هم مثل امسال باشه .

2- یک برنامه که ماتریس معکوس بده .. و حداقل ماتریس 10 در 10 بگیره و حداکثر 20 در 20 ..



اگه جوابمو بدین خیلی ممنون می شم ..
اینا رو واسه هفته دیگه می خوام ...