[ Príspevkov: 21 ] 
AutorSpráva
Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
NapísalOffline : 07.11.2011 18:26 | y=sinx/(x-3)

Zdravím všetkých.

Potreboval by som do zajtra večera napísať zdrojový kód na výpočet tohto vzťahu v Pascale. y=sinx/(x-3)

Máme to ako zadanie do školy a ako tak nad tým sedím, nevychádza mi kompilácia, takže niekde budem mať chybu ale pozor, musí tu byť aj podmienka X<>0, aby nevznikla v menovateli 0, lebo potom sa nedá deliť a takéto podmienky sme ešte v Pascale neprogramovali. V podstate ide o to, že ak x vyhovuje podmienke, nech program počíta tento vzťah a ak nie, tak nech sa vráti na pozíciu Znovuzadania x.

Ak by ste mohli, buďte taký dobrý pomôcť mi a napísať mi zdrojový kód na výpočet tohto. Veľmi pekne ďakujem .. :)


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3
NapísalOffline : 07.11.2011 18:44 | y=sinx/(x-3)

A keby si sem dal svoj kód, ktorý ti nejde? Nebudeme to predsa celé písať za teba :)


Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 07.11.2011 18:53 | y=sinx/(x-3)

jasné, jasné, sorry ... a ako vravím, takúto podmienku sme ešte nekódovali, že ak nevyhovuje, tak aby sa vrátila do určitého bodu, takže to goto som skúšal len tak z vlastnej hlavy, ale pravdapodobne to určite nieje dobre ani to. a niečo som vygooglil, že fcia sin predpokladá vstup v radiánoch, len potom neviem ako, keď x pre sin má byť v radiánoch a v menovateli má vystupovať ako číslo..
jasom bol v tom, že keď zadám x napr. 20, tak mi to vypočíta normálne sin 20 = 0,342, som v tom nový, tak žiadam len o pomoc, aby som nemal 0 bodov hneď za prvé zadanie z programovania na výške :D

Kód:
Program ZADANIE;

var:
   x:real;
   y:real;
   sin:real;

begin
   writeln ('Zadaj x rôzne od 0');
   readln (x);
   if (x<>0) then y:=sin (x)/(x-3)
   else
   goto writeln ('Zadaj x rôzne od 0')

writeln (' Výsledok vzťahu y=sin ',x:5:2,' / (',x:5:2,' -3) sa rovná ',y:5:2);
readln
end.


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3
NapísalOffline : 07.11.2011 18:58 | y=sinx/(x-3)

Len tak pomimo, prosím ťa, na akej výške?

A k veci: Ak predpokladá vstup v radiánoch, tak jej to pošli v radiánoch - Vygoogli si prevod stupňov na radiány.

A k tomu načítavaniu, cykly ste už brali? Lebo už len to, že poznáš goto je úplne zlé :D
Daj tam cyklus typu:
Kód:
dokym sa x nerovna nule rob
begin
  readln(x);
end;


Offline

Užívateľ
Užívateľ
y=sinx/(x-3)

Registrovaný: 27.12.08
Prihlásený: 13.12.22
Príspevky: 1874
Témy: 96 | 96
Bydlisko: Bratislava,...
NapísalOffline : 07.11.2011 18:59 | y=sinx/(x-3)

pascalova funkcia sin akceptuje stupne v RADIANOCH, teda stupne musis delit 180 a nasobit pi.. goto nepoužívam... si si istý, že po nesplnení podmienky sa musíš vrátiť znovu na začiatok? vo väčšine úloh pri nesplnení úlohy stačí vypísať nesprávny vstup a ukončiť program.. no byť tebou tak to riešim tak, že tam dám jednoduchý cyklus:
Kód:
x = 0;
while (x = 0)
do begin
writeln('Zadaj x rôzne od 0');
readln(x);
end;
y:=sin((x*pi/180))/(x-3);


_________________
~Listen to your brain, not your heart~
NB1: Lenovo Y500: CPU: Intel Core i7-3630QM; GPU: nVidia GT650M 2GB SLi; RAM: 16GB DDR3; HDD: 1TB + 256GB SSD (m4); LCD: 15,6" 1920x1080; OS: Win8.1 64-bit + Arch Linux 64-bit (UEFI Powered DualBoot)
NB2: Asus K53SJ-SX093: CPU: Intel Core i3-2310M; GPU: Intel HD3000 / nVidia GT520M 1GB Optimus; RAM: 8GB DDR3; SSD: 128GB 840Evo; LCD: 15,6" 1366x768; OS: Win 8.1 Pro 64-bit (UEFI)
Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 07.11.2011 19:29 | y=sinx/(x-3)

Flupak: som na TU v Košiciach na Fakulte BERG a študujem Priemyselnú logistiku. S Algortimizáciou a programovaním som sa teraz stretol prvýkrát v živote a máme ho len teraz jeden semester v zime a berieme všetko len tak z rýchlika a len základy, preto sa pýtam pre Vás určite banality ale ešte do toho nejak nevidím. :)

Sfotil som preto radšej celý zdrojový kód, ktorý som sa pokúsil prepísať podľa Vašej rady, no Pascal ešte stále hlási chybu, tak sa môžme pozrieť čo to je za chybu.

y=sinx/(x-3)

Po odenterovaní mi kurzor ukáže na chybu niekde pri sínuse.


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3
NapísalOffline : 07.11.2011 19:30 | y=sinx/(x-3)

Chýba ti uzavieracia zátvorka funkcie sin


_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám!
Offline

Správca fóra
Správca fóra
y=sinx/(x-3)

Registrovaný: 08.08.09
Príspevky: 12449
Témy: 39 | 39
NapísalOffline : 07.11.2011 19:30 | y=sinx/(x-3)

mas za poslednym writeln bodkociarku?


_________________
always is always wrong
Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3
NapísalOffline : 07.11.2011 19:32 | y=sinx/(x-3)

Ne nechýba, moju odpoveď ignoruj :D


_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám!
Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 07.11.2011 19:34 | y=sinx/(x-3)

za posledným writeln bodkočiarka je..

Flupak: mám tam všade zátvorky ako tak pozerám, nie? je tam pre vnútorný výraz (x*pi/180) potom to je ešte celé v zátvorke pre sin ((x*pi/180)) a potom tam je zátvorka aj pre výraz v menovateli (x-3)

EDIT: OK, flupak :)

taže nejaké nápady? :/


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3
NapísalOffline : 07.11.2011 19:36 | y=sinx/(x-3)

jooo, vidím bokočiarku za begin, prečo? :)


_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám!
Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 07.11.2011 19:44 | y=sinx/(x-3)

opravené, ale nie je to to :(

kurzor mi stále nastavuje na ten sin, že Syntax error ... ";" expected but "(" found ... ale nechápem kam tam môže ísť ; keď tam má byť zátvorka pre ten výraz :/


Offline

Správca fóra
Správca fóra
y=sinx/(x-3)

Registrovaný: 08.08.09
Príspevky: 12449
Témy: 39 | 39
NapísalOffline : 07.11.2011 19:48 | y=sinx/(x-3)

ak ma pamat neklame, ludolfovo cislo nemusis definovat - napises len PI a malo by to vziat = bude to presnejsie kedze 22/7 != 3,14 :)
inak preco mas tie zatvorky dve na jeden vyraz?
skusil by som to takto:
Kód:
y=sin((x*PI)/180)/(x-3);


_________________
always is always wrong
Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 07.11.2011 19:54 | y=sinx/(x-3)

skúsil som to podľa teba a skúšam všeličo, mazať tam zátvorky a prepisovať ten výraz, ale stále tú istú chybu mi vypisuje SYNTAX ERROR s ; a ) ... :(

nechápem čo mu nesedí..


Offline

Správca fóra
Správca fóra
y=sinx/(x-3)

Registrovaný: 08.08.09
Príspevky: 12449
Témy: 39 | 39
NapísalOffline : 07.11.2011 19:56 | y=sinx/(x-3)

hehehe co to tam vidim?
Kód:
var
sin:real;
?
to ma byt naco dobre?


_________________
always is always wrong
Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 07.11.2011 19:59 | y=sinx/(x-3)

ach, som myslel, že aj sin treba zadefinovať, a pritom jasné, je to operácia/funkcia .... ani mne sa to nezdalo, ale som asi vygooglil zlú stránku a som sa nechal zmiasť :D

ale už to fungujeeeee :) ďakujem Vám pekne chlapci, že sme to spoločnými silami zvládli. Vzdávam vám rešpekt :)

Díky moc ešte raz :)


Offline

Užívateľ
Užívateľ
y=sinx/(x-3)

Registrovaný: 14.03.11
Prihlásený: 04.07.24
Príspevky: 815
Témy: 23 | 23
Bydlisko: Bratislava
NapísalOffline : 11.11.2011 15:24 | y=sinx/(x-3)

Dejvid píše:
Zdravím všetkých.

Potreboval by som do zajtra večera napísať zdrojový kód na výpočet tohto vzťahu v Pascale. y=sinx/(x-3)

Máme to ako zadanie do školy a ako tak nad tým sedím, nevychádza mi kompilácia, takže niekde budem mať chybu ale pozor, musí tu byť aj podmienka X<>0, aby nevznikla v menovateli 0, lebo potom sa nedá deliť a takéto podmienky sme ešte v Pascale neprogramovali.





Teda, mládež, ja vám vôbec nerozumiem. Za mojich mladých čias asi bola iná matematika.

