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

دختر شرقی

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

SiminSecret

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

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

سلام خدمت تمامی اساتید محترم من تازه وارد این رشته ام نمیدونم اینجا اجازه درخواست یه پروژه کامل رو دارم یا نه ولی با اجازه:

یه برنامه میخوام بنویسید که یه عدد از ورودی بگیره و:

الف)فاکتوریل اونو حساب کنه
ب)وارونه اونو چاپ کنه
ج)تعداد صفر هاشو چاپ کنه
د)مجموعه ارقام زوجشو چاپ کنه

تمامی این شرط ها نباید تو یه برنامه باشه بلکه باید جدا جدا باشه،حتما باید با دستور while نوشته بشن.
خیلی ممنون.
 

mmnew

New member
سلام

سلام

سلام.
امیدوارم که دیر نشده باشه. من تازه دیدم.
کد:
program test;
var
num,temp,digits,sum:integer;
fact:long;
begin
writeln('Input Number:');
readln(num);
temp=num;
fuct=1;
digits=0;
while (temp>0)
begin
fact=fact*(temp mod 10);
temp=temp/10;
digits=digits+1;
end;
writeln('Factoril=',fact);
writeln('Inverse:');
temp=num;
while (temp>0)
begin
writeln(temp/power(10,digit));
temp=temp mod power(10,digit);
end;
temp=num;
sum=0;
while (temp>0)
begin
if (temp mod 10=0) then sum=sum+1;
temp=temp/10;
end;
writeln('Number of Zeroes: ',sum);
temp=num;
sum=0;
while (temp>0)
begin
if ((temp mod 10) mod 2=0) then sum=sum+temp mod 10;
temp=temp/10;
end;
writeln('Sum of Even Nums: ',sum);
end.
 

arman1629

New member
پرسش و پاسخ در برنامه نویسی پاسکال

سلام
لطفا کمکم کنید
سه تا برنامه بنویسید (با پاسکال) که 10 عدد رو بخونه بعد با استفاده از روش های "حبابی"و "انتخابی" و "درجی" به ترتیب نزولی مرتب کنه
 

شادی1370

New member
برنامه پاسکال (فوری)

برنامه پاسکال (فوری)

سلام میشه این برنامه رو به زبان پاسکال برام بنویسید؟
در این تمرین میخواهیم یک عدد را به عوامل اول تجزیه کنیم و به صورت حاصلضرب این عوامل نشان دهیم. به عنوان مثال عدد 126 را میتوان به صورت حاصلضرب عوامل اول آن به صورت 7*3*3*2 نوشت.

ورودی:
ورودی شامل چندین خط است که در هر خط یک عدد بزرگتر از 1 قرار دارد. در خط آخر عدد 0 (به معنی خاتمه اعداد) قرار دارد.

خروجی:
به ازای هر ورودی (بجز عدد 0 آخر)، در خروجی یک خط چاپ می شود که عدد را به صورت حاصل ضرب عوامل اول آن نشان می دهد. در این خط ابتدا خود عدد به همراه یک علامت مساوی (=) و در ادامه عبارت نشاندهنده حاصلضرب عوامل اول چاپ می شود. دقت کنید که این اعداد حتما باید به صورت صعودی مرتب شده باشند و با علامت ضرب (*) از هم جدا شده باشند. ضمنا در این خط هیچ علامت فاصله (یا space) وجود ندارد.

نمونه ورودی:
126
12
99
0

نمونه خروجی:
126=2*3*3*7
12=2*2*3
99=3*3*11
 

arman1629

New member
1)سه تا برنامه با پاسکال: که 10 عدد رو بخونه و با روش های 1)حبابی و 2)انتخابی و3)درجی به صورت نزولی مرتب کنه؟
2)برنامه ای که تعدادی عدد رو بخونه و در یک آرایه 10 تای ذخیره کنه. سپس حاصلجمع آنها را به همراه بزرگ ترین عدد چاپ کنه؟
 

shakibonline

New member
سلام arman1629 برنامه دوم رو نوشتم ;)
این برنامه 10 عدد رو میگیره ، میریزه تو آرایه 10 تایی ، max رو پیدا می کنه و همراه Index نمایش می ده !!
جمعش رو هم می ده .:D;):razz:
کد:
program shakibonline;
var
   a:array[1..10] of integer;
   i,j,k,l,max,index,sum:integer;
