Vypsani cisel v pascalu

Ahoj,
jak ma vypadat program, do ktereho kdyz napisu napr. cislo 10, tak mi vypise cisla pozpatku: 10, 9, 8 apod... pod sebe.

Kdyz udelam:

program vypsanin;
var
x,y:integer;

begin
writeln ('Zadejte prosim cislo');
readln (x);
while x>0 do

A ted nevim jak pokracovat a jestli mam vubec podminku dobre.
Predem dekuju za pomoc

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
program cisla1; uses Crt; var cisloStr : string; cisloInt, step : integer; begin ClrScr; Write('Nap… martin.developer 22.04.2011 14:08	martin.developer	22.04.2011 14:08
:-) Tento pokus o program si aj skúšal a funguje? Len námatkou: Val(S:string;var V:číslo;var Code:in… pme 22.04.2011 14:14	pme	22.04.2011 14:14
třetí parametr procedury val je nepovinný, ale když ho nepoužije a neošetří tak chybové zadání, to u… JoDiK 22.04.2011 17:01	JoDiK	22.04.2011 17:01
V Pascalu už jsem nedělal hrozně dlouho, pokud jsou tam nějaké blbosti tak se omlouvám, ale i tak te… poslední martin.developer 22.04.2011 23:27	martin.developer	22.04.2011 23:27


program cisla1;

uses Crt;
var cisloStr       : string;
    cisloInt, step : integer;
begin
  ClrScr;

  Write('Napiste cislo: ');
  Read(cisloStr);

  Val(cisloStr, cisloInt);

  WriteLn;

  for step := cisloInt downto 1 do begin
      WriteLn(step);
  end;

  ReadLn;
  ReadLn;
end.

Tento pokus o program si aj skúšal a funguje?
Len námatkou:
Val(S:string;var V:číslo;var Code:integer); Ten tretí parameter tam nemusí byť? Kompilátor to "rozdýcha" ?
Read(cisloStr); Skús zadať dvojciferné číslo...

třetí parametr procedury val je nepovinný, ale když ho nepoužije a neošetří tak chybové zadání, to už rovnou mohl číst readln...
cisloStr je typ string, tzn až 255 znaků.

V Pascalu už jsem nedělal hrozně dlouho, pokud jsou tam nějaké blbosti tak se omlouvám, ale i tak ten program resp. kód splní to co má (pokud neberu ohled na ošetření vstupu ...).

Zpět do poradny Odpovědět na původní otázku Nahoru