Zajímavá násobilka potřetí: opečovaný vstup

Co dělat, když nějaký šmoula hodlá zadat začátek násobení od vyššího čísla než konec násobení?
Nutno opečovat vstup:

program nasobilka;
uses crt;
var a, b, c, i, klavesa: integer;

begin
  repeat {to je zacatek cyklu, ktery konci tim until dole:
         program se bude motat dokola, dokud nekdo nezmackne klavesu 1}
   repeat
     clrscr;  {to je vymazani obrazovky}
     writeln ('zadej cislo, ktere budes nasobit');
     readln  (A);
     writeln ('zadej cislo, od ktereho chces nasobit');
     readln  (B);
     writeln ('zadej cislo, do  ktereho chces nasobit');
     readln  (C);
    until c>b;
     clrscr;  {to je vymazani obrazovky}
     for i:=b to c  do
     {cyklus pro i od a  do b  dělej... -> cyklus probehne (b - a) krat}
         writeln (i,  ' x  ',a , ' =',i * a);
        {napise obsah promenne i, pak znacku nasobeni...}
     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');

     readln (klavesa);
   until klavesa<>1;
  {zde konci cyklus repeat}
 end.

Zajímavá násobilka (uživatelsky definován start a konec c yklu)

násobilka, kdy zadáte počátek a konec cyklu:

program nasobilka;
uses crt;
var a, b, c, i, klavesa: integer;

begin
  repeat {to je zacatek cyklu, ktery konci tim until dole:
         program se bude motat dokola, dokud nekdo nezmackne klavesu 1}
     clrscr;  {to je vymazani obrazovky}     
     writeln ('zadej cislo, ktere budes nasobit');
     readln  (A);
     writeln ('zadej cislo, od ktereho chces nasobit');
     readln  (B);
     writeln ('zadej cislo, do  ktereho chces nasobit');
     readln  (C);  
     clrscr;  {to je vymazani obrazovky}
     for i:=b to c  do

     {cyklus pro i od a  do b  dělej... -> cyklus probehne (b - a) krat}

         writeln (i,  ' x  ',a , ' =',i * a);
        {napise obsah promenne i, pak znacku nasobeni...}
     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');

     readln (klavesa);
   until klavesa<>1;
  {zde konci cyklus repeat}
 end.

Cyklus v cyklu

Pěkná pakárnička takový cyklus v cyklu!
Namaluj simulační tabulku!


program nasobilka;
uses crt;
var a, b, i,j, klavesa: integer;

begin
  repeat {to je zacatek cyklu, ktery konci tim until dole:
         program se bude motat dokola, dokud nekdo nezmackne klavesu 1}
     clrscr;  {to je vymazani obrazovky}

     for i:=1 to 3  do
        for j:=5 to 8  do
          {vnoreny cyklus pro i od 1 do 3 dělej... -> cyklus probehne 12x}
         writeln (i,  ' x  ',j , ' =',i * j);
     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');

     readln (klavesa);
   until klavesa<>1;
  {zde konci cyklus repeat}
 end.

Nejjednodušší základní program vylepšený o nekonečné opakování

Solidní program se nakonec zeptá, zda-li má pokračovat nebo skončit.
Tudy na to:

program nasobilka;
uses crt;
var a, b, i, klavesa: integer;

begin
  repeat {to je zacatek cyklu, ktery konci tim until dole:
         program se bude motat dokola, dokud nekdo nezmackne klavesu 1}
     writeln ('zadej cislo');
     readln  (A);
     clrscr;  {to je vymazani obrazovky}
     writeln ('zadej dalsi cislo');
     {writeLN napise text a ukonci radek (na rozdil od write)}
     readln  (B);
     writeln ('soucet cisel ',a,  ' a  ',b , ' je ',a+b);

     if a = b then
     {kdyz - tak, to znas:)}
        writeln ('cisla ',a,  ' a  ',b , ' jsou stejna')
     else
     {jinak...}
         writeln ('cisla ',a,  ' a  ',b , ' nejsou stejna');

     for i:=1 to 10  do
     {cyklus pro i od 1 do 10 dělej... -> cyklus probehne 10x}
         writeln (i,  ' x  ',a , ' =',i * a);
        {napise obsah promenne i, pak znacku nasobeni...}
     writeln ('stiskni 1, kdyz pokracovat, jinak nulu a program skonci');

     readln (klavesa);
   until klavesa<>1;
  {zde konci cyklus repeat}
 end.

