پرسش و پاسخ در برنامه نویسی پاسکال
- شروع کننده موضوع دختر شرقی
- تاریخ شروع
SiminSecret
عضو جدید
درخواست یه برنامه برای پاسکال
درخواست یه برنامه برای پاسکال
سلام خدمت تمامی اساتید محترم من تازه وارد این رشته ام نمیدونم اینجا اجازه درخواست یه پروژه کامل رو دارم یا نه ولی با اجازه:
یه برنامه میخوام بنویسید که یه عدد از ورودی بگیره و:
الف)فاکتوریل اونو حساب کنه
ب)وارونه اونو چاپ کنه
ج)تعداد صفر هاشو چاپ کنه
د)مجموعه ارقام زوجشو چاپ کنه
تمامی این شرط ها نباید تو یه برنامه باشه بلکه باید جدا جدا باشه،حتما باید با دستور while نوشته بشن.
خیلی ممنون.
درخواست یه برنامه برای پاسکال
سلام خدمت تمامی اساتید محترم من تازه وارد این رشته ام نمیدونم اینجا اجازه درخواست یه پروژه کامل رو دارم یا نه ولی با اجازه:
یه برنامه میخوام بنویسید که یه عدد از ورودی بگیره و:
الف)فاکتوریل اونو حساب کنه
ب)وارونه اونو چاپ کنه
ج)تعداد صفر هاشو چاپ کنه
د)مجموعه ارقام زوجشو چاپ کنه
تمامی این شرط ها نباید تو یه برنامه باشه بلکه باید جدا جدا باشه،حتما باید با دستور while نوشته بشن.
خیلی ممنون.
mmnew
عضو جدید
سلام
سلام
سلام.
امیدوارم که دیر نشده باشه. من تازه دیدم.
سلام
سلام.
امیدوارم که دیر نشده باشه. من تازه دیدم.
کد:
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.
برنامه پاسکال (فوری)
برنامه پاسکال (فوری)
سلام میشه این برنامه رو به زبان پاسکال برام بنویسید؟
در این تمرین میخواهیم یک عدد را به عوامل اول تجزیه کنیم و به صورت حاصلضرب این عوامل نشان دهیم. به عنوان مثال عدد 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
برنامه پاسکال (فوری)
سلام میشه این برنامه رو به زبان پاسکال برام بنویسید؟
در این تمرین میخواهیم یک عدد را به عوامل اول تجزیه کنیم و به صورت حاصلضرب این عوامل نشان دهیم. به عنوان مثال عدد 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
shakibonline
عضو جدید
سلام arman1629 برنامه دوم رو نوشتم 
این برنامه 10 عدد رو میگیره ، میریزه تو آرایه 10 تایی ، max رو پیدا می کنه و همراه Index نمایش می ده !!
جمعش رو هم می ده .
این برنامه 10 عدد رو میگیره ، میریزه تو آرایه 10 تایی ، max رو پیدا می کنه و همراه Index نمایش می ده !!
جمعش رو هم می ده .
کد:
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.
با سلام. به زبان ساده جواب سوال 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.مرتب سازی حبابی :
کد:
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*
عضو جدید
درج.انتخاب.حباب
درج.انتخاب.حباب
البته شبه کده...برای دونستن روال برنامه بد نیست
مشاهده پیوست مرتب.درج.انتخاب.txt
درج.انتخاب.حباب
البته شبه کده...برای دونستن روال برنامه بد نیست
مشاهده پیوست مرتب.درج.انتخاب.txt
دوستان این هم مسائل / لطفا اگه کسی میتونه کمک کنه / ممنون میشم
مشاهده پیوست 79134
مشاهده پیوست 79134
پیوست ها
-
20120107348.jpg
دوست عزیز این مسئله ها مسائل ابتدایی و پایه پایکال هست، که مسائل سختی هم نیست. پیشنهاد می کنم خودتون انجام بدید که هم شیرینی برنامه نویسی رو بفهمید هم این که یاد بگیرید. گه کس دیگه ای سورس برنامه ها رو براتون بنویسه چه فایده ای داره به جز نمره!!!؟
ای جانم چیز دیگه ای نمی خوای؟؟؟؟؟؟؟؟؟؟؟؟ می خوای بیام بجات امتحانم بدم؟؟؟؟؟؟؟؟؟؟؟؟؟
shahbazi510
عضو جدید
سلام . میخواستم برنامه ای به زبان پاسکال واسم بنویسید که خروجی زیر را چاپ نماید . فقط لطفا سریع با تشکر
*
* *
* *
* *
*
*
* *
* *
* *
*
آخرین ویرایش:
milititi*
عضو جدید
اصلاح ميشه....4 به 5 تبديل ميشه
چجوری برنامه کتابخونه را به زبان پاسکال بنویسم ؟ 
azade1
عضو جدید
میشه این برنامه ی زبان c رو به پاسکال بنویسید؟؟؟؟؟؟؟؟؟؟؟؟؟
#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;
};
#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;
};
aidinMC
عضو جدید
آخه چرا هیچوقت کسی نیس ج منو بده؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
آخه من با این برنامه چه کنم؟؟؟!!!!!
خواسته ی برنامه (سوال) رو بگین شاید بتونم کمک کنم...
serversaeed
عضو جدید
یک بار با ctrl+F9 اجرا و برنامه تون را دیباگ کنید .
serversaeed
عضو جدید
سورس کامل برنامتون رو بنویسین تا نگاهی بکنیم. این مورد تا به حال برا من اتفاق نیفتاده
Similar threads
Similar threads
-
-
-
سلام بچه ها کـــــــــــــــــــمک می خوام :( برنامه نویسی نرم افزار کتابخانه به زبان پاسکال
- شروع شده توسط narges27
- پاسخ ها: 1
-
-