dietetyk wrocław AAAA

Strefa czasowa: UTC + 2





Odpowiedz
Nazwa użytkownika:
Tytuł:
Treść wiadomości:
Wpisz tutaj treść wiadomości. Nie może mieć ona więcej niż 60000 znaków. 

Uśmieszki
:-) ;-) :-> :-D :-P :-o :mrgreen: :lol: :-( :-| :-/ :-? :-x :shock: :cry: :oops: 8-) :evil: :roll: :!: :?: :idea: :arrow: :diabel: :krew: :alien: :aragorn: :run: :crush: :compcrush: :cygaro: :dog: :druch: :drunk: :rambo: :gilotyna: :pistoldance: :hulk: :jackass: :jedi: :kolejka: :jury: :koncert: :hit: :bullets: :newyear: :notcool: :ohno: :bored:
Pokaż więcej uśmieszków
Rozmiar:
Kolor tekstu
Opcje:
BBCode jest włączony
[img] jest włączony
[flash] jest wyłączony
[url] jest wyłączony
Uśmieszki są włączone
Wyłącz BBCode
Wyłącz uśmieszki
Podaj nazwę aktualnego miesiąca
Podaj nazwę aktualnego miesiąca:
   

Przegląd tematu - Sprawdzenie kodu
Autor Wiadomość
  Tytuł:   Cytuj
Pascal
Post Napisane: 2008-05-16, 21:15
  Tytuł:   Cytuj
Co to jest? Wygląda jak delphi, ale nie delphi? Pascal?
Post Napisane: 2008-05-16, 19:58
  Tytuł:  Sprawdzenie kodu  Cytuj
program uklad__z_2_niewiadomymi;

uses CRT;

var
a,b,c,d,e,f,W,Wx,Wy:real;

begin

clrscr;
writeln;

writeln('|ax+by=c');
writeln('|dx+ey=f');
writeln;
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);

W:=(a*e)-(b*d);
if W<>0 then

begin

Wx:=(b*f)-(c*e);
Wy:=(a*f)-(c*d);
writeln;
writeln('x= ',(Wx/W):0:2);
writeln('y= ',(Wy/W):0:2);

end

else
writeln('Uklad ma nieskonczenie wiele rozwiazan....');
readln;


end.


kod działa, ale chyba źle oblicza nie wiem co zmienić pomóżcie :-)
Post Napisane: 2008-05-16, 19:43
4CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC

Strefa czasowa: UTC + 2


2CCCCCCCCCCCCCCCCC

Powered by phpBB® Forum Software © phpBB Group

Przyjazne użytkownikom polskie wsparcie phpBB3 - phpBB3.PL
phpBB SEO