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

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







;program n
;const dim=20
var
;[st1,st2:string[dim
;i,j,a,dif,m,s:integer
;mul:array[1..dim,1..2*dim] of char
;[st4:string[2*dim
begin
;(':writeln ('pleas enter ferst string
;(readln (st1
;(':writeln ('pleas enter second string
;(readln (st2
for i:=1 to dim do
for j:=1 to 2*dim do
;'mul[i,j]:='0
for i:=dim downto 1 do
begin
;m:=0
;dif:=dim-i
for j:=dim downto 1 do
begin
;(a:=((ord(st1[j])-48)*(ord(st2[i])-48)+m

if a>9 then
begin
;m:=a div 10
;a:=a mod 10
end
else
;(mul[dim+1-i,2*dim-dif]:=chr(a+48
;(inc(dif
if j=1 then
;(mul[dim+1-i,2*dim-dif]:=chr(m+48
;end
;end
;m:=0
for i:=2*dim downto 1 do
begin
;s:=0
for j:=dim to 1 do
;s:=s+ord(mul[j,i])-48
;s:=s+m
;m:=s div 10
;a:=s mod 10
;(st4[i]:=chr(a+48
;end
;writeln
;(writeln(st1:66
;(writeln('*':46,st2
;(writeln('___________________________':66
for i:=1 to dim do
begin
;(write(' ':26
for j:=1 to 2*dim do
;([write(mul[i,j
;writeln
;end
;('____________________',writeln(' ':26
;(':write('multiply of tow number is
for i:=1 to 2*dim do

;([write(st4[i
;readln
.end

این برنامه -.+.*./ را برای اعداد بزرگ پیاده میکنه.

[PHP]program mat;
var
x,y,st: string[150];
n: integer;

function sum(a,b: string): string;
var
s,s1: string[150];
la,lb,l,i: integer;
a1,b1,e,c: integer;
sum1: array [0..150] of integer;
begin
c:=0;
la:=length(a);
lb:=length(b);
s:='';
if la>lb then
begin
l:=la-lb;
for i:=1 to l do
s:=concat(s,'0');
b:=concat(s,b);
end;
s:='';
if la<lb then
begin
l:=lb-la;
for i:=1 to l do
s:=concat(s,'0');
a:=concat(s,a);
end;
l:=length(a);
for i:=l downto 1 do
begin
val(a[i],a1,e);
val(b[i],b1,e);
if c=1 then
sum1[i]:=a1+b1+1
else
sum1[i]:=a1+b1;
c:=sum1[i] div 10;
sum1[i]:=sum1[i] mod 10;
end;
sum1[0]:=c;
s:='';
c:=0;
while sum1[c]=0 do
c:=c+1;
for i:=c to l do
begin
str(sum1[i],s1);
s:=concat(s,s1);
end;
if s='' then
s:='0';
sum:=s;
end;

function sub(a,b: string): string;
var
s,s1,temp: string[150];
la,lb,l,i,flag: integer;
a1,b1,e,c: integer;
sum1: array [0..150] of integer;
begin
c:=0;
la:=length(a);
lb:=length(b);
s:='';
if la>lb then
begin
l:=la-lb;
for i:=1 to l do
s:=concat(s,'0');
b:=concat(s,b);
end;
s:='';
if la<lb then
begin
l:=lb-la;
for i:=1 to l do
s:=concat(s,'0');
a:=concat(s,a);
end;
if a<b then
begin
flag:=1;
temp:=a;
a:=b;
b:=temp;
end
else
flag:=0;
c:=0;
for i:=la downto 1 do
begin
val(a[i],a1,e);
val(b[i],b1,e);
a1:=a1+c;
if a1<b1 then
begin
a1:=a1+10;
c:=-1;
end
else
c:=0;
sum1[i]:=a1-b1;
end;
if flag=1 then
s:='-';
c:=1;
while sum1[c]=0 do
c:=c+1;
for i:=c to la do
begin
str(sum1[i],s1);
s:=concat(s,s1);
end;
if s='' then
s:='0';
sub:=s;
end;

function mult(a,b: string): string;
var
s,s1,sum1: string[150];
c,h,i,j,k,e: integer;
a1,b1,la,lb,m1: integer;
m:array[0..150] of integer;
begin
la:=length(a);
lb:=length(b);
c:=0;
val(b[lb],b1,e);
for i:=la downto 1 do
begin
val(a[i],a1,e);
m1:=b1*a1+c;
m[i]:=m1 mod 10;
c:=m1 div 10;
end;
m[0]:=c;
c:=0;
s:='';
for k:=0 to la do
begin
str(m[k],s1);
s:=concat(s,s1);
end;
sum1:=s;
h:=1;
for i:=lb-1 downto 1 do
begin
val(b[i],b1,e);
for j:=la downto 1 do
begin
val(a[j],a1,e);
m1:=b1*a1+c;
m[j]:=m1 mod 10;
c:=m1 div 10;
end;
m[0]:=c;
c:=0;
s:='';
for k:=0 to la do
begin
str(m[k],s1);
s:=concat(s,s1);
end;
for k:=1 to h do
s:=concat(s,'0');
sum1:=sum(sum1,s);
h:=h+1;
end;
if sum1='' then
sum1:='0';
mult:=sum1;
end;

function divid(a,b: string): string;
var
c,s,s1: string[150];
a1,b1,la,lb,lc,l,i: integer;
begin
la:=length(a);
lb:=length(b);
s:='';
if la>lb then
begin
l:=la-lb;
for i:=1 to l do
s:=concat(s,'0');
b:=concat(s,b);
end;
s:='';
if la<lb then
begin
l:=lb-la;
for i:=1 to l do
s:=concat(s,'0');
a:=concat(s,a);
end;
if b>a then
begin
divid:='*** ERROR ***';
exit;
end;
lc:=la-lb-1;
s1:='';
for i:=1 to lc do
s1:=concat(s1,'9');
c:=mult(b,s1);
while a>=c do
begin
s1:=sum(s1,'1');
c:=sum(b,c);
la:=length(a);
lc:=length(c);
s:='';
if la>lc then
begin
l:=la-lc;
for i:=1 to l do
s:=concat(s,'0');
c:=concat(s,c);
end;
s:='';
if la<lc then
begin
l:=lc-la;
for i:=1 to l do
s:=concat(s,'0');
a:=concat(s,a);
end;
end;
s1:=sub(s1,'1');
c:=mult(b,s1);
c:=sub(a,c);
if c='' then
c:='0';
divid:='A = B * '+s1+' + '+c;
end;

begin
writeln('***************************************** ');
writeln('please select oparation:');
writeln('1. SUM');
writeln('2. SUB');
writeln('3. MULT');
writeln('4. DIVID');
write('select: ');
readln(n);
if (n>4) or (n<1) then
exit;
writeln('----------------------');
write('please enter A: ');
readln(x);
write('please enter B: ');
readln(y);
writeln(' ');
write('ANSWER: ');
if n=1 then
write(sum(x,y))
else if n=2 then
write(sub(x,y))
else if n=3 then
write(mult(x,y))
else if n=4 then
write(divid(x,y));
readln(x);
end.
[/PHP]

سلام خدمت همه مخصوصاAdmiral و sadravip
صدرا جون اخرش تو نستی برنامه ماتریس به فرم قطبی بنویسی اخه منم می خوام ضرب ماتریس n*n اعداد مختلط رو بنویسم
یه سوال دیگه هم داشتم استاد ما پروژه گفته بود یک کاراکتر رو از ورودی بگیرید و با کلید های جهت نما حرکت دهید بطوری که به داخل 4 مربعی که درست میکنید نره من با هزار زحمت نوشتم و به استاد هم دادم اما یه مشکلی داشت که می خوام هلش کنم (و چه لذتی داد وقتی تموم کردم :tongue: )
یه قسمت از بدنه برنامه رو میذارم

کد:

---

program omid_matrix3;
uses crt;
Var
 f:char;
 z:string;
 a,b:integer;
procedure omid;
begin
textcolor(white);
end;
Begin
        gotoxy (35,13);
write ('enter one char:');
readln (z);
write  ('mokhtasat satr ra vared konid  az 0 ta 25:');
readln (b);
write  ('mokhtasate soton ra vared konid az 0 ta 80:');
readln  (a);
clrscr;
gotoxy (a,b);
writeln (z);
while true  do
begin
f:=readkey;
case ord(f) of
 77:a:=a+1;
 75:a:=a-1;
 80:b:=b+1;
 72:b:=b-1;
end;
clrscr;
omid;
gotoxy (a,b);
writeln (z);
    end;
Readln
End.

---

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

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

ضرب ماتريس 3*3

کد:

---

var
a,b,c:array [1..3,1..3] of integer;
i,j,k:integer;

begin
writeln ('enter data of matrix a(3*3) ');
for i:=1 to 3 do
  for j:=1 to 3 do
    begin
        writeln ('enter ',i,j,' : ');
readln(a[i,j]);
end;

writeln ('enter data of matrix b(3*3) ');
for i:=1 to 3 do
  for j:=1 to 3 do
    begin
        writeln ('enter ',i,j,' : ');
readln(b[i,j]);
end;

for i:=1 to 3 do
begin
forj:=1 to 3 do
begin
for k:=1 to 3 do
    c[i,j]:= a[i,j]*b[k,j]+c[i,j];

write (c[i,j]);
end;
end;
readln;
end.

---

قربون همتون صدرا

کد:

---


program matris ;
var
a:array [1..3 , 1..3] of integer;
b:array [1..3 , 1..3] of integer;
i,j,k,l:integer; c,d,e,f,g,h,m,n,o:integer; p:char;
begin
repeat
for i:=1 to 3 do
begin
writeln('----------------------------- Line ',i,' of matrix one -----------------------------');
for j:=1 to 3 do
begin
write('Enter [',j,' of ',i,'] :');
readln(a[i,j]);
end;
end;
writeln;
for k:=1 to 3 do
begin
writeln;
writeln('----------------------------- Line ',k,' of matrix two -----------------------------');
for l:=1 to 3 do
begin
write('Enter [',l,' of ',k,'] :');
readln(b[k,l]);
end;
end;
writeln('                              DATA MATRIX ONE');
for i:=1 to 3 do
begin
writeln;
for j:=1 to 3 do
write(a[i,j]:20);
end;
writeln;
writeln('      **************************************************************');
writeln;
writeln('                              DATA MATRIX TWO');
for k:=1 to 3 do
for k:=1 to 3 do
begin
writeln;
for l:=1 to 3 do
write(b[k,l]:20);
end;
writeln;
c:=0; d:=0; e:=0; f:=0; g:=0; h:=0; m:=0; n:=0; o:=0;
for i:=1 to 3 do
begin
c:=((a[1,i]*b[i,1])+c);
d:=((a[1,i]*b[i,2])+d);
e:=((a[1,i]*b[i,3])+e);
f:=((a[2,i]*b[i,1])+f);
g:=((a[2,i]*b[i,2])+g);
h:=((a[2,i]*b[i,3])+h);
m:=((a[3,i]*b[i,1])+m);
n:=((a[3,i]*b[i,2])+n);
o:=((a[3,i]*b[i,3])+o);
end;
writeln('================================================================================');
writeln(c:20,f:20,m:20);
writeln(d:20,g:20,n:20);
writeln(e:20,h:20,o:20);
writeln('================================================================================');
write(' Can You Exit [Y/N] : ');
readln(p);
until p='y';
end.

---

اما ضرب اعداد مختلت نیست؟؟؟؟

سلام به همه دوستان
من دارم برنامه کتاب خونه رو تو پاسکال می نویسم اماگرافیک رو بلد نیستم.
اگه کسی پروسیجر آماده در این مورد داره اونو بزاره.
راستی اگه کسی می تونه در موردخود این برنامه منو کمک کنه خیلی ممنون میشم.;)

راستش میخوام با یه برنامه ای یه چیزای گرافیکی به برنامه اضافه کنم اما بلد نیستم.
مثلا موقع وارد شدن خوشامد گویی متحرک باشه یا برنامه تو یه محیط رنگی باشه.

بابا یه با مرام پیدا نمیشه منو تو این برنامه کمک کنه.:sad:

من برنامه کتابخانه رو به صورت کامل نوشتم.پیشنهاد میکنم وقتتو سر یه پروزه درست و حسابی مثل حقوق و دستمزد بزاری

سعی کن اول اطلاعاتت رو کامل کنی بعد به فکر پروزه نوشتن باشی البته این فقط یه پیشنهاد است و بس!