Printable View
سلام دوستان من رشتم نرم افزاره تاز کارهم هستم تو دانشگاه ما با دلفی برنامه پاسکال مینویسیم(چه جلب)
میخواستم برام یه برنامه بنویسید که:
1-یه جدول ضرب چاپ کنه البته مرتب،الف)اعضای قطر اصلی جدول ضرب رو نشون بده مثل حالت اسلش\
ب)اعضای روی اسلش،ج)اعضای زیر اسلش راستی حتما زبانش پاسکال باشه فقط خیلیزود که تا امشب فرصت دارم
دوست عزیز. برای نوشتن برنامه Pascal توی دلفی باید از سیستم Console استفاده کنی.
فرقی نمیکنه.
این نباید کسی برنامه درخواستی بزاره.
ولی اینقدر برنامه شما ابتدایی هستش که من کد اصلی برنامه رو برات مینویسم و خودت اصلاحات و تعاریفش رو درست کن.
موفق باشی :
کد:for i:=1 to 10 do begin
for j:=1 to 10 do write(i*j," ");
writln();
end;
دوست عزیز این برنامه ای که نوشته من خودم نوشتم من منظورم اون چیزی بود که بالا گفته بودم
خودم اون برنامه رو ردیف کردم فقط یه درخواست کوچولو هرچی زودتر بهتر:
یه عددی از ورودی بگیره یکی یکی بهش اضاف کنه تا وقتی که سینوس اون بزرگتر از 75 صدم باشه راستی فقط از حلقه while استفاده بشه ممنون
تو رو خدا کمک کنید خیلی ضروریه:19:
کد:while cos(x)<0.75 do x:=x+1;
خواهشا درخواست برنامه نکنید!
کد:
Var
Number:integer;
rSin: Real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('Enter the number: ');
Readln(Number);
rSin := Sin(Number);
While rSin < 0.75 Do Begin
Writeln('Sin(' + IntToStr(Number) + '): ' + FloatToStr(Sin(Number)));
inc(Number);
rSin := Sin(Number);
Writeln('[ PRESS A KEY TO CONTINUE ]');
Readln;
End;
Writeln('End of program.');
Readln;
end.
ممنون دادا راستی پس کجا درخواست بدم؟:19:
خواهش می کنم امیدوارم بدردت خورده باشه...
درخواست برنامه رو نمی دونم کجا باید بدی, ولی میدونم اینجا برای راهنمایی ها و از ای قبیل چیزهاست نه برنامه کامل.
سلام دوستان من اگه بخوام تو پاسکال یه عدد رو وارنه چاپ کنم باید چیکار کنم تو ویژوال که آسون بود؟؟؟:41:
الگوریتم های زیادی وجود داره، چه الگوریتمی تو ویژوال استفاده کردی؟ بگو تا همون رو تبدیل کنیم، تو دلفی هم آسونه ولی پاسکال رو نمی دونم!!!! :46:
Str Reverse
دوستان مشکلم حل شد فقط یه چیز دیگه اگه بخوام مجموعه اعداد زوج یه عددی رو بدست بیارم باید چیکار کنم ضروری
اگر منظورت اینه که یه عدد از کاربر دریافت می کنی و بعدش مجموع اعداد زوج از 2 تا اون عدد رو حساب می کنی، روشش اینه :
کد:Write('Enter the number: ');
Readln(n);
r := 0;
For i:= 1 To n Do Begin
If (i Mod 2) = 0 Then Begin
r := r + i;
Writeln(' - ' + IntToStr(i) + ' is even.');
End;
End;
Writeln('The result is: ' + IntToStr(r));
Readln;
با سلام
با تائید حرف های دوست عزیزم CPUSatan باید بگم.
اگر منظورتون این که مجموع ارقام زوج یک عدد را چاپ کند. به این صورت است :
* این کد مربوط به turbo pascal 3 است.کد:program test;
var
sum, temp, num : integer;
begin
write('Enter the number : ');
Readln(num);
sum=0;
temp=0;
while(num <> 0)
begin
temp=num mod 10;
num=num div 10;
if temp mod 2 = 0 then
sum = sum + temp;
end;
write('sum is : ');
write(sum);
getch();
end.
البته من کد بالا را تست نکردم و چون فعلا فقط به c# دسترسی دارم این الگوریتم را در c# console نوشتم که جواب داد و بعد ان را به pascal تبدیل کردم (syntax پاسکال و دلفی تقریبا یکی است).
این هم کدش :
با تشکرکد:using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
int num = Int32.Parse(Console.ReadLine());
int sum = 0;
int temp = 0;
while (num != 0)
{
temp = num % 10;
num = num / 10;
if (temp % 2 == 0)
sum+=temp;
}
Console.WriteLine(sum.ToString());
Console.ReadKey();
}
}
}
ممنون دادا دمت گرم همونی که مال توربو پاسکال بود جواب داد فقط اگه میتونستی برام یه چیزی بنویسی که تعداد صفرهای یه عدد رو حساب کنه عالی میشد که فقط تا همین امشب وقت داشتم
کد:var
Number, Result: Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('Please enter the number: ');
Readln(Number);
Result := 0;
While (Number >= 10) Do Begin
If (Number Mod 10) = 0 Then
Inc(Result);
Number := Number Div 10;
End;
Writeln('0 repeated ' + IntToStr(Result) + ' time(s) in entered number.');
Readln;
end.
ممنون البته ساده تر هم میشد نوشت ولی خیلی ممنون
1- منظورت از ساده تر چیه؟
2- واسه هرچیزی الگوریتم های زیادی هستش، اونی که فکر می کنم درست تر و اصولی تره رو می نویسیم
3- جواب رو که می دونستی دیگه چرا پرسیدی پس؟
سلام میخواستم بگم جواب رو فرداش تو دانشگاه فهمیدم!!!
یه سوال کوچولو:
یه عدد و یه کاراکتر رو بگیره اگر کاراکتر V رو وارد کنیم وارونه عدد رو حساب کنه اگر S وارد کردیم مجموعه ارقام زوج اگر هم چیز دیگه ای تایپ شد خود عدد رو نشون بده راستی باید با Case باشه چنتا مرحلش رو خودم انجام دادم ولی خیلی خطا داشت راستی این هم کدهای وارونه و مجموعه ارقام:
وارونه:
کد:var
n,s,r:integer;
begin
write('Adady Ra Vared Konid : ');
read(n);
s:=0;
while (n>0) do
begin
r:=n mod 10;
n:=n div 10;
s:=s*10+r;
end;
writeln('Adade Varone = ',s);
readln;
readln;
end.
مجموعه ارقام زوج:
کد:
sum,temp,num:integer;
begin
write('Adad Ra Vared Konid : ');
Readln(num);
sum:=0;
temp:=0;
while(num <> 0)do
begin
temp:=num mod 10;
num:=num div 10;
if temp mod 2 = 0 then
sum:= sum + temp;
end;
write('Majmoe Adade Zoj Barabar Ast Ba = ');
write(sum);
readln;
end.
جون من هرکی بلده کمک کنه مثل خر تو گل موندم(ببخشید اعصابم خیلی خورده آخه هرچی مینویسم خطا میگیره)
دوستان قسمتی که برای مجموعه ارقام زوج هست رو نوشتم بقیش رو اگه کمک کنید ممنون میشم
کد وارونه هم درست هستش. میشه بگی مشکل شما با Case هستش یا کد تبدیلها؟
میدونی دادا مشکلم اینه همه رو دارم نوشتم ولی فقط اونکی که مجموعه ارقام زوج رو حساب میکنه درسته مثلا وقتی میزنم s جواب میده ولی وقتی میزنم v برای وارونه صفر نشون میده این کد برنامه جون من یه کاریش بکن دادا:
کد:
sum,temp,num:integer;
n,s,r:integer;
k:char;
begin
writeln('Adad Ra Vared Konid : ');
Readln(num);
writeln('Varone v-Majmoe Arghame Zoj s Ra Vared Konid : ');
Readln(k);
sum:=0;
temp:=0;
while(num <> 0)do
begin
temp:=num mod 10;
num:=num div 10;
if temp mod 2 = 0 then
sum:= sum + temp;
end;
begin
readln(num);
s:=0;
while (num>0) do
begin
r:=num mod 10;
num:=num div 10;
s:=s*10+r;
end;
end;
case k of
's':writeln(sum);
'v':writeln('Adade Varone=',s);
end;
readln;
end.
خودم مشکل خودم رو حل کردم از همه متشکرم
سلام خدمت دوستان راستش یه برنامه هست که من چند روزه درگیرشم ولی نمیتونم بنویسم(خنگم) میگم شاید شما بتونید:
یک آرایه 10 تایی string تعریف کنید و 10 اسم تصادفی در آن بریزید و آنگاه یک آرایه دو بعدی از جنس بایت تعریف کنید و ستون اول آن را با اعداد تصادفی بین 0 تا 20 و ستون دومک آن را با اعداد تصادفی 0 تا 99 پر کنید اگر عدد ستون اول 20 باشد عدد ستون دوم باید 0 باشد و سپس اسامی و نمره های آن را چاپ کنید. ممنون میشم اگه برام ردیفش کنید چون تا جمعه شب بیشتر وقت ندارم باز بعدا جبران میکنم
دوستان ممنون که زحمت کشیدین این سوال رو هم جواب بدین عالیه آخه من درباره آرایه ها زیاد نمیدونم :
برنامه ای بنویسید که ماتریس پایین مثلثی جدول ضرب را تولید کند و در یک آرایه دو بعدی 10 در 10 قرار دهد سپس چاپ کند.
تا فردا صبح وقت دارم راستی اگه میخوان خودم کد ماتریس پایین مثلثی رو بدم ممنون.
یک آرایه دو بعدی با ابعاد x و y در نظر بگیر.
معمولا دو متغییر i و j توش حرکت میکنن.
بسته به توع For شرط پائین مثلثی اینه
که در کد بالا p مقداری هستش که میخواین توی یک عنصر آرایه بشینهکد:if i>j then n[i,j]=0
و یا
for i=1 to 10 do
for j:=1 to i do n[i,j]=p
ببخشید نتونستم درستش کنم میشه کامل بنویسی جوری که اجرا بشه آخه همش ارور میده
سلام یه برنامه میخوام برام بنویسید آخه با آرایه مشکل دارم : یک آرایه دو بعدی تعریف کنید و نوع جدیدی از آن بسازید و آن را طوری پر کنید که بزرگترین عدد 500 و کوچکترین عدد 400 باشد و آن را به بک تابع بفرستید و تابع تعداد تکرار ماکسیموم را پیدا کند
ممنون میشم کمکم کنید تا یه جاهایش رفتم اما چون از آرایه ها متنفرم اصلا نمی تونم درستش کنم
دوستان خواهش میکنم جواب بدین اگه این رو تا شنبه نبرم ترم اول برنامه نویسی 0 میگیرم باز بعدا جبران میکنم
دوست عزیز. قبلا هم بحث این موضوع شد.
اینجا برای راهنمایی و کمک به شماست نه درخواست برنامه.
چون شما قراره در نهایت برنامه نویسی (در هر سطحی) رو یاد بگیرید و حل کردن مسائل شما توسط ما اشتباه هست.
باز هم خواهش میکنم درخواست برنامه نده. اگه مشکلی داری یا الگوریتمی نمیشناسی بگو تا در اون مورد کمکت کنیم و یک راهنمایی توضیحی و یا کدی کلی بکنیم که در نهایت خودت حبش کنی. نه ما.
باتشکر.
ممنون داش دوستان باز هم من معذرت میخوام شما همین کدی که باهاش MAX رو حساب کنه به من بگو با همین که مثلا آرایه از 400 تا 500 باشه
قضیه از این قراره :
باید یک متغیر کمکی داشته یاشی و اولین عدد رو توی اون بریزی. بعدش همه اعداد رو با او مقایسه کنی و اگه بزرگتر بود اونو بریزی توی متغیر.
فقط یک For لازم داره.