Kde si nabral podmienku x<> 0 keď ja vidím v menovateli (x-3)???

Menovateľ nemôže byť nula
x-3 <> 0
x <> ???


Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 11.11.2011 15:45 | y=sinx/(x-3)

sorry, asi som sa zle vyjadril .. jasné, že podmienka má byť x<>3, len som asi predbehol situáciu a zle som sa vyjadril .. ja už som mal v mysli za x dosadené 3 a tak to som myslel, že už dosadené sa nesmie rovnať 0..


Offline

Užívateľ
Užívateľ
y=sinx/(x-3)

Registrovaný: 23.05.07
Prihlásený: 13.12.10
Príspevky: 12
Témy: 3 | 3
Bydlisko: Stará Lubovna
NapísalOffline : 14.11.2011 0:28 | y=sinx/(x-3)

zdravim ..mohol by si poslat ten tvoj funkcny program ? bol som ti velmi vdacny


Offline

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

Registrovaný: 07.11.11
Prihlásený: 19.11.11
Príspevky: 15
Témy: 2 | 2
Napísal autor témyOffline : 15.11.2011 12:11 | y=sinx/(x-3)

Mne tam ešte trochu štrajkovalo to opakovanie po upravení podmienky, že y<>3, preto som to trochu zjednodušil, ale výsledný efekt je ten istý, len po zadaní x=3 nenasleduje opakovanie, ale len vypísanie chybovej hlášky a ukončenie programu. :)

Ale inak, nech sa páči :

Kód:
program ZADANIE;

var
   x : real;
   y : real;

begin
   writeln (‘ Zadaj x rôzne od 3 ’);
readln (x);

if (x<>3) then
begin
y:=sin (x)/(x-3);
   writeln( Výsledok vzťahu y=sin (,x:5:2,)/(,x:5:2,-3) je ,y:5:2);
   end
   else
   begin
   writeln(‘ Zle zadané x. x musí byť rôzne od 3.’);
   end;
   readln;
end.


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 13.11.07
Prihlásený: 20.08.16
Príspevky: 1702
Témy: 0 | 0
NapísalOffline : 15.11.2011 12:40 | y=sinx/(x-3)

Keďže si tam žiadne opakovanie nedal, tak je logické, že sa to neopakuje. :)


 [ Príspevkov: 21 ] 


y=sinx/(x-3)



Podobné témy

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

Na adrese X je internetové pripojenie (DSL), na adrese Y nieje. Moja adresa je Y, avšak prístup je z obidvoch adries

v Poskytovatelia internetu

2

631

10.04.2020 19:24

ViktorinoSK

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

Z x do y

v Ostatné programy

9

749

15.09.2009 14:39

blazon

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

Photoshop - vymena farby X za farbu Y

v Grafické programy

7

8021

05.04.2010 10:05

ju365

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

Photoshop - ziskanie foreground color z urceneho X/Y pixela (script?)

v Grafické programy

0

381

04.07.2017 16:09

kllr007

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

2-3 FAN-y

v Chladiče a všetky druhy chladenia

10

838

28.12.2008 9:35

f4r0

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

3 pin Y kabel

v Chladiče a všetky druhy chladenia

3

595

05.08.2018 21:11

KocuR

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

Php / zistenie adresy stranky X z ktorej som prisiel na Y

v PHP, ASP

4

928

19.08.2009 10:26

Ďuri

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

otvorenie novej stranky Y po vstupe na stranku X v novom okne

v JavaScript, VBScript, Ajax

6

520

01.03.2016 23:33

killer

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie.

I/P: Velku podlozku pod mys Akasa Venom (890 x 3 x 450 mm)

v Predám

14

851

19.06.2013 11:34

k1xxx

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie.

K: 6 x 2GB alebo 3 x 4GB DIMM DDR3 1333MHz / PC3-10600 (1,5V)

v Kúpim

6

391

06.03.2020 6:39

michalesku

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie.

Intel Core i3-3220 CPU @ 3.30GHz x 2 ‎(3.30Ghz)‎

v Predám

2

475

18.07.2014 19:04

Darkey

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

P: 3 x 1080Ti

v Predám

0

430

12.08.2018 21:34

Andrew007

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

AMD Phenom x 3 8650

v AMD - Advanced Micro Devices

7

538

17.11.2011 9:30

Semp

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

kúpim 3 x 120mm vetrák,

v Kúpim

6

288

12.05.2020 14:02

Ringišpir

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

Očakávaný koniec Windows 3.x

v Novinky

1

537

11.11.2008 20:17

dsljohn

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

3 x GPU na jednej karte

v Novinky

4

500

10.04.2008 17:40

Mir



© 2005 - 2024 PCforum, edited by JanoF