Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
🔒 23. 3. 2019 Přešli jsme na HTTPS. Prosíme o kontrolu funkčnosti fóra.
!! 17.06.2018 (Jel.) Khanova škola zve nadšence ke spolupráci na překladech návodů pro učitele a rodiče.
! 04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
17.01.2016 (Jel.) Rok 2016 s novými a novějšími krystaly od kolegy Pavla!
17.01.2016 (Jel.) Nabídka knih z oborů matematiky, fyziky, chemie
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 22. 10. 2018 12:24

Matthew19
Příspěvky: 58
Reputace:   
 

Program na řešení kvadratické rovnice v Pascalu

Ahoj,
potřeboval bych pomoct s úkolem. Zadání je následující:
//forum.matematika.cz/upload3/img/2018-10/02606_P0001.jpg

Napsal jsem tohle:

program kvadratickarce;
var a, b, c, x1, x2, D: real;
begin
  write('a : ');
  readln(a);
  write('b : ');
  readln(b);
  write('c : ');
  readln(c);
  D:=b*b-4*a*c;
  if D>=0 then begin;
    x1:=(-b+sqrt(D))/(2*a);
    x2:=(-b-sqrt(D))/(2*a);
    writeln('x1, x1:0:3');
    writeln('x2, x2:0:3');
    end
    else
    writeln('N');
  end.

Nevím si ale rady s tím vzestupným seřazením jednotlivých řešení a taky je dost možné, že mám v programu nějaké další chyby, protože s programováním teprve začínám.

Budu vděčný za vaše rady.

Offline

  • (téma jako vyřešené označil(a) Matthew19)

#2 22. 10. 2018 13:09

edison
Příspěvky: 1353
Reputace:   30 
 

Re: Program na řešení kvadratické rovnice v Pascalu

Vzhledem k tomu, že řešení jsou max dvě, stačí prostý if, zda je pořadí požadované, nebo opačné.

Offline

 

#3 22. 10. 2018 13:16

Matthew19
Příspěvky: 58
Reputace:   
 

Re: Program na řešení kvadratické rovnice v Pascalu

↑ edison: Mohl bys prosím trochu rozvést, co přesně tam tedy mám doplnit? Jsem úplný začátečník.

Offline

 

#4 22. 10. 2018 14:23

edison
Příspěvky: 1353
Reputace:   30 
 

Re: Program na řešení kvadratické rovnice v Pascalu

if x1>x2 ... else ...
a v tom celkem 4x writeln

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson