Witam ponownie,kod powyżej był kompletna pomyłką ,pisze do was z prośba o pomoc ,za pomocą internetu itp udało mi się napisać kawałek kodu a wyglada on tak:
ax+by=c
dx+ey=f'
program uklad;
uses crt;
var
a,b,c,d,e,f:real;
w,wx,wy:real;
begin clrscr;
writeln('ax+by=c');
writeln('dx+ey=f');
writeln;
writeln('podaj dane a,b,c,d,e,f');
write('podaj a= ');
readln(a);
write('podaj b= ');
readln(b);
write('podaj c= ');
readln(c);
write('podaj d= ');
readln(d);
write('podaj e= ');
readln(e);
write('podaj f= ');
readln(f);
wx:=(c*e-b*f)/(a*e-b*d);
wy:=(a*f-c*d)/(a*e-b*d);
writeln('x= ',wx:0:2);
writeln('y= ',wy:0:2);
if w<>0 then
begin
writeln('x= ',wx:0:2);
writeln('y= ',wy:0:2);
end;
if (wx=0) and (wy=0) then writeln('uklad nie ma oznaczenia');
if (wx=0) and (wy=0) then writeln('rownanie sprzeczne');
readln;
end.
problem polega na tym, ze nie działaja te napisy na dole uklad sprzeczny i nie oznaczony bo wiadomo nie moze byc dzielenia przez zero.
proszę o pomoc.