Нуждая се от голяма помощ за задача на Pascal

[Vili4ka]

От: Нуждая се от голяма помощ за задача на Pascal

Трябва ти цикъл да върти променлива от 0 до N - примерно X. За нея да се проверява резултатът от делене с остатък на 6 дали е 0 или не. Ако резултатът е 0, друга променлива (с която броиш кратните на 6 - примерно Y) да се увеличава с 1. От тук да се извеждат съответното X и броя - Y. Ако резултатът е различен от 0, да минава нататък, като X се увеличава с 1 (ако в условието говорим за цели числа де) , докато X = N.

Горе-долу така си го представям аз.

П.С. Аз докато философски се кандидатирам за последващи майтапи, тук вече имаме и код

[sparkybg]

От: Нуждая се от голяма помощ за задача на Pascal

Ама, здравата сте се хванали за тоя остатък от делене и цикъл от 0 до N, увеличаващ се с 1. Защо са ви?

Втори жокер - броя на числата от 0 до N, кратни на 6, е равен на цялата част от (N/6).

[p-pleven]

От: Нуждая се от голяма помощ за задача на Pascal

Кода е копи-пасте от "миши програмист", дето е забравил синтаксиса на паскалЪт... Което е нож с 2 остриета, понеже може да пейстне кофти код... Не е ли така...

Ама, здравата сте се хванали за тоя остатък от делене и цикъл от 0 до N, увеличаващ се с 1. Защо са ви?

Втори жокер - броя на числата от 0 до N, кратни на 6, е равен на цялата част от (N/6).

Броят - да, но кои са числата при Н->[безкрайност]?
В копи-пасте кодЪт ненужното броене на броя е със зелено...

[Vili4ka]

От: Нуждая се от голяма помощ за задача на Pascal

Аре да се похилиме, бе , Спарки, кога сме били 8-ми клас знаеш ли И кога сме учили математика и Pascal

[sparkybg]

От: Нуждая се от голяма помощ за задача на Pascal

Броят - да, но кои са числата при Н->[безкрайност]?

Всяко число, започвайки от 6, през интервал 6. И така, до безкрайност.
При това условието на задата е N да се въведе. А не можеш да въведеш безкрайност. Тоест можеш, ама това е друга тема.

[p-pleven]

От: Нуждая се от голяма помощ за задача на Pascal

Някой казал ли е, че Н е integer? поздрави!

[sparkybg]

От: Нуждая се от голяма помощ за задача на Pascal

Някой казал ли е, че Н е integer? поздрави!

Никой не е казал, и какво от това? Сложи го double, примерно. И?

...и въведи безкрайност от клавиатурата, на Pascal.

[p-pleven]

От: Нуждая се от голяма помощ за задача на Pascal

Какво е "double"?
[безкрайност] не случайно е в тези скоби, което като смисъл означава достатъчно голямо число

[sparkybg]

От: Нуждая се от голяма помощ за задача на Pascal

Тип променлива за съхранение на числа с плаваща запетая. С двойна точност/дължина. Обикновено - 8 байта. Не помня какво и беше името в Pascal, но "double" е стандартното и наименование. "Single" е същото, но с дължина 4 байта.

ПП: В Pascal се казва "Real".

ППП: А и в Turbo Pascal си има "single", "double" и "extended". "real" отговаря на "double", в общия случай.

[Ясен]

От: Нуждая се от голяма помощ за задача на Pascal

Такаааа. Ако още някой напише готово решение на нечие домашно, ще го банна за 1 седмица, за подриване на образователната система.

[p-pleven]

От: Нуждая се от голяма помощ за задача на Pascal

Какво правим с 0/6? 0/6=0 ... при първоначално И=6?
Числото 0 е кратно на всяко естествено число

Добре, а в интервала от М до Н как да определим числата, кратни на 6.... Тука е заигравката с деленето на 6 и остатък... Кода става универсален...

[Деян Давидов]

От: Нуждая се от голяма помощ за задача на Pascal

Знаех си, че така ще реагирате. Питахте до къде съм стигнал, ами не съм почвал. Изобщо незнам какво трябва да се прави, отидох взех си лисчето и ми казаха "Довиждане, за утре е!"

[sparkybg]

От: Нуждая се от голяма помощ за задача на Pascal

Какво правим с 0/6? 0/6=0 ... при първоначално И=6?
Числото 0 е кратно на всяко естествено число

Добре, а в интервала от М до Н как да определим числата, кратни на 6.... Тука е заигравката с деленето на 6 и остатък... Кода става универсален...

Имаш конкретна задача, с конкретно решение. Универсалния код е вече за друга задача, с друго условие.

Първото кратно число в интервала М..N е trunc(М/6)*6 или (trunc(M/6)+1)*6, което попада в интервала.

За нулата заместваш I:=6 с I:=0; ако ти е кеф.

А за M..N заместваш I:=0 с I:=trunc(М/6)*6. и добавяш един if.

Няма никакъв смисъл да въртиш цикъл през 1, щом ти трябва през 6.

Ясене, да имаш да вземаш! Аз не беше! Още няколко поста преди мене го постнаха, и то копирано от интернет. Мойто е само оптимизация на онова. Ако не беше това случая, щях да гледам шоу до последно.

[sparkybg]

От: Нуждая се от голяма помощ за задача на Pascal

[безкрайност] не случайно е в тези скоби, което като смисъл означава достатъчно голямо число

"безкрайност" значи безкрайно голямо число, а не "достатъчно" голямо число.

[Ясен]

От: Нуждая се от голяма помощ за задача на Pascal

Ами, да си копира от Интернет.