|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.04.2016, 21:04 | #1 |
Новичок
Джуниор
Регистрация: 13.04.2016
Сообщений: 3
|
Нахождение НОК
Если число K>=l то пишет, что попытка деления на нуль, если l>k то никаких ошибок нет. Прошу помочь, в заранее
спасибо. Только познаю азы ) program nok; var i,k,j,l,s,max:longint; begin writeln ('введите число 1'); readln (k); writeln ('введите число 2'); readln (l); s:=k*l; if k>=l then k:=max else max:=l; i:=max; j:=k; j:=l; begin if ((i mod k =0) and (i mod l =0)) then writeln ('nok=',i) else writeln (s); if k=l then writeln (j); end; end. |
13.04.2016, 21:14 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
if k>=l then k:=max else max:=l;
наверно здесь надо немного не так. точнее, не наверно, а наверняка. а поскольку изначально max не задано, то оно будет =0. значит k:=0 и далее получим (i mod k{=0}) деление на ноль!!!
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 13.04.2016 в 21:19. |
13.04.2016, 21:22 | #3 |
Новичок
Джуниор
Регистрация: 13.04.2016
Сообщений: 3
|
так я же написал, что если K>=l то оно и есть макс, или l>=k то l это макс
|
13.04.2016, 21:25 | #4 |
Новичок
Джуниор
Регистрация: 13.04.2016
Сообщений: 3
|
если я ошибаюсь, то как написать что max может принимать любые значения
|
13.04.2016, 21:46 | #5 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
if k>=l then
максимальный это будет k // КАК это записать кодом? ЧЕМУ будет равен максимальный ? else максимальный это будет l // и как это записать кодом ?
программа — запись алгоритма на языке понятном транслятору
|
14.04.2016, 08:05 | #6 |
Форумчанин
Регистрация: 25.01.2015
Сообщений: 472
|
Я дико извиняюсь, но НОК вычисляется иначе.
НОК вычисляют одним из способов 1. Разложение на простые множители - как в школе. 2. Через НОД, т.к. вычисление НОД легко формализуется. НОК НОД Алгоритм Евклида Бинарный алгоритм вычисления НОД |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа в qt "Нахождение НОД, НОК" | kartofaan | Общие вопросы C/C++ | 0 | 09.01.2016 16:26 |
нахождение НОД и НОК | Spanchik | Общие вопросы Delphi | 5 | 14.12.2014 20:48 |
с++ нок | yeah enko | Помощь студентам | 7 | 09.11.2012 15:10 |
нахождение НОК,немного недоработанная прога | llatpoh | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 06.11.2011 22:25 |
Нахождение НОК и НОД на ассемблере | Ханако Сейсин | Помощь студентам | 2 | 09.11.2010 17:25 |