Wróć   polish:Elite:board > hard- i software > programowanie
programowanie języki, projekty, pomoc, oprócz html, php, js

Odpowiedz
 
LinkBack Narzędzia wątku Przeszukaj ten temat Wygląd

  #1 (permalink)  
Stare 15.05.2007, 22:10
Junior Member
 
Zarejestrowany: Dec 2006
Postów: 9
Postów w giełdzie: 0
Domyślnie [Pascal] Równanie kwadratowe

Witam. Mam za zadanie napisać program rozwiązujący zadania liniowe. Wydaje mi sie ze wszystko ok ale wyskakuje błąd.
Cytat:
Uses Crt;

Var a,b,c,D,x1,x2,x0:longint;

Begin
WriteLn('Wprowadz a,b,c');
ReadLn(a,b,c);
If a<>0 then Begin
D:=(b*b)-4*a*c;
If D=0 then x0:=(-b)/(2*a);
WriteLn('Rownanie ma jedno rozwiazanie');
WriteLn('X0 = ',x0)
else
Begin
If D>0 then x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
WriteLn('Rownanie ma dwa rozwiazania:');
WriteLn('X1 = ',x1:2:1,'X2 = ',x2:2:1)
else
WriteLn('To rownanie nie ma rozwiazania');
End;
End
else
WriteLn('To nie jest rownanie kwadratowe');
End.
Błąd w dev pascal mam tam gdzie zaznaczyłem na czerwono. Prosze o pomoc.

  #2 (permalink)  
Stare 15.05.2007, 22:53
Junior Member
 
Zarejestrowany: Jul 2006
Postów: 34
Postów w giełdzie: 0
Domyślnie Odp: Pascal (program rozwiązujący równania kwadratowe)

brakuje Ci chyba end'a przed elsem

Kod:
Uses Crt;
 
Var a,b,c,D,x1,x2,x0:longint;
 
Begin
WriteLn('Wprowadz a,b,c');
ReadLn(a,b,c);
If a<>0 then Begin
D:=(b*b)-4*a*c;
If D=0 then x0:=(-b)/(2*a);
WriteLn('Rownanie ma jedno rozwiazanie');
WriteLn('X0 =  ',x0);
end
else
Begin
If D>0 then x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
WriteLn('Rownanie ma dwa rozwiazania:');
WriteLn('X1 =  ',x1:2:1,'X2 =  ',x2:2:1)
else
WriteLn('To rownanie nie ma rozwiazania');
End;
End
else
WriteLn('To nie jest rownanie kwadratowe');
End.

  #3 (permalink)  
Stare 16.05.2007, 16:09
Junior Member
 
Zarejestrowany: Dec 2006
Postów: 9
Postów w giełdzie: 0
Domyślnie Odp: [Pascal] Równanie kwadratowe

poprawiłem trochę kod ale nadal wywala mi błędy. proszę o pomoc

Kod:
Uses Crt;

Var a,b,c,x1,x2,x0,D:longint;

Begin
 ClrScr;
 WriteLn('Wprowadz a,b,c');
 ReadLn(a,b,c);
   If a<>0 then
                 Begin
                 D:=(b*b)-4*a*c;
                 If D=0 then x0:=(-b)/(2*a);
                             WriteLn('x0 = ',x0);
                 End
                 else If D>0 then Begin
                                   x1:=(-b-sqrt(D))/(2*a);
                                   x2:=(-b+sqrt(D))/(2*a);
                                   WriteLn('x1 = ',x1,'x2 = ',x2);
                                   End
                             else WriteLn('to rownanie nie ma rozwiazania')

   else WriteLn('to nie jest rownanie kwadratowe')
End.

  #4 (permalink)  
Stare 16.05.2007, 17:03
Junior Member
 
Zarejestrowany: May 2005
Postów: 22
Postów w giełdzie: 0
Domyślnie Odp: [Pascal] Równanie kwadratowe

Kod:
Uses Crt;

Var a,b,c,x1,x2,x0,D:longint;

