pascal uloha

tommy70777 · Napísal **tommy70777**: 10.11.2009 21:14

zdar mam taku ulohu

zadanie :
Pomocov cyklu while-do vypiste cele cisla 1 do 100 pricom pri kazdom cisle bude vypisane ci je parne alebo neparne. Vzdy po vypise 25 cisel program pocka na stlacenie klavesy enter(aby si uzivatel mohol vypis prezriet)

toto by som mal neviem ako mam spravit do ze sa kazdych 25 cisel ma stlacit enter, viem ze tam musi asi byt dalsi cyklus ale nvm to tam nejako zaradit

pls poradte diks

Kód:

program xy;
uses crt;
var min,max:integer;

begin
  clrscr;
  write('Min : ');
  read(min);
  write('Max : ');
  read(max);

  while min<max do begin
    min:=min+1;
    if(odd(min)=true) then writeln(min,' neparne') else writeln(min,'parne');
    end;
end.

feromakovi · Napísal **feromakovi**: 11.11.2009 16:23

no doplnil som tam počítadlo ktoré ak bude mať hodnotu 25 tak program zastaví...ty by si si mohol pozrieť ten výpis a keď stlačíš enter tak vymaže obrazovku a nanovo bude vypisovať ďalšie a ďalšie veci..
za kvalitu neručím nemám to kde vyskúšať a pascalovskú syntaxu už tiež akosi neovládam.

Kód:

program xy; 
uses crt; 
var min,max,pocitadlo:integer; 

begin 
pocitadlo:=0;  
clrscr; 
  write('Min : '); 
  readln(min); 
  write('Max : '); 
  readln(max); 

  while min<max do begin 
inc(pocitadlo);    
min:=min+1; 
    if(odd(min)=true) then writeln(min,' neparne') else writeln(min,'parne'); 
if(pocitadlo=25) then begin
readln;
clrscr;
pocitadlo:=0;                      
end;    
end; 
readln;
end. 

a zmenil som to read na readln pretože ak ma pamäť neklame readom by si načítal iba jeden znak...
Dúfam že to pomôže....ale tak principiálne by to malo fungovať

pascal uloha

Podobné témy