12-09-2007, 11:36
|
|
|
חבר מתאריך: 09.04.04
הודעות: 456
|
|
אחי כנראה לא הבנת אותי , אבל יותר בכיוון של זה..
program fresh;
var
a , b ,c ,r :integer;
s , ansx1 , ansX2 :real;
begin
c:=1;
a:=1;
b:=1;
writeln('give me plz the X');
readln(a);
writeln('give me plz the B');
readln(b);
writeln('give me plz the C');
readln(c);
s:= sqrt((sqr(b))-((4*(a)*(c))));
ansX1:=((-b)+(s))/2;
ansX2:=((-b)-(s))/2;
writeln('the answer for X1 is : ',ansX1);
writeln('the answer fir X2 is : ',ansX2);
readln(r);
end.
אם תריץ את התוכנית הזאת ולא תתן ערכים שבשורש יהיה שורש שלם התוכנית תכתוב שגיאה!!
איך אני מסדר את זה
|