Matematické Fórum

ahoj ↑ richardd6:,

především - má-li se testovat dělitelnost čísel, musejí to být čísla celá, nikoliv reálná. Takže rozhodující část kódu:

var i, n, a k : Integer;

.......

write('zadej počet čísel: ');
readln(n);
write('zadej číslo a: ');
readln(a);
write('zadej číslo k: ');
readln(k);

for i:=1 to n do
begin
write('zadej '+IntToStr(i)'+'. číslo :');
readln(a);
if a/k=trunc(a/k) then writeln('číslo '+IntToStr(a)+' je dělitelné číslem '+IntToStr(k))
                          else writeln('číslo '+IntToStr(a)+' není dělitelné číslem '+IntToStr(k));
end;

↑ richardd6:

mají-li se opravdu načítat reálná čísla, pak ano.

↑ richardd6:


no, už tam toho moc nechybí. Standardním Pascalem už si nejsem moc jist, ale mělo by to fungovat takto:

Program Delitelnost
var i, n, a k : Integer;
begin
write('zadej počet čísel: ');
readln(n);
write('zadej číslo a: ');
readln(a);
write('zadej číslo k: ');
readln(k);
for i:=1 to n do
begin
write('zadej '+IntToStr(i)'+'. číslo :');
readln(a);
if a/k=trunc(a/k) then writeln('číslo '+IntToStr(a)+' je dělitelné číslem '+IntToStr(k))
                          else writeln('číslo '+IntToStr(a)+' není dělitelné číslem '+IntToStr(k));
end;
end.

Ale chtělo by to vyzkoušet - já už Pascal nemám kde pustit...

↑ richardd6:

for i:=1 to n do   je cyklus

a

if a/k=trunc(a/k) then
                          else

je větvení

vie mi niekto pomôcť to ukončiť,?:)

dakujem za pomoc :)
a ešte sa chcem opýtať na krokovaciu tabulku ako by mala vyzerať?

príklad na algoritmus vie niekto mi poradiť ako mám urobiť môj??

Proč si o tom něco nepřečteš? Očividně ti chybí úplné základy. Jsi si jistý že rozumíš vývojovým diagramům? Hledej na googlu vývojové diagramy programování a najdeš třeba toto:

http://programujte.com/clanek/200609290 … gramovani/

Máš tam obrázky s popiskem.