Begin
 ClrScr;
 WriteLn('Wprowadz a,b,c');
 ReadLn(a,b,c);
   If a<>0 then
                 Begin
                 D:=(b*b)-4*a*c;
                 If D=0 then x0:=(-b)/(2*a);
                             WriteLn('x0 = ',x0);
                 End
                 else If D>0 then Begin
                                   x1:=(-b-sqrt(D))/(2*a);
                                   x2:=(-b+sqrt(D))/(2*a);
                                   WriteLn('x1 = ',x1,'x2 = ',x2);
                                   End
                             else WriteLn('to rownanie nie ma rozwiazania');

   else WriteLn('to nie jest rownanie kwadratowe');
End.
moze tak ?

  #5 (permalink)  
Stare 16.05.2007, 19:18
Avatar spyro
Senior Member
 
Zarejestrowany: Jul 2005
Postów: 146
Postów w giełdzie: 0
Domyślnie Odp: [Pascal] Równanie kwadratowe

w pełni działająca wersja:
Kod:
var a,b,c,x1,x2,x0,delta:real;
begin
readln(a,b,c);
if a<>0 then
begin
delta:=(b*b)-(4*a*c);
 if delta<0 then writeln('To rownanie nie ma rozwiazan w zbiorze liczb rzeczywistych');
 if delta>0 then begin
 x1:=(-b-sqrt(delta))/2*a;
 x2:=(-b+sqrt(delta))/2*a;
 writeln(x1:4:2);
 writeln(x2:4:2);
 end;
 if delta=0 then begin
 x0:=-b/2*a;
 writeln(x0:4:2);
 end;
end
else if a=0 then writeln('To nie jest rownanie kwadratowe');
readln
end.
a co do twoich zmiennych to deltą nie może być zmienna całkowita, podobnie pierwiastki
__________________
Pisanie programów na zamówienie w dowolnym języku programowania, szybko, sprawnie i solidnie.
Więcej info na priv ;]

  #6 (permalink)  
Stare 16.05.2007, 20:43
Avatar j_bravo
Senior Member
 
Zarejestrowany: Jan 2007
Postów: 210
Postów w giełdzie: 0
Domyślnie Odp: [Pascal] Równanie kwadratowe

Jesli moge cos dodac - ten program dziala wedlug nienajlepszego algorytmu, moze generowac olbrzymie bledy !

  #7 (permalink)  
Stare 09.06.2008, 20:22
Senior Member
 
Zarejestrowany: Oct 2006
Postów: 104
Postów w giełdzie: 1
Domyślnie Odp: [Pascal] Równanie kwadratowe

Cytat:
Napisał j_bravo Zobacz post
Jesli moge cos dodac - ten program dziala wedlug nienajlepszego algorytmu, moze generowac olbrzymie bledy !
super, a jakie?
(bo bez wyjaśnienia Twoja uwaga jest zupełnie zbyteczna; trudno wyczuć czy ubolewasz, ze programy są złe, czy się chwalisz )

  #8 (permalink)  
Stare 22.10.2008, 19:21
Junior Member
 
Zarejestrowany: Dec 2006
Postów: 4
Postów w giełdzie: 0
Domyślnie Odp: [Pascal] Równanie kwadratowe

tu macie mój kod program zrobiony na zajeciach
Kod:
Program rownanie_kwadratowe;
{program rozwiazuje rownanie kwadratowe Sz@Sz}
uses crt;
var
  delta,a,b,c,x1,x2,x12:real;
