Matematické Fórum

SnowSlider

Dobrý den, chtěl bych se prosím zeptat, jak mám v pascalu postupovat, pokud chci například načíst seznam nějakých zadaných hodnot, například pár nějakých čísel, dále určit nějakou podmínku, a pokud ta čísla tuto podmínku splňují, tak ty, které ji splňují, vypsat jedno za druhým na výstupu? Dá se do toho nějak začlenit pole (array)?
Děkuji mockrát.

Wrunx · 29. 10. 2014 20:20

Možná jsem něco nepostřehl, ale to je asi nejzákladnější operace - něco načíst, přebrat a vypsat :-)
Třeba takhle?

Code:

program cti_a_pise;
const max=10;
      cin=10;{cislo pro podminku}
var A:array [1..max] of integer; {nebo real...}
    i:byte;

begin
{nacteni}
writeln('Vloz ',max,' cisel:');
for i:=1 to max do begin
  readln(A[i]);
end;
{vypis}
for i:=1 to max do begin
  if A[i]<cin then
  writeln(a[i]);
end;
end.

Matematické Fórum

#1 28. 10. 2014 22:19 — Editoval SnowSlider (28. 10. 2014 22:19)

algoritmus pro vypsání jednotlivých hodnot

#2 29. 10. 2014 20:20

Re: algoritmus pro vypsání jednotlivých hodnot

Code:

Zápatí