Hodina 11., 12. (19.10. 2005)

Programování - základní pojmy:

Test 1

Příklad 3b - načtení hodnoty a vypsání hlavičky se zadanou hodnoutou (0-99):

var p,c:integer;
begin
   write('Zadej cislo v rozsahu 0-99: ');
   readLn(c);
   if c<10 then
      begin
         writeLn('*****');
         write('* ');
         write(c);
         writeLn(' *');
         writeLn('*****');
      end
   else if c<100 then
      begin
         writeLn('******');
         write('* ');
         write(c);
         writeLn(' *');
         writeLn('******');
      end;
      else writeln('Zadali jste spatnou hodnotu!');
   read(p);
end.

Domácí úkol:

Příklady na procvičení:

Home