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

نه رضا جون مطمئن باش اگرم برنامه بخوام بیشتر از 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 ..



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