Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.07 Dělení celých čísel postupným odečítáním

MENU

04.07 Dělení celých čísel postupným odečítáním

Zadání:
Sestavte program, který vypočte podíl dvou čísel pomocí postupného odečítání.
Řešení:
Zadání vyřešíme použitím cyklu REPEAT. Budeme od dělence odečítat dělitele tak dlouho, až bude dělenec menší než
dělitel. Při každém odečtení zvýšíme hodnotu proměnné vysledek o 1 (jedna).
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var delenec,delitel,vysledek: integer;

begin

   write('Zadejte delenec: ');
   readln(delenec);
   write('Zadejte delitel: ');
   readln(delitel);

   vysledek:=0;

   repeat
      delenec:=delenec-delitel;
      vysledek:=vysledek+1;
   until delenec<delitel;

   writeln(delitel*vysledek+delenec,':',delitel,'=',vysledek,', zbytek ',delenec);

   readln;

end.
program ke stažení
Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné vysledek MUSÍTE vložit hodnotu 0 (nula), jinak by program dosadil své počáteční hodnoty.

Pro učitele:
Pozor na zadání záporných a nulových čísel, program by se mohl dostat do nekonečné smyčky.