begin
        {------ Get Number's --------}
    i:=1;
    while i<=10 do
    begin
       readln(a[i]);
       inc(i);
    end;
        {------ Sum Array ------}
    sum:=0;
    for k:=1 to 10 do
    begin
       sum:=sum+a[k];
    end;
    writeln;
    for j:=1 to 10 do
    begin 
         write(a[j]:5);
    end;
        {------ Finding Maximum ------}
    max:=a[1];
    for l:=1 to 9 do
    begin
         if max<a[l+1] then
         begin
          max:=a[l+1];
          index:=l+1;
         end;
    end;
         {------ Display Ressult ------}
          writeln;
          writeln('-----------------------':30);
          writeln('maximum:':8,max:5,'maximum index':25,index:5);
          writeln('sum = ':10,sum:4);
          writeln;
end.
 

Farasystem

کاربر ممتاز
1)سه تا برنامه با پاسکال: که 10 عدد رو بخونه و با روش های 1)حبابی و 2)انتخابی و3)درجی به صورت نزولی مرتب کنه؟
2)برنامه ای که تعدادی عدد رو بخونه و در یک آرایه 10 تای ذخیره کنه. سپس حاصلجمع آنها را به همراه بزرگ ترین عدد چاپ کنه؟


با سلام. به زبان ساده جواب سوال 2
کد:
var
        i:integer;
        num:array[1..10]of integer;
        sum,max:integer;
begin
     for i:=1 to 10 do
     begin
          write('NO', i,' = ' );
          readln(num[i]);
     end;
     for i:=1 to 10 do
     begin
          sum:=sum+num[i];
     end;
     max:=num[1];
     for i:=1 to 10 do
     begin
          if max<num[i] then
          begin
               max:=num[i];
          end;
     end;

     writeln('SUM =  ' , sum);
     writeln('MAX =  ' , max);
readln;
end.
 

Farasystem

کاربر ممتاز
1)سه تا برنامه با پاسکال: که 10 عدد رو بخونه و با روش های 1)حبابی و 2)انتخابی و3)درجی به صورت نزولی مرتب کنه؟
2)برنامه ای که تعدادی عدد رو بخونه و در یک آرایه 10 تای ذخیره کنه. سپس حاصلجمع آنها را به همراه بزرگ ترین عدد چاپ کنه؟

مرتب سازی حبابی :

کد:
var
   i,j,temp:integer;
   a:array[1..5]of integer;
begin
     for i:=1 to 5 do
     begin
          readln(a[i]);
     end;
     for i:=1 to 5 do
     begin
          for j:= i+1 to 5 do
          begin
               if a[i]<a[j] then
               begin
                    temp:=a[i];
                    a[i]:=a[j];
                    a[j]:=temp;
               end;
          end;
     end;
     for i:=1 to 5 do
     begin
                writeln(i , ' : ' , a[i]);
     end;
readln;
end.
 

milititi*

New member
درج.انتخاب.حباب

درج.انتخاب.حباب

سلام
لطفا کمکم کنید
سه تا برنامه بنویسید (با پاسکال) که 10 عدد رو بخونه بعد با استفاده از روش های "حبابی"و "انتخابی" و "درجی" به ترتیب نزولی مرتب کنه


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

مشاهده پیوست مرتب.درج.انتخاب.txt
 

azijoonam

New member
مشکل با readln در پاسکال

مشکل با readln در پاسکال

سلام
کسی می دونه چرا با وجود زدن readln انتهای برنامه بازهم صفحه اجرا یک لحظه باز میشه ولی بلافاصله بسته می شه؟چیکار کنم درست بشه؟
 

Farasystem

کاربر ممتاز
سلام
کسی می دونه چرا با وجود زدن readln انتهای برنامه بازهم صفحه اجرا یک لحظه باز میشه ولی بلافاصله بسته می شه؟چیکار کنم درست بشه؟


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

Farasystem

کاربر ممتاز
دوستان این هم مسائل / لطفا اگه کسی میتونه کمک کنه / ممنون میشم
مشاهده پیوست 79134

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

شهریاری 2

کاربر فعال تالار اسلام و قرآن
ببین!
میتونی وقتی خارج شد،با زدن alt+F5دوباره صفحه رو بیاری.
 

aliakat

New member
برنامه ای بنویسید که یک عدد را از ورودی دریافت کرده و تعیین کند آن عدد کامل است یا نه؟
ممنون میشم. اگه پاسخش رو روی وبلاگم بگذارین خیلی گلین.aliakat.blogfa.com
 

yamaha R6

کاربر ممتاز
برنامه ای بنویسید که یک عدد را از ورودی دریافت کرده و تعیین کند آن عدد کامل است یا نه؟
ممنون میشم. اگه پاسخش رو روی وبلاگم بگذارین خیلی گلین.aliakat.blogfa.com

ای جانم چیز دیگه ای نمی خوای؟؟؟؟؟؟؟؟؟؟؟؟ می خوای بیام بجات امتحانم بدم؟؟؟؟؟؟؟؟؟؟؟؟؟
 