Nejjednodušší základní program

program nasobilka;
uses crt;
var a, b, i: integer;

begin
     writeln ('zadej cislo');
     readln  (A);
     clrscr;  {to je vymazani obrazovky}
     writeln ('zadej dalsi cislo');
     {writeLN napise text a ukonci radek (na rozdil od write)}
     readln  (B);
     writeln ('soucet cisel ',a,  ' a  ',b , ' je ',a+b);

     if a = b then
     {kdyz - tak, to znas:)}
        writeln ('cisla ',a,  ' a  ',b , ' jsou stejna')
     else
     {jinak...}
         writeln ('cisla ',a,  ' a  ',b , ' nejsou stejna');

     for i:=1 to 10  do
         writeln (i,  ' x  ',a , ' =',i * a);


     writeln ('stiskni cokoli a program skonci');




     repeat until keypressed;
     {motej se dokola, po zmacknuti cehokoli skonci}
 end.

Program NejvetsiSpolDelitel radostněji

program NejvDelitel;
uses crt; {nutné proto, aby fungoval příkaz "repeat until keypressed"}
var A, B, C, D : Integer;
begin
   Writeln ( 'Nejvetsi spolecny delitel ' );
   Writeln ( 'Zadejte dve cisla ' );
   Readln ( A, B );
   clrscr;
   C:=A;
   D:=B;
   while A <> B do
      if A > B then A := A - B
   else B := B - A;
   Writeln ( 'Nejvetsi spolecny delitel cisel ', C, ' a ', D, ' je ', A );
   Writeln ( '***stiskni cokoli a program skonci***');
   repeat until keypressed;
end.

while cyklus

while A <> B do
if A > B then A := A - B
else B := B - A;

repeat cyklus

repeat
;
;
...............

until

příklad:
repeat
write ('Zadej kladné číslo: ');
read (cislo);
if cislo <= 0 then write ('Cislo ', cislo, 'neni kladne!'); until cislo >0;

cvičení:
Napiš tuto část programu za pomocí cyklu while!
... a řešení:
Porovnání cyklu while oproti cyklu repeat until:

program while_versus_repeat_until;

uses wincrt; {nutné proto, aby fungoval príkaz "repeat until keypressed"}
var cislo : Real;

begin
clrscr; {smaze na zacátku obrazovku - aby nezustával text z predchozích aplikací}
writeln ('*********************************************************');

(* ----------cyklus repeat - until ---------*)
writeln ('Testovani cyklu repeat: ');
repeat
writeln ('Zadej kladné císlo a cyklus repeat skonci: ');
readln (cislo);
if cislo <= 0 then writeln ('Cislo ', cislo, 'neni kladne! Cyklus repeat pokracuje...'); until cislo >0;
(* -------- cyklus repeat - until konec --------*)

writeln ('stiskni cokoli a program pokracuje k testovani cyklu while');
repeat until keypressed;
{PC ceká na stisk libovolné klávesy - aby zustal videt výsledek na obrazovce}

(* --------cyklus while--------------- *)
cislo :=-100 (* quli nasledujici podmince musim nadefinovat promennou cislo jako zapornou*);
while cislo < 0 do begin writeln ('Zadej kladné císlo a cyklus while skonci: '); readln (cislo); end; (*-------- cyklus while konec -----------*) writeln ('bylo zadano kladne cislo, stiskni cokoli a program skonci'); writeln ('*********************************************************'); repeat until keypressed; {PC ceká na stisk libovolné klávesy - aby zustal videt výsledek na obrazovce} clrscr; {smaze na konci obrazovku} end.

