Matematické Fórum

Toni · 16. 02. 2010 15:30

Mám vytvořit program v pascalu na porovnání 4 čísel pomocí cyklu s pevným počtem opakování(FOR). Jenže podle mě si z nás učitelka dělá srandu, protože takový program nelze napsat pomocí FOR ale buď podmínkami(složité) nebo CASE.díky za pomoc

Olin · 16. 02. 2010 15:41

Já si zase spíš dokážu představit, jak bych to dělal tím cyklem. Můžeš prosímtě přesně popsat, co má být vstupem a co výstupem programu?

Toni · 17. 02. 2010 18:53

↑ Olin:vstup:4 čísla, výstup-jedno největší číslo

Pavel Brožek · 17. 02. 2010 19:04

↑ Toni:

čísla x[1], ..., x[n]

nejvetsi=x[1]

for i=2 to n do
nejvetsi=VetsiZCisel(nejvetsi,x[i])

vypis(nejvetsi)

Toni · 17. 02. 2010 22:31 — Editoval Toni (18. 02. 2010 16:49)

↑ BrozekP:děkuji za rychlou reakci, ale nevím co znamenají hranatý závorky v tom kódu?a to největší číslo na určit program a ne Aby ho zadal užívatel

Olin · 17. 02. 2010 22:51

Znáš pole (array)?

Kondr · 18. 02. 2010 01:03 — Editoval Kondr (18. 02. 2010 01:06)

↑ Toni: Jenom překlep: chtěl jsi napsat děkuji za rychlou reakci, ale nevím co znamenají a napsal jsi co sakra znamenají. Příležitostně oprav.

K věci: jde to i bez pole.

Code:

nove,nejvetsi,i:integer;

for i=1 to 4 do begin
  readln(nove);
  if(i=1) or (nove>nejvetsi) then nejvetsi:=nove;
end;

writeln(nejvetsi);

Toni · 18. 02. 2010 16:50

↑ Olin:Ne, pole neznám

Matematické Fórum

#1 16. 02. 2010 15:30

Pascal-největší ze 4 čísel

#2 16. 02. 2010 15:41

Re: Pascal-největší ze 4 čísel

#3 17. 02. 2010 18:53

Re: Pascal-největší ze 4 čísel

#4 17. 02. 2010 19:04

Re: Pascal-největší ze 4 čísel

#5 17. 02. 2010 22:31 — Editoval Toni (18. 02. 2010 16:49)

Re: Pascal-největší ze 4 čísel

#6 17. 02. 2010 22:51

Re: Pascal-největší ze 4 čísel

#7 18. 02. 2010 01:03 — Editoval Kondr (18. 02. 2010 01:06)

Re: Pascal-největší ze 4 čísel

Code:

#8 18. 02. 2010 16:50

Re: Pascal-největší ze 4 čísel

Zápatí