shahbazi510

New member
سلام . میخواستم برنامه ای به زبان پاسکال واسم بنویسید که خروجی زیر را چاپ نماید . فقط لطفا سریع با تشکر

*
* *
* *
* *
*
 
آخرین ویرایش:

milititi*

New member
سلام
ميتوني 2تا حلقه for بذاري..اولي تعداد سطر دومي ستون رو تعيين كنه...بعد بگي اگه سطر 1و4 بود يك خط فاصله(ستون اول) بعد ستاره(ستون دوم) رو چاپ كنه...در غير اينصورت دوتا ستاره چاپ كنه
 

milititi*

New member
سلام
ميتوني 2تا حلقه for بذاري..اولي تعداد سطر دومي ستون رو تعيين كنه...بعد بگي اگه سطر 1و5 بود يك خط فاصله(ستون اول) بعد ستاره(ستون دوم) رو چاپ كنه...در غير اينصورت دوتا ستاره چاپ كنه

اصلاح ميشه....4 به 5 تبديل ميشه
 

narges27

New member
سلام کسی می تونه به من کمک کنه ؟ :( چجوری برنامه کتابخونه را به زبان پاسکال بنویسم ؟ :( :(
 

azade1

New member
میشه این برنامه ی زبان c رو به پاسکال بنویسید؟؟؟؟؟؟؟؟؟؟؟؟؟:cry:
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <time.h>
int main()
{
char mat[8][8];
char list[32];
int num[32];
int i,j;
int m;
int done;
int temp,odd;
int bound;
odd=0;
bound=32;
for(i=0;i<bound;i++){
list=221+i;
num=2;
};
printf("\nlist of characters :\n");
for(i=0;i<bound;i++)
printf("%c",list);
printf("\n");
for(i=0;i<8;i++)
for(j=0;j<8;j++){
done=0;
while(!done){
for(temp=0;temp<32000;temp++){
srand(time(NULL));
rand();
};
m = (rand()%bound);
odd++;
if(odd%2 == 0)
m/=2;
if(num[m]!=0){
mat[j]=list[m];
num[m]=num[m]-1;
done=1;
};
};
for(temp=0;temp<bound;temp++)
if(num[temp]==0){
for(m=temp;m<bound-1;m++){
list[m]=list[m+1];
num[m]=num[m+1];
};
bound--;
};
};
int x1,x2,y1,y2;
done=0;
for(i=0;i<8;i++){
printf("\n");
for(j=0;j<8;j++)
printf("%c\t",mat[j]);
printf("\n");
};
printf("Press any key !");
getch();
while(!done){
system ( "cls" );
for(i=0;i<8;i++){
printf("\n");
for(j=0;j<8;j++)
if(mat[j]!=NULL)
printf("?\t");
else
printf("*\t");
printf("\n");
};
printf("\nEnter location of similar objects :");
scanf("%d%d%d%d",&x1,&y1,&x2,&y2);
if(mat[x1-1][y1-1]==mat[x2-1][y2-1]){
printf("\nOK");
mat[x1-1][y1-1]=mat[x2-1][y2-1]=NULL;
}
else{
printf("\nWrong");
getch();
system ( "cls" );
for(i=0;i<8;i++){
printf("\n");
for(j=0;j<8;j++)
if(((x1==i)&&(y1==j)) || ((x2==i)&& (y2==j)))
printf("%c\t",mat[j]);
else
printf(" \t");
printf("\n");
};
};
printf("\nContinue (Y\\N) : ");
if(getche()=='n')
done=1;
};
for(i=0;i<8;i++){
printf("\n");
for(j=0;j<8;j++)
printf("%c\t",mat[j]);
printf("\n");
};
getch();
return 0;
};
 

azade1

New member
آخه چرا هیچوقت کسی نیس ج منو بده؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
آخه من با این برنامه چه کنم؟؟؟!!!!!:cry:
 

RIG

متخصص C#.net
مشکل از یرنامه نصبی خودت رو سیستمت هست یا از نوع کدی که نوشتی . وگرنه همچین چیزی غیر ممکن هست.
 

RIG

متخصص C#.net
البته biuld کردن برنامه و کل خودن کد ها مهم هست .
 

serversaeed

New member
سلام
کسی می دونه چرا با وجود زدن readln انتهای برنامه بازهم صفحه اجرا یک لحظه باز میشه ولی بلافاصله بسته می شه؟چیکار کنم درست بشه؟
سورس کامل برنامتون رو بنویسین تا نگاهی بکنیم. این مورد تا به حال برا من اتفاق نیفتاده
 

Similar threads

بالا