Poznámka:
Repeat cyklus se provede alespoň jednou.
While se nemusí provést ani jednou!
While cyklus běží tak dlouho, dokud platí jeho podmínka.
Repeat se chová opačně - jakmile podmínka platí, skončí!

Proměnné a jejich deklarace

proměnná = místo na uložení dat

deklarace proměnných: klíčové slovo var :

příklad:
var Radek, Sloupec : Integer;

Prumer : Real;

Integer jsou celá čísla, Real jsou reálná čísla

poznámka:
velká a malá písmenka jsou Pascalovi lhostejná, zde je uvádím pro přehlednost, piš si to jak chceš!
Čerstvě delkarovaná hodnota má počítačem náhodně vygenerovanou hodnotu, nejdřív do ní musíme vložit počáteční hodnotu!!!! Udělá to:
3.1 Přiřazovací příkaz
:=

příklad:
Radek := 4;

Sloupec := Radek + 1;

Radek := Radek + 1; -------> ve výrazu se může vyskytnout cílová proměnná!!!!


program NejvDelitel;
var A, B : Integer;
begin
Write ( 'Největší společný dělitel ' );
Write ( 'Zadejte dvě čísla ' );
Read ( A, B );
while A <> B do
if A > B then A := A - B
else B := B - A;
Write ( 'Největší společný dělitel je ', A );
end.

co by se mohlo hodit?
Borland editor pod DOSem:
CTRL + INSERT - kopíruj blok (copy)
SHIFT + INSERT - vlož blok (paste)
CTRL + KH - zruš označení bloku
ALT 60 je < ALT 62 je >
cvičení:
Jak to dopadne, zadáš-li zápornou hodnotu proměnných A a B? Napiš sledovací tabulku pro použité proměnné!
Vytvoř test, zda-li je opravdu zadáváno kladné číslo a program takto uprav!


řešení:
Největší dělitel - verze obrněná proti idiotským vstupům
pro úspěšné řešení neumíš jedinou věc - ABS(A) je absolutní hodnota čísla A!

program NejvDelitel;
var A, B : Integer;
begin
Write ( 'Největší společný dělitel ' );
Write ( 'Zadejte dvě čísla ' );
Read ( A, B );
if A * B = 0 then
Writeln ( 'Nula nemá dělitele' )
else
begin
A := Abs(A);
B := Abs(B);
while A <> B do
if A > B then A := A - B
else B := B - A;
Write ( 'Největší společný dělitel je ', A );
end;
end.

První program lépe a radostněji

Když první program spustíme, tak v pohodě zadáme dvě čísla, program porovná, které je větší, větší číslo vypíše, ale ve finále skončí a my z toho nic nemáme.
Je třeba, aby program po vypsání výsledku čekla na stisk klávesy a skončil až potom. To vyřešíme řádkem obsahující trik repeat until keypressed;

program VetsiCislo ( Input, Output );
uses crt; {nutné proto, aby fungoval příkaz "repeat until keypressed"}
var A, B : Integer;
begin
Write ( 'Urceni vetsiho cisla ' );
Write ( 'Zadejte dve cisla ' );
Read ( A, B );
if A > B then
Write ( 'vetsi je ', A )
else
Write ( 'vetsi je ', B );
repeat until keypressed;

end.

Upravte tento program tak, aby řešil situaci, kdy se zadají stejná čísla!
Pokud někdo zadá z klávesnice stejná čísla, program vypíše: "čísla jsou stejná!"

První program

všimni si:
na konci (skoro) každého řádku je středník
na konci posledního řádku je tečka
begin je levá závorka
end je pravá závorka


program VetsiCislo ( Input, Output );
var A, B : Integer;
begin
Write ( 'Urceni vetsiho cisla ' );
Write ( 'Zadejte dve cisla ' );
Read ( A, B );
if A > B then
Write ( 'vetsi je ', A )
else
Write ( 'vetsi je ', B );
end.

Neštěstí tohoto programu je, že proběhne a bez varování bleskově skončí.
Lze pořešit vložením příkazu
Read (A);
před závěrečný příkaz
end.
To však není příliš elegantní...