begin
     clrscr;
     gotoxy(24,12);
     write('rozwiazanie r˘wnania kwadratowego');
     delay(2000);
     clrscr;
{podajemy wspolczynniki rownania}
     writeln('podaj wsp˘lczynnik a r˘wnania ax2+bx+c=0');
     readln(a);
     writeln('podaj wsp˘lczynnik b r˘wnania ax2+bx+c=0');
     readln(b);
     writeln('podaj wsp˘lczynnik c r˘wnania ax2+bx+c=0');
     readln(c);
     clrscr;
{sprawdzenie czy jest to rownanie kwadratowe}
     if a=0 then
        begin
             gotoxy(20,12);
             writeln('****** to nie jest r˘wnanie kwadratowe ******');
             delay(2000);
        end
     else
         begin
              delta:=b*b-4*a*c;
              if delta < 0 then
                 begin
                       gotoxy(20,12);
                       writeln('****** brak rozwiazan rzeczywistych ******');
                       delay(2000);
                 end
              else
                  begin
                       if delta=0 then
                                  begin
                                       x12:=-b/(2*a);
                                       writeln('r˘wnanie ma jeden podw˘jny pierwiastek:'  , x12:10:3);
                                  end
                       else
                           begin
                                x1:=(-b-sqrt(delta))/(2*a);
                                x2:=(-b+sqrt(delta))/(2*a);
                                writeln('r˘wnanie ma dwa pierwiastki: x1=',x1:10:3,'x=2' ,x2:10:3);
                           end;
                  end;
         end;
readkey;
end.

  #9 (permalink)  
Stare 06.05.2009, 17:13
Junior Member
 
Zarejestrowany: Nov 2008
Postów: 3
Postów w giełdzie: 0
Domyślnie Odp: [Pascal] Równanie kwadratowe

Kod:
uses crt;
var
delta,a,b,c,x1,x2,x12:real;
begin
clrscr
writel('5,4,10')
Readln(5,4,10)
If a<>0 then
Begin
D:=(b*b)-4*a*c;
If D=0 then x0:=(-b)/(2*a);
Writeln('x0 = ',x0);
End
else If D.0 then Begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
Writeln('x1 = ',x1,'x2 = ',x2);
End
nie wiecie co źle zrobiłem prosze o pomoc

  #10 (permalink)  
Stare 29.01.2010, 13:57
Avatar PeterowoPL
Junior Member
 
Zarejestrowany: Dec 2009
Postów: 36
Postów w giełdzie: 0
Domyślnie Odp: [Pascal] Równanie kwadratowe

Mój działający program w Dev-Pascal:

Kod:
program rownanie;
var
a,b,c,delta,x1,x2,x0:real;
begin
writeln('podaj a'); 
readln(a); 
writeln('podaj b');
readln(b);
writeln('podaj c');
readln(c);
delta:=b*b-4*a*c; 
writeln('delta= ',delta:0:2);
if delta<0 then 
writeln('brak pierwiastkow')
else
begin
if delta>0 then
begin
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a); 
writeln('x1= ',x1:0:2);
writeln('x2= ',x2:0:2);
end
else
begin
x0:=(-b)/(2*a);
writeln('x0= ',x0:0:2);
end;
end;
readln;
end.
Odpowiedz

Szybka odpowiedź
Antispam, complete the task: 
 
Wiadomość:
Opcje

Narzędzia wątku Przeszukaj ten temat
Przeszukaj ten temat:

Zaawansowane wyszukiwanie
Wygląd

Zasady postowania
Nie możesz zakładać nowych tematów
Nie możesz pisać wiadomości
Nie możesz dodawać załączników
Nie możesz edytować swoich postów

BBCode jest Włączony
EmotikonyWłączony
[IMG] kod jest Włączony
HTML kod jest Wyłączony
Trackbacks are Wyłączony
Pingbacks are Wyłączony
Refbacks are Wyłączony


Podobne wątki
Temat Autor wątku Forum Odpowiedzi Ostatni post/autor
RÓWNANIE linni trendu OpenOffice.org ketjov linux 5 03.12.2008 14:33
[C++] Równanie prostej i okręgu (rysunek na podstawie równania) bracky programowanie 3 17.12.2006 09:05
[Pascal] Prezentacja (Turbo Pascal) 0wner programowanie 2 24.11.2006 22:27
[Pascal] Euklides, Rownania kwadratowe... Wiaterek programowanie 2 26.04.2006 20:47


Wszystkie czasy w strefie GMT +2. Teraz jest 07:46.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.5.2
Tłumaczenie: vBHELP.pl - Polskie wsparcie vBulletin
1406871997

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345