Kezdőoldal » Számítástechnika » Programozás » Mit rontottam el?

Mit rontottam el?

Figyelt kérdés

Pascalban írtam egy programot ami kiszámolja pitagorasz tétellel a derékszögű háromszög átlóját, de amikor mondjuk beírom, hogy háromszög egyik oldala 6 legyen a másik pedig 8 akkor 10 helyet 1.000[...]-át kapok eredményül... :/ Mit rontottam el?

2013. jan. 26. 13:50

1/10 A kérdező kommentje:

Esetleg elküldhetem a progit, ha kell valakinek, mert nem érti a példát!

2013. jan. 26. 13:51

2/10 anonim

válasza:

Mondjuk ha megmutatnád a kódodat, akkor előrébb lennénk...

2013. jan. 26. 13:51

Hasznos számodra ez a válasz?

3/10 anonim

válasza:

A valós (real) változót normálalakban írja ki. Ha nem így szeretnéd, a kiírást módosítsd:

writeln('Atlo: ', atlo:2:2);

2013. jan. 26. 13:58

Hasznos számodra ez a válasz?

4/10 A kérdező kommentje:

Bocsi!

program pitagorasz;

var a,b,c:integer; ch: char;

begin

[...]

repeat

write('Adja meg....: ')

readln(a);

write('Adja meg....: ')

readln(b);

writeln('a2+b2= ',a*a+b*b);

writeln('Az eredmény: ');

writeln(sqrt(a*a+b*b));

[...]

end.

2013. jan. 26. 14:07

5/10 A kérdező kommentje:

Ez a program algoritmusa...

2013. jan. 26. 14:07

6/10 anonim

válasza:

próbáld meg ezt:

program Pitagorasz;

var a,b,c : Real;

begin

readln(a,b);

c:=sqrt(a*a+b*b);

writeln(c);

end.

2013. jan. 26. 14:14

Hasznos számodra ez a válasz?

7/10 A kérdező kommentje:

Az sem jó, amit az utolsó írt... :(

2013. jan. 26. 14:27

8/10 ejbenjaro

válasza:

program pitagorasz;

var

a,b,c,c2 : single;

begin

write('Kerem az egyik befogot: ');

readln(a);

write('Kerem a masik befogot: ');

readln(b);

c2:=sqr(a)+sqr(b);

writeln('A^2+B^2= ', c2:5:2);

c:=sqrt(c2);

writeln('Az atfogo (C^2) : ',c:5:2);

end.

2013. jan. 26. 14:49

Hasznos számodra ez a válasz?

9/10 A kérdező kommentje:

FÚÚH! Nagyon köszi! Amúgy mi volt a baj az enyémmel, ha valaki tudja írja le pls!

2013. jan. 26. 15:17

10/10 ejbenjaro

válasza:

A harmadik hozzászóló (Wampa) már leírta.

2013. jan. 26. 15:18