Tpascal,uklad rownań

0

Chyba sobie poradziłem możecie to dla mnie sprawdzić czy dobrze??
chodziło o program rozwiazujace takie zadanie

| Ax+By=C
| Dx+Ey=F
-
program uklady_rownan;
uses crt;
var a,b,c,d:integer;
wx,wy,w:real;

begin clrscr;
writeln('podaj wspolnynniki');
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
write('d= ');
readln(d);
writeln;
writeln('oto uklad');
writeln('y=',a,'x+',b);
writeln('y=',c,'x+',d);

w:=c-a;
wx:=b-d;
wy:=b*c-a*d;
if
w<>0 then
begin
writeln('rozwiazaniem ukladu jest');
writeln('x= ',(wx/w):0:2, 'i y= ',(wy/w):0:2);
end
else
if   (wx<>0) or (wy<>0) then Writeln('uklad jest sprzeczny,brak rozwiazania')
else writeln(' uklad jest nieoznaczony,posiada nieskonczenie wiele wozwiazan');
readln;
end.
2

Jesteś pewien, że napisałeś to sam?
http://zadane.pl/zadanie/1224988
Zabójczo podobne.

0

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.

1 użytkowników online, w tym zalogowanych: 0, gości: 1