کی پاسکال بلده ؟

[Sajad]

به functionهای پاسکال نمیگن procedure. هر کدومشون یه چیز جدا هستند.
که البته فانکشن رو به صورت پروسیجر هم میشه نوشت...
کار نداریم.

من خودم صبح یه کارایی خواستم بکنم اما قاطی کردم
اولین کاری که کردم بعد از گرفتن رشته و اندازه گرفتن طول اون شروع کردم به verify کردن تک تک اون ...
یعنی چک کردم که اون استرینگ شامل اعداد ۰..۹ باشه و یا اپراتورهای × ÷ − + باشه و اگه چیز دیگه ای هست اخطار بده !
اگر استرینگ بدین صورت بهش میدادیم sfsfgsggs خطا میگرفت اگر 2232+2323 میدادی خطا نمیگرفت.
اما یه مشکلی داشت که اگر 3243ddf232+3434 هم بهش میدادی خطا نمیگرفت در حالی که ddf وقتی اون وسط هست باید خطا میداد ؟

---------- Post added at 12:57 AM ---------- Previous post was at 12:48 AM ----------

منظورم این بود که میشه یه چیز دیگه هم نوشت ؟
دومی و سومی ساده هستن
بذارید من مثال بنویسم :

برنامه ای که 10 عدد صحیح را بگیرد و در آرایه ها ذخیره کند . سپس تعداد اعداد زوج را نمایش دهد !

روال نوشتن برنامه به این شکل هست :

program t1;
var
i,m:integer;
no:array[1..10] of integer;
begin
writeln ('please enter your numbers :')
for i:= 1 to 10 do
readln (no [i] mod 2=0 then
m:=m+1;
writeln (' teedAde aadAde zooj =')
end.

در اینجا وقتی ورودی ها گرفته میشن ، در آرایه ها ذخیره میشن
مثلا :[no[1 میشه عدد اول و بعد فراخوانی میشه و توی کارهای بعدی استفاده میشه

راستش امتحان دارم و نمیرسم بشینم بنویسم
اگه وقت هست بگید ، فردا صبح مینویسم

ظاهرا فقط همین رو میشه نوشت که همه گفتن یه برنامه بنویسم دیگه اگه دلخواهی بود همشون اینو نمیگفتن . راست راست هم کلیک نمیکردن رو این !

از لحاظ وقت مشکلی نیست تا شنبه صبح وقت دارن ببرن...

من خودم کلا با حل مسائل ریاضی مشکل دارم چه برسه برنامه ای بخوام بنویسم که عبارت ریاضی رو حل کنه

[Mohsen]

اگر استرینگ بدین صورت بهش میدادیم sfsfgsggs خطا میگرفت اگر 2232+2323 میدادی خطا نمیگرفت.
اما یه مشکلی داشت که اگر 3243ddf232+3434 هم بهش میدادی خطا نمیگرفت در حالی که ddf وقتی اون وسط هست باید خطا میداد ؟

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