Правила форума
Прочтите прежде чем задавать вопрос!
в школе она запускалась нормально, принёс домой при запуске пишет Error while linking.
если куда-нибудь дописать случайный символ, то паскаль пишет ошибку орфографии.
если в этом же паскале написать простейшую программу типа
var x:integer;
begin
read(x); write(x);
end.
работает без ошибочно. а именно на мою безошибочную программу выводит Error while linking.
_____________________________
если кому интересно вот текст программы(калькулятор)
var a,c,i,x:longint;
function step(a,s:longint):longint;
var z:longint;
begin
z:=1;
if s=0 then step:=1 else begin
for i:=1 to s do
z:=z*a;
step:=z;
end;
end;
function perevod10(a,c:longint):longint;
type t=array[1..20] of integer;
var m:t;
K,l:integer;
begin
k:=0;
while a>0 do begin
k:=k+1;
m[k]:=a mod 10;
a:=a div 10;
end;
l:=0;
for l:=k downto 1 do
a:=a+step(c,l-1)*m[l];
perevod10:=a;
writeln('IIepeBe/\ B 10. IIo/\y4u/\ ',a);
readln();
end;
function perevodc(a,c:longint):longint;
type t=array[1..20] of integer;
var m:t;
k,q:integer;
begin
k:=0;
q:=0;
while a>=1 do begin
k:=k+1;
m[k]:=a mod c;
a:=a div c;
end;
for i:=k downto 1 do
q:=q*10+m[i];
perevodc:=q;
end;
procedure summa;
var a,b,c,ac,bc,sum,sumc:longint;
begin
writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
readln©;
writeln('BBeguTe c/\araemoe');
readln(a);
writeln('BBeguTe c/\araemoe');
readln(b);
if c=10 then sumc:=a+b else begin
ac:=perevod10(a,c);
bc:=perevod10(b,c);
sum:=ac+bc;
sumc:=perevodc(sum,c);
end;
writeln('cucTema c4ucleHu9 - ',c,'. ',a,'+',b,'=',sumc);
readln();
end;
procedure raznostb;
var a,b,c,ac,bc,razn,raznc:longint;
begin
writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
readln©;
writeln('BBeguTe ymeHbIIIaemoe');
readln(a);
writeln('BBeguTe BbI4uTaemoe');
readln(b);
ac:=perevod10(a,c);
bc:=perevod10(b,c);
razn:=ac-bc;
raznc:=perevodc(razn,c);
writeln('cucTema c4ucleHu9 - ',c,'.',a,'-',b,'=',raznc);
readln();
end;
procedure umnozhenie;
var a,b,c,ac,bc,umn,umnc:longint;
begin
writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
readln©;
writeln('BBeguTe mHo)/(uTe/\b');
readln(a);
writeln('BBeguTe mHo)/(uTe/\b');
readln(b);
ac:=perevod10(a,c);
bc:=perevod10(b,c);
umn:=ac*bc;
umnc:=perevodc(umn,c);
writeln('cucTema c4ucleHu9 - ',c,'.',a,'*',b,'=',umnc);
readln();
end;
procedure delenie;
var a,b,c,ac,bc,delc,delb:longint;
del:real;
begin
writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
readln©;
writeln('BBeguTe ge/\umoe');
readln(a);
writeln('BBeguTe ge/\uTe/\b');
readln(b);
ac:=perevod10(a,c);
bc:=perevod10(b,c);
del:=ac/bc;
delb:=round(del);
delc:=perevodc(delb,c);
writeln('cucTema c4ucleHu9 - ',c,'.',a,'/',b,'=',delc);
readln();
end;
begin
writeln('gobpo po)/(a/\oBatb');
x:=5;
while x<>0 do begin
writeln('BbIbepuTe geucTBue(write 0-4)');
writeln('0-exit');
writeln('1-<+>');
writeln('2-<->');
writeln('3-<*>');
writeln('4-</>');
readln(x);
if x=1 then summa
else
if x=2 then raznostb
else
if x=3 then umnozhenie
else
if x=4 then delenie;
end;
writeln('cIIacubo 3a ucIIo/\3oBaHue');
readln();
end.
Сообщение отредактировано: kizan -
вот условия:
