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
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗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 25. 10. 2011 18:25 — Editoval Saratoga (25. 10. 2011 18:43)
Pascal
Mam tu taky program, ktory ma vypisat najvacsie cislo zo zoznamu cisel. Ten zoznam bude ukonceny -1 a ta uz do zoznamu nepatri. A cislo bude aspon jedno.
Napisala som to nejak takto, ale niekde je chyba, nevie mi niekto poradit? Dakujem.
program NAJDI_MAX;
uses crt;
var
cislo1, cislo2, max:integer;
begin
clrscr;
readln (cislo1);
max:=cislo1;
while cislo2 <> -1 do
begin
readln (cislo2);
if cislo2 > max then
max:= cislo2
end;
writeln(max);
end.
A Nevie niekto o nejakej dobrej knihe programovania v Pascale pre zaciatocnikov? Alebo nieco take...
Vdaka
Offline
- (téma jako vyřešené označil(a) Saratoga)
#3 25. 10. 2011 18:29 — Editoval janca361 (25. 10. 2011 18:31)
- janca361
- .
- Příspěvky: 3284
Re: Pascal
Code:
if cislo2 > max then
max: cislo2Toto máš špatně, mělo by to být takto:
Code:
if cislo2 > max then
max:=cislo2;EDIT: Pozdě
Offline
#4 25. 10. 2011 18:30
Re: Pascal
↑ janca361:
ano iste, to bol asi preklep, inak to tam mam ale este je tam nejaka chyba a neviem ju najst, nejaka logicka
Offline
#5 25. 10. 2011 18:34
- janca361
- .
- Příspěvky: 3284
Re: Pascal
↑ Saratoga:
Prosím, nemaž zadání.
Nevie niekto o nejakej dobrej knihe programovania v Pascale pre zaciatocnikov? Alebo nieco take...
Já mám Pascal pro zelenáče (Pavel Satrapa) (Obsah knihy)
Offline
#6 25. 10. 2011 18:39
Re: Pascal
↑ janca361:
Uz som tam dala to zadanie spat, nejak sa mi to pri tom upravovani poplietlo... :)
Offline
#7 25. 10. 2011 18:42
- janca361
- .
- Příspěvky: 3284
Re: Pascal
↑ Saratoga:
Ještě jsem v programu našla jednu chybu:
Code:
var: cislo1, cislo2, max:integer;
Za var nepatří dvojtečka:
Code:
var cislo1, cislo2, max:integer;
Offline
#8 25. 10. 2011 18:47
Re: Pascal
↑ janca361:
tak som to opravila, no skor neviem, ci uvazujem spravne o tom, co je ten zoznam, ten program, ktory som napisala, si vlastne pyta cisla postupne, ale mozno by to malo byt nejak inak.
Ked som ho spustila v Pascale, isiel v poriadku aj vypisalo najvacsie cislo, cize v zapise by nemala byt chyba, jedine, ze to zle chapem, totiz codex mi to neberie a netusim preco.
Offline
#9 25. 10. 2011 19:06
- janca361
- .
- Příspěvky: 3284
Re: Pascal
↑ Saratoga:
Taky mi to přišlo divné, když jsem začínala, ale asi by to mělo být takto.
Možná by to vyřešilo, kdyby si čísla četla do jedné proměnné.
Code:
program NAJDI_MAX;
uses crt;
var cislo, max:integer;
begin
clrscr;
readln (cislo);
max:=cislo;
while cislo <> -1 do
begin
readln (cislo2);
if cislo2 > max then
max:= cislo2
end;
writeln(max);
end.Offline