Matematické Fórum

Program delenie;
uses wincrt;
var a,b,vysledok:integer;
begin
Writeln('Program vydeli mezi sebou 2 cisla, jestli budes delit nulou, vypise se chyba');
readln (a);
readln (b);
if b=0 then writeln ('NELZE')
else 
begin
vysledok:= a div b;
writeln ('Vysledek je ',vysledok);
end;
readln;
donewincrt;
end.

Mělo by to jít.

↑ vojta01:
ahoj, spravil som to ako hovoris ,ale aj tak tam musi byt niekde chyba.Skompiloval som to skolskym systemom a pridelilo mi to len 4 body z 10 ..takze nieco nebude v poriadku.

program delenie;
var a,b,vysledok:integer;
begin
readln (a);
readln (b);
if b=0 then writeln ('NELZE')
else
begin
vysledok := a div b;
writeln (vysledok);
end
end.

A Honza Matika , ty si spravil ten isty program ako ja len si tam zadal writeln co neni potrebne.Otazka je asi ci celociselne delenie nie je definovane iba ked sa deli 0...neviem kde by uz mohla byt chyba inde..navrhy ??

↑ allsucker:
Ten kód cos poslal v 15.52 je blbě, tu podmínku do něj dopsat klidně můžeš, ale ne tam kam jsi ji dal. Musí být v těle cyklu tak, aby se pro b=0 neprovedlo to dělení samotné. Takhle je to trochu s křížkem po funuse, když ti někdo zadá b=0, tak se dělení "provede" a teprve potom by se cyklus ukončil. Ale nevím proč tam cpát cyklus, v zadání nic takového není.

Ten kód z 15.26 se mi zdá v pořádku, akorát za předposledním ENDem by měl být středník, nevím jak se k tomu který kompilátor staví.

Problém bude podle všeho ve "skolskem systemu", tak jak je ten kód napsaný by měl jít v normálním překladači přeložit a program pracovat. Co hodnotí ten váš systém a jak, to můžu jen hádat.

↑ allsucker:
zdravím hele na jakou školu chodíš?

jestli na tu stejnou co ja tak sem to udělal takto a hodilo mi to 100%

program deleni;
var cislo,delitel:integer;
begin
    read(cislo);
    read(delitel);
            if delitel=0 then
                write('NELZE')
            else
                begin;
                write(cislo div delitel);
                end;
end.