Jednoducha uloha – Pascal – Fórum – Programujte.com

Zdravím. Trochu sa oboznamujem s Pascalom a mám nasledovný program

Program uloha;
var vstup,vysledok:integer;
begin
	writeln('Zadajte číslo !');
	readln(vstup);
	vysledok:= vstup+1;
	writeln(vysledok);
end.

Ako môžem docieliť to, aby po vypísaní výsledku požadoval nové číslo, namiesto toho aby sa vypol ?

Vopred ďakujem za odpovede.

mozna si uz nekde zaslechl takovej ten pojem jmenem "cyklus"

Skúšal som, ale vždy sa mi vypol po prvom výsledku.

a co si zkousel?

Tak napríklad 

Program uloha;
var vstup,vysledok:integer;
begin
	repeat
	writeln('Zadajte číslo !');
	readln(vstup);
	vysledok:= vstup+1;
	writeln(vysledok);
	until (vstup='exit');
end.

jak by si kdy mohl dostat do "vstup" neco jinyho nez cislo?

O to ide ... Ja nechcem aby sa to "prestal pýtať". Až kým manuálne nevypnem aplikáciu.

o to nejde.. jde o to, ze vstup mas deklarovany jako Integer... jak do toho asi chces narvat exit?

Teoreticky muzes kontrolovat end of file a ukoncit zadavani stiskem ctrl+d (na linuxu) a nebo ctrl-z na woknouzech? tezko rict neco takovyho tam je... nebo se zeptat pokazdy jestli chce pokracovat a nacist jeden znak A,N a tak podobne

Mohol by si mi prosim ťa napísať ako mám ten program urobiť ?

#9 Trebor
Třeba takhle:

program uloha;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var vstup,vysledok,pokr,konec: Integer;
     anone: String;

begin
  pokr := 0;                         //Promenna pro moznost pokracovani
  WriteLn( '-------------------Moje prvni uloha--------------------');  //Uvodni vypis
  WriteLn;
  while pokr=0 do  
  begin
    Write(' Zdej cislo: '); 
    ReadLn(vstup);
    vysledok := vstup+1;
    WriteLn(' Vysledek je: ',vysledok); //Vypis vysledku
    konec  := 0;                        //Promena indikujici zda bylo napsano
                                        // ano (a) nebo ne (n)
    repeat     //Opakujeme vyzvu, dokud nenapisme a nebo n
      WriteLn;
      Write(' Nove cislo? [a/n] ');     //Chceme-li nove napiseme a
      ReadLn(anone);
      if (anone='n')or(anone='N')or(anone='a')or(anone='A') then
        konec := 1
      else
      begin
        WriteLn;
        WriteLn(' Musis zadat a nebo n');
      end;
    until konec<>0;
    if (anone='n')or(anone='N') then  //V pripade ze napiseme n + ENTER -
                                      // program skonci
      pokr := 1;
  end;

end.