Program v pascale

[shaaira]

Zdravim,
Potreboval by som naprogramovat, ale nejako sa neviem pohnut v pascale.
Mam takyto priklad:
y=(x2+1)/(x2-1)
(x2 znaci, ze x je na druhu) a ( / znaci delenie)
Za kazdu pomoc dakujem.

[materik]

skus toto, ale nezarucujem spravnost.... Pascal som videl pred 10 minutami prvykrat v zivote.

Spoiler: ukázať

Kód: Vybrať všetko

Program Delenie;
Begin
	x, y: Real;
	Writeln('Zadaj cislo X: ');
	Readln(x);
	y=((x*x)+1)/((x*x)-1);
	Writeln('y = ',y);
End.

do buducna UTFG!

[donner]

boli tam mensie chyby, ale na to, ze si pascal videl prvykrat si dobry

Spoiler: ukázať

Kód: Vybrať všetko

program Delenie;
uses crt;
var x,y : real;
begin
   clrscr;
   write('Zadaj cislo X: ');
   readln(x);
   y=(x*x+1)/(x*x-1);
   writeln('y = ',y);
   readln;
end.

[materik]

par otazok zo zvedavosti:
1. definovanie premennych nad begin-om z nich robi globalne premenne?

2. uses crt; je nutnost ak chcem pouzit konzolu? (nevsimol som si to v tutoriale)

3. clrscr; po begin-e je tam naco? (teda, ak je to clear screen ako si myslim...)

dikes

[donner]

Pokial ja viem, tak premenne sa v pascale definuju vzdy nad beginom cez var, takto som to este nevidel, ale nevravim, ze sa to tak nemoze
Crt je na prikaz clrscr
Ano, je to clear screen, davam ho stale po begine, aj inde som si to tak vsimol, je to vlastne jedno. Ked spustis program prvykrat, tak aby ti zmazalo plochu pri druhom spusteni. Neviem ako to presne funguje, ked to spustas z exe, ale ked ten program upravujes tak aby pri dalsom spusteni sa vycistil screen.

[materik]

dikes za objasnenie, mozno ak mi niekedy zvysi cas, tak sa na ten jazyk kuknem aj vaznejsie

a snad sme helpli aj shaaira

[shaaira]

Vdaka chlapy za vas cas a pomoc

[galen]

a ked to budes testovat, nezabudni zadat X = 1
hodi ti to error - division by zero

takze tam treba nejak dat IF

Kód: Vybrať všetko

   if ( x = 1) then
      begin
         writeln('Nemozes delit nulou');
      end
   else
      begin
         y=(x*x+1)/(x*x-1);
         writeln('y = ',y);
      end;

[shaaira]

Takze final verzia programu vyzera asi takto:

Kód: Vybrať všetko

program delenie;
uses crt;
var x,y: real;
begin
x:=0;
y:=0;
writeln('Zadaj x: ');
readln(x);
if (x=1) then 
begin
writeln('Nemozes delit nulou');
end 
else
begin
y:=(x*x+1)/(x*x-1);
writeln('y= ',y);
end;
end.

Teraz to uz funguje akoby malo. Este spracovat nejako vyvojovy diagram a mam to v cajku

[materik]

je nutna inicializacia premmennych na nulove hodnoty?
nedava mi to velky zmysel...

[donner]

Premenne teraz netreba nulovat.

Kód: Vybrať všetko

program delenie;
uses crt;
var x,y: real;
begin
clrscr;
x:=0;
y:=0;
write('Zadaj x: ');
readln(x);
if (x=1) then
begin
writeln('Nemozes delit nulou');
end
else
begin
y:=(x*x+1)/(x*x-1);
writeln('y= ',y);
end;
readln;
end.

Ja by som to dal takto.
Doplnil som clrscr na zaciatok a na koniec readln. A writeln som zmenil na write, podla mna tam ma byt write, lebo ked je writeln, program pokracuje dalej, a nepockaj na zadanie vstupu, ak tam je iba write, program caka na stlacenie enteru a tak pokracuje.

[pEpinko]

... A writeln som zmenil na write, podla mna tam ma byt write, lebo ked je writeln, program pokracuje dalej, a nepockaj na zadanie vstupu, ak tam je iba write, program caka na stlacenie enteru a tak pokracuje.

Naozaj je to takto? Uz som davno neprogramoval v Pascal/Delphi ale nejak sa mi nezda ze by to malo takuto funkcionalitu. Podla mna je medzi write a writeln rozdiel len v tom, ze writeln zalamuje riadok.

[donner]

Teraz uz vazne neviem aky tam je rozdiel, kedze som si vsimol ze niektore programy aju aj wirteln, ta kde by som dal ja write. Takze asi to len zalamuje riadok.

[galen]

tak tak ...
write - nezalomi raidok
writeln - zalomi riadok

read - nacita hodnotu
readln - nacita hodnotu a CRLF

takze ak by si chcel pauznut program na konci cez readln() ~ zadaj enter, a pouzival by si bezne read(), tak ti to nezastavi, lebo to v buffri ma CRLF z predchadzajucich read/inputov

[fmb]

Neviem ci som spravne pochopil ako ste mysleli rozdiel medzi write a writeln: ide o to dke po vypisani skonci kurzor, napriklad ked po write mate prikaz readln alebo dalsi write tak za nim skonci kurzor hned v tom riadku, ale pri writeln ide na novu line preto writeLN. cize ked das writeln("ahoj "); write("ahoj "); tak to vyzera po zbehnuti

ahoj
ahoj _

a urcite by som tam dal aspon jeden skok ked je x=1 aby sa opatovne nacitala hodnota...