سلام دوستان ممنون میشم هر کسی بتونه برنامه ماشین حساب 50 رقمی رو با زبان پاسکال برام بنویسه انشا الله جبران میکنم.
برای دانشگاه لازم دارم تا 13 این ماه
ممنون میشم
دوستان عزیز این هم نمونه جمع این برنامه منم میخوام تفریق ضرب و تقسیمش رو برام بنویسید ممنون میشم.
تا روز جمعه فردا خیلی فوری هستش برای دانشگاه میخوام
کد:
uses crt;
var
temp,str1,str2:string[50];
strans:array [1..51] of char;
len1,len2,c,n1,n2,error,ans,i,j:integer;
Begin
Readln(str1);
Readln(str2);
if (length(str2)) < (length(str1)) then
begin
temp:=str1;
str1:=str2;
str2:=temp;
end;
len1:=length(str1);
len2:=length(str2);
c:=0;
j:=len2;
for i:=len1 downto 1 do
begin
val(str1[i],n1,error);
val(str2[i],n2,error);
ans:=n1+n2+c;
strans[j+1] := chr(ans mod 10);
c:=ans div 10;
j:=j-1;
end;
for i:=j downto 1 do
begin
val (str2[i],n1,error);
ans:=n1+c;
strans[j+1]:=chr(ans mod 10);
c:=ans div 10;
end;
for i:=1 to len2+1 do
write(ord(strans [i]));
readln
end.
