Printable View
سلام اگه کسی بتونه این برنامه رو تو پاسکال واسه من بنویسه واقعا ممنون می شم.تا دوشنبه می خوامش
برنامه ای بنویسید تا دو عدد صحیح با تعداد ارقام یکسان را از ورودی دریافت کرده (اعداد خوانده شده کمتر از 10000 می باشند)سپس عدد جدید صحیحی را به نحوی تولید نماید که شامل حاصلضرب رقم به رقم اعداد خوانده شده باشد.در نهایت عدد جدید و جذر آن را در خروجی چاپ کند.
مثل اعداد خوانده شده: 7853 4078
خروجی(عدد):2803524
خروجی(جذر عدد):1674.37
مرسی
سلام.
کد:PROGRAM Malooli (INPUT,OUTPUT);
Uses
Crt;
Type
Number = ARRAY [1..4] of Integer;
Var
M,N : Number;
J,K: ShortInt;
Jazr : Real;
Procedure Zarb_jazr(X,Y:Number);
VAR
I: ShortInt;
Total : Number;
Value : Integer;
Tmp1,tmp2 : String;
Begin
tmp2 :='';
For I:= 1 to 4 Do
Begin
Total[I]:= X[I]*Y[I];
textcolor(14);
Str(Total[I],Tmp1);
Tmp2 := Tmp2 + Tmp1;
Write(Total[I]);
End;
Val(Tmp2,Jazr,Value);
Jazr := SQRT(Jazr);
End;
Begin
clrscr;
For J := 1 to 4 Do
Begin
textcolor(2);
Readln(M[J]);
Textcolor(4);
Readln(N[J]);
Writeln;
End;
textcolor(3);
Writeln('Result: ');
Writeln;
Zarb_jazr(M,N);
Writeln;
textcolor(5);
Writeln('Jazr: ');
Writeln(Jazr:5:0);
Readkey;
End.
سلام.مرسی.فقط یه مشکلی وجود داره که ما این چیزها رو نخوندیم:textcolor-val-clrscr- Readkey
اینم نمی فهمم:
tmp2 :="
ما فقط int رو خوندیم.با shortint فرق داره؟
سلام.نقل قول:
پاسکال که چیزی نداره.
شما اینا رو هم حذف کنید دیگه نابود میشه.:31:
Readkey که فقط یه کلید میگیره.
Clrscr رو از همون اول باید بلد باشید.صفحه نمایش رو در حالت متنی پاک میکنه.مثل CLS تو داس میمونه.
ما tmp2 رو مقدار اولیه خالی (هیچی) دادیم بهش.اینجا یه کم کدها رو بد نشون میده.
int همون Integer هست.Shortint محدوده کوچکتری داره.(-128 تا 127) شما همون Integer بگذارید.فرقی نداره.
Int تو زبان C استفاده میشه.تو پاسکال از نوع Integer یا Longint و... استفاده کنید.
شما میتونید Clrscr رو کلا حذف کنید.همچنین میشه به جای readkey از readln استفاده کرد.
راستی اون Textcolor هم فقط رنگ فونت رو عوض میکنه.برای اینکه شما به وضوح بتونید خروجیهای مختلف رو ببینید و سردر گم نشید، من از رنگهای مختلف استفاده کردم.(اینا رو هم میتونید حذف کنید)
فقط دیگه به اون Val کاری نداشته باشید.:31:محاسبه جذر به این دستور بستگی داره.
Val یه پروسیجر برای تبدیل String به Integer هست.
موفق باشید.