[ Príspevkov: 8 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.11.18
Prihlásený: 07.11.18
Príspevky: 6
Témy: 3 | 3
NapísalOffline : 02.11.2018 20:12 | Programovanie v Pascale

Ahojte.
Je tu niekto kto ovláda programovanie v Pascale alebo niečo podobnom ? Bola by som rada, ak by mi niekto pomohol s nasledujucou ulohou.

Tu je riešenie nasledujúcej úlohy:
Majme zadané koeficienty kvadratickej rovnice a, b, c (ax2 + bx + c = 0). Vypočítajte korene rovnice x1, x2 respektíve počítajte iba jeden koreň, ak má rovnica jeden dvojnásobný koreň.

Doriešte úlohu tak, aby dokázala vypočítať a vypísať aj komplexné korene rovnice.

program kvadraticka_rovnica;

var a, b, c, D, x1, x2: real;

begin
writeln('Zadaj koeficienty kvadratickej rovnice…', #13#10);
write('Zadaj koeficient a: '); readln(a);
write('Zadaj koeficient b: '); readln(b);
write('Zadaj koeficient c: '); readln(c);

{ Determinant }
D := (b * b) - (4 * a * c);

if D = 0 then
begin
x1 := -b / (2 * a);
writeln('Dvojnasobny korenrovnice je: ', x1 : 0 : 2)
end
else if D > 0 then
begin
x1 := -b + sqrt(D) / (2 * a);
x2 := -b - sqrt(D) / (2 * a);
writeln('Koren x1 rovnice je: ', x1 : 0 : 2);
writeln('Koren x2 rovnice je: ', x2 : 0 : 2)
end
else
begin
writeln('Rovnica nema riesenie v mnozine realnych cisel')
end;
end.


Online

Skúsený užívateľ
Skúsený užívateľ
Programovanie v Pascale

Registrovaný: 19.03.07
Prihlásený: 12.11.18
Príspevky: 5358
Témy: 74 | 74
Bydlisko: BA
NapísalOnline : 02.11.2018 23:41 | Programovanie v Pascale

Treba to dat do code tagov, aby tobolo citatelnejsie.
Treba tam pridat este jednu klauzulu na determinant. V pripade ze D<0 musi to zacat pocitat s imaginarnymi cislami (pod odmocninou nemoze byt nula) (odmocnina z cisla mensiehoako nula, mozebyt prepisana ako odmocnina z absolutnej hodnoty cisla * i^2) (lebo i^2 = -1)


Naposledy upravil void dňa 05.11.2018 19:52, celkovo upravené 1

_________________
Desktop: CPU AMD R7 2600 | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3200 CL16 | VGA Powercolor VEGA56 | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE Roccat SAVU + Razer eXactMat | HyperX Alloy FPS Brown | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 &
Mobil: Xiaomi REdmi Note 5 PRO | FW LineageOS 15.1 Nightly & SBC: Raspberry pi 0 | 3B+
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.11.18
Prihlásený: 07.11.18
Príspevky: 6
Témy: 3 | 3
Napísal autor témyOffline : 05.11.2018 19:47 | Programovanie v Pascale

Ďakujem pekne
ibaže problem je v tom, že tento kod mame ako zadanie od profesora... a ako to povedať pekne nenechá si vysvetliť, že tam ma chybu


Offline

Užívateľ
Užívateľ
Programovanie v Pascale

Registrovaný: 07.04.12
Prihlásený: 12.11.18
Príspevky: 880
Témy: 53 | 53
NapísalOffline : 05.11.2018 20:05 | Programovanie v Pascale

Akú chybu? Ak rozumiem správne, máte len dopísať podmienku, ak je determinant záporný, tzn. zobraziť komplexné korene rovnice.


_________________
Notebook: Dell Inspiron 15-7537= i5-4200U|nVidia GT 750M 2GB|RAM 6GB|250GB Samsung 850 EVO|W8.1|Cooler Master NotePal U3|Dell Urban 2.0
Pc: Asus Rog Strix B360-G | i7-8700 | MSI 1080 Gaming X | Crucial Ballistix 16GB 2666MHz Dual Ranked | Samsung 970 Evo | Crucial MX500 | WD Red | Fera 3 | Arctic F12 Silent | Seasonic Focus Plus 650W Gold | Fractal Design Mini C TG
Disky: Western Digital Elements 1TB USB 2.0; Seagate Expansion 2TB USB 3.0
Príslušenstvo: A4tech Bloody V3 V-Track Core 3 + A4tech Bloody B-070; A4tech Bloody B120; A4tech Bloody G501; ATH-M40x; MSI Clutch M40
Monitor: Dell U2515H
Mobil: Xiaomi Redmi Note 3 Special Edition
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.11.18
Prihlásený: 07.11.18
Príspevky: 6
Témy: 3 | 3
Napísal autor témyOffline : 05.11.2018 20:15 | Programovanie v Pascale

no to, že tam nemôže byť tá nula
čiže by som potrebovala konkrétne o akú podmienku tam ide


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 05.11.18
Prihlásený: 11.11.18
Príspevky: 5
Témy: 1 | 1
NapísalOffline : 05.11.2018 20:47 | Programovanie v Pascale

A ak sa nemylim nie je to determinant ale diskriminant ;)


Offline

Užívateľ
Užívateľ
Programovanie v Pascale

Registrovaný: 07.04.12
Prihlásený: 12.11.18
Príspevky: 880
Témy: 53 | 53
NapísalOffline : 05.11.2018 20:50 | Programovanie v Pascale

Áno máš pravdu, ospravedlňujem sa za zámenu názvoslovia.
kikuska222: o akú podmienku ide už popísal void predsa


_________________
Notebook: Dell Inspiron 15-7537= i5-4200U|nVidia GT 750M 2GB|RAM 6GB|250GB Samsung 850 EVO|W8.1|Cooler Master NotePal U3|Dell Urban 2.0
Pc: Asus Rog Strix B360-G | i7-8700 | MSI 1080 Gaming X | Crucial Ballistix 16GB 2666MHz Dual Ranked | Samsung 970 Evo | Crucial MX500 | WD Red | Fera 3 | Arctic F12 Silent | Seasonic Focus Plus 650W Gold | Fractal Design Mini C TG
Disky: Western Digital Elements 1TB USB 2.0; Seagate Expansion 2TB USB 3.0
Príslušenstvo: A4tech Bloody V3 V-Track Core 3 + A4tech Bloody B-070; A4tech Bloody B120; A4tech Bloody G501; ATH-M40x; MSI Clutch M40
Monitor: Dell U2515H
Mobil: Xiaomi Redmi Note 3 Special Edition
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.11.18
Prihlásený: 07.11.18
Príspevky: 6
Témy: 3 | 3
Napísal autor témyOffline : 05.11.2018 21:07 | Programovanie v Pascale

ved ano, ale ja to potrebujem konkrétne zapísané príkazy v jazyku pascal, aby som dokázala vypočítať a vypísať aj komplexné korene rovnice. Keďže ja sa v tom absolútne nevyznám, vidím to prvýkrát a toto je začiatok nášho učiva aj keď tie základy nemáme.


 [ Príspevkov: 8 ] 


Programovanie v Pascale



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

semafor v pascale

v Assembler, C, C++, Pascal, Java

1

1769

17.05.2007 8:52

p360t

V tomto fóre nie sú ďalšie neprečítané témy.

Zadanie v pascale

v Assembler, C, C++, Pascal, Java

15

1244

04.10.2008 17:40

dsljohn

V tomto fóre nie sú ďalšie neprečítané témy.

grafika v Pascale

v Grafické programy

0

194

15.11.2011 11:34

gabika

V tomto fóre nie sú ďalšie neprečítané témy.

program v pascale

v Ponuka práce

4

947

03.04.2009 22:05

bbeni

V tomto fóre nie sú ďalšie neprečítané témy.

grafika v pascale

v Assembler, C, C++, Pascal, Java

4

1570

27.02.2008 20:45

martin90

V tomto fóre nie sú ďalšie neprečítané témy.

Hra v pascale

v Assembler, C, C++, Pascal, Java

4

964

11.01.2009 17:49

programator

V tomto fóre nie sú ďalšie neprečítané témy.

Pomoc v pascale

v Assembler, C, C++, Pascal, Java

5

592

24.11.2007 11:10

scarletjohanson

V tomto fóre nie sú ďalšie neprečítané témy.

program v pascale

v Assembler, C, C++, Pascal, Java

0

324

24.03.2011 19:42

roxor

V tomto fóre nie sú ďalšie neprečítané témy.

subory v pascale

v Assembler, C, C++, Pascal, Java

5

538

13.08.2008 6:42

imcold

V tomto fóre nie sú ďalšie neprečítané témy.

hra v pascale

v Assembler, C, C++, Pascal, Java

0

345

12.05.2009 14:02

cod

V tomto fóre nie sú ďalšie neprečítané témy.

Medzery v Pascale

v Assembler, C, C++, Pascal, Java

2

426

22.03.2011 16:16

Cleo

V tomto fóre nie sú ďalšie neprečítané témy.

Program v pascale

v Assembler, C, C++, Pascal, Java

2

300

23.11.2011 13:25

jojinkho

V tomto fóre nie sú ďalšie neprečítané témy.

Hry v pascale?

v Assembler, C, C++, Pascal, Java

3

747

19.07.2007 22:33

imcold

V tomto fóre nie sú ďalšie neprečítané témy.

zahada v pascale

v Assembler, C, C++, Pascal, Java

3

406

23.02.2008 9:59

Aries

V tomto fóre nie sú ďalšie neprečítané témy.

grafika v pascale

v Assembler, C, C++, Pascal, Java

2

139

22.12.2012 15:36

lukac

V tomto fóre nie sú ďalšie neprečítané témy.

myš v pascale nefunguje

v Assembler, C, C++, Pascal, Java

2

363

07.10.2008 19:37

vcrabz



© 2005 - 2018 PCforum, edited by JanoF