جوجه مهندسان كامپيوتر(نياز به كمك بزرگان دارند...پاسكال)

نقل قول:

---

نوشته شده توسط Admiral

با پاسکال هم میشه از این کارا کرد !

یه سری به توابع یونیت گرافیک بنداز ;)

---

مي دونم ميشه
ولي كاري را كه ميشه با چند تا كليك حلش كرد چرا آدم خودش را بدبخت كنه
در ضمن از برنامه هم متشكر ولي هنوز امتحان نكردم.

نقل قول:

---

مي دونم ميشه
ولي كاري را كه ميشه با چند تا كليك حلش كرد چرا آدم خودش را بدبخت كنه

---

به خاطر جنبه آموزشی یا اجبار استاد یا .....

سلامي چو بوي خوش آشنائي...
سلام بچه ها اين يكي دو روزي كه من نبودم اتفاقاي زيادي افتاده از جمله انتقال تاپيك ... :question: :exclamati :thumbsup:
و از همه مهمتر اينكه p30world تغيير سرورداده :wub: و ديگه مشكلي واسه لود كردن سايت نداريم...
وازاستاد admiral هم كه تو اين مدت تاپيك رو نتها نذاشتن تشكر مي كنم....

تيتان عريز يه برنامه خواسته بودن كه ميزارم .....

برنامه اي كه عدد ورودي را به ارقام آن تبديل كند

کد:

---

const
  maxary=15;
Type
ary=array[1..maxary] of integer;
var
n,temp,R,i,j:integer;
ary1:ary;

begin
writeln ( 'Enter a Nu: ');
readln(n);

temp:=n;

while temp<>0 do
begin
R:=temp mod 10;
ary1[i]:=R;
i:=i+1;
temp:=temp div 10;
end;

writeln ( 'The Digit of ',n,' is : ');
for j:=1 to i do
write (' ',ary1[j],' ' );

readln;
end.

---

البته اين برنامه يه راه حل ديكه هم داره، اونم اينه كه عدد رو در قالب string دريافت كنه و بقه رو كه همه بلدن....

فعلا ياعلي

آقا صدرا اين برنامه اي كه اين بالا دادي بعضي از دسشتوراتش را هنوز استاد ما ياد نداده
مثلا دستور Type و... :sad:
و اين در حاليه كه سوال ميان ترم ما بوده.
يا يه فكر ديگه بردار يا دوستان ديگه(Admiral عزيز) كمك كنند.
:happy: Bye

اگه میخوای از برنامه جناب صدرا استفاده کنی اون رو به صورت زیر تغییر بده تا درست جواب بده:

کد:

---

program test;
const
  maxary=15;
Type
ary=array[1..maxary] of integer;
var
 n,temp,R,i,j:integer;
 ary1:ary;

begin
 writeln ( 'Enter a Nu: ');
 readln(n);
 temp:=n;
 i:=1;
while temp<>0 do
begin
 R:=temp mod 10;
 ary1[i]:=R;
 i:=i+1;
 temp:=temp div 10;
end;

 writeln ( 'The Digit of ',n,' is : ');
for j:=1 to i-1 do
 write (' ',ary1[j],' ' );

readln;
end.

---

اگه ترتیب ارقام مهم نیست(مثل برنامه صدرا) اصلاً نیازی به آرایه نیست میتونی همونطور که با mod ارقام رو جدا میکنی بفرستیشون به خروجی !

پس مشخص کن ترتیب ارقام مهمه یا نه.

سلام
کسی میتونه یه کمک خیلی فوری به من بده!
استاد ما گفته به عنوان پروژه برنامه snake یا همون کرم را بنویسید
تو رو خدا هرکی میتونه برام بنویستش

سلامي خيلي بيحالانه....(شرمندم)
بيحالم چون...
اولا احتمال داره رياضي 1 (..اره رياضي 1) رو اين ترم بز بيارم بچه ها شما رو به اوني كه مي پرستيد واسم دعا كنيد
دوما اين چند روز هر چي به forum.p30world سر زدم به در بسته خوردم ديگه نمي دونم امروز افتاب از كدوم طرف در اومده مهربون شده ;)
سوما يه مدت كه از ايليا جون خبري نيست :sad: ... دلم واسش به اندازه سوراخ سوزن واسش تنگ شده...:blush:

خوب بگذريم از هرچي سخن برنامه نويسي خوش تر است....

برنامه شمردن كركتر هاي يك string .... ( بابا اين هم ناقص هست... بعد نياين پيغام خصوصي ناسزا بگين....)

(

کد:

---

* Program: Finding Then Number of Character
    Programmer: SADRA*)

Const
    Maxary=15

Type
    Ary=array[1..maxary] of integer;

Var
    A,ki:integer;
    Str1,str2:string;
    Ary1:ary;

Begin
    Writeln(’Enter  string:’)
    Readln(str1);

    A:=length(str1);
    Cnt:=1;
    K:=1,

    For i:=1 to a do
        Begin
            For j:=1 to a do
                begin
                    While (j<=a) do
                          begin
                              If  str1[i]=str1[j] then
                                    begin
                                        cnt:=cnt+1;
                                        j:=j+1;
                                    end
                              else
                                    j:=j+1;
                                  end;
                              str2[k]:=str1[i];
                              ary1[k]:=cnt;
                            end;
                        k:=k+1;
                    end;

for i:=1 to k do
writeln();

readln;
end

---

.

يادتون نره واسم دعاكنيد... خواهش ميكنم :blush:
ياعلي

سلام به بچه هاي گل ايران زمين
يه سلام مخصوص( از نوع پاچه خوارانه ;) ) خدمت صدراي گل گلاب

بچه ها ( صدرا جان ) ازتون برنامه هائي رو مي خواستم كه با string كار كنم البته اوليشو سلطان گذاشته ولي لطفا ادامه داشته باشه

راستي صدرا جون امضا رو فقط حال كن;) :puke:

اقا جون هرکی که دوست دارین یه کمکی به من بکنید
من تا یک هفته دیگه باید برنامه snake رو تحویل بدم

سلام دوستان
من یه مشکلی دارم در مورد برنامه ی زیر که وقتی عدد n رو وارد می کنیم فاکتوریلشو حساب می کنه .
مشکل اینه که فاکتوریل بعضی از اعداد رو مثبت می نویسه ( مثل 10) و فاکتوریل بعضی از اعداد رو منفی می نویسه (مثل 16 ) و فاکتوریل بعضی از اعداد رو صفر می نویسه (مثل 18 )
حالا من باید چی کار کنم ؟
راستی اگه سوالم simple ه شما ببخشین

کد:

---

Program a;
Var i,n,fact:integer;
Begin
Fact:=1;
Write (‘please enter a number’);
Readln (n);
For i:=n downto 1 do
Fact:=fact*I;
Writeln(‘fact=’,fact);
End.

---