Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2011, 17:02   #1
Andrey35
Пользователь
 
Аватар для Andrey35
 
Регистрация: 15.10.2011
Сообщений: 18
По умолчанию Частное и остаток от деления двух целых чисел.

Помогите составить программу на Паскале , определяющюу частное и остаток от деления двух целых чисел. Операции div и mod применять нельзя !

Извините , дополню - сделать два варианта с использованием цикла с предусловием и цикла с постусловием.
Мнения автора могут не совпадать с его точкой зрения.

Последний раз редактировалось Andrey35; 14.11.2011 в 17:20. Причина: Забыл кое-что.
Andrey35 вне форума Ответить с цитированием
Старый 14.11.2011, 17:05   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Код:
while  делимое >= делитель do begin
делимое:=делимое -делитель;
счетчик :=счетчик+1;
end;
writeln ('частное =',счетчик);
writeln('остаток=', делимое);
Код:
repeat
делимое:=делимое -делитель;
счетчик :=счетчик+1;
until делимое < делитель;
writeln ('частное =',счетчик);
writeln('остаток=', делимое);
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»

Последний раз редактировалось IT-man; 14.11.2011 в 17:29.
IT-man вне форума Ответить с цитированием
Старый 14.11.2011, 17:07   #3
Inv1s
Форумчанин
 
Аватар для Inv1s
 
Регистрация: 06.11.2011
Сообщений: 214
По умолчанию

Мне интересно как ты определишь остаток без div'a на Паскале, если я не ошибаюсь это аналог ( "%" в С++)
Помог, нажми на весы
html, js, php, С++, С#, OpenGl, DirectX, XNA, HLSL
Inv1s вне форума Ответить с цитированием
Старый 14.11.2011, 17:10   #4
Inv1s
Форумчанин
 
Аватар для Inv1s
 
Регистрация: 06.11.2011
Сообщений: 214
По умолчанию

долго соображал над алгоритмом
Помог, нажми на весы
html, js, php, С++, С#, OpenGl, DirectX, XNA, HLSL
Inv1s вне форума Ответить с цитированием
Старый 14.11.2011, 17:18   #5
Andrey35
Пользователь
 
Аватар для Andrey35
 
Регистрация: 15.10.2011
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Inv1s Посмотреть сообщение
Мне интересно как ты определишь остаток без div'a на Паскале, если я не ошибаюсь это аналог ( "%" в С++)
нам препод задал без div и mod
Мнения автора могут не совпадать с его точкой зрения.
Andrey35 вне форума Ответить с цитированием
Старый 14.11.2011, 17:26   #6
Inv1s
Форумчанин
 
Аватар для Inv1s
 
Регистрация: 06.11.2011
Сообщений: 214
По умолчанию

Я уже увидел алгоритм) не задумывался просто раньше как найти остаток, стало интерсно
Помог, нажми на весы
html, js, php, С++, С#, OpenGl, DirectX, XNA, HLSL
Inv1s вне форума Ответить с цитированием
Старый 14.11.2011, 17:27   #7
Andrey35
Пользователь
 
Аватар для Andrey35
 
Регистрация: 15.10.2011
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Inv1s Посмотреть сообщение
Я уже увидел алгоритм) не задумывался просто раньше как найти остаток, стало интерсно
слушай ты вообще в Паскале шариш ?
Мнения автора могут не совпадать с его точкой зрения.
Andrey35 вне форума Ответить с цитированием
Старый 14.11.2011, 17:29   #8
Inv1s
Форумчанин
 
Аватар для Inv1s
 
Регистрация: 06.11.2011
Сообщений: 214
По умолчанию

Цитата:
Сообщение от Andrey35 Посмотреть сообщение
слушай ты вообще в Паскале шариш ?
Неа) могу простенькое написать, типо сложить 2 числа и все)
Помог, нажми на весы
html, js, php, С++, С#, OpenGl, DirectX, XNA, HLSL
Inv1s вне форума Ответить с цитированием
Старый 14.11.2011, 17:31   #9
Andrey35
Пользователь
 
Аватар для Andrey35
 
Регистрация: 15.10.2011
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Inv1s Посмотреть сообщение
Неа) могу простенькое написать, типо сложить 2 числа и все)
я тоже...
но нам уже задают большие и я вообще дуб-дубом ...
Мнения автора могут не совпадать с его точкой зрения.
Andrey35 вне форума Ответить с цитированием
Старый 14.11.2011, 17:33   #10
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

[offtop] Может вам прекратить трепаться не по делу, а???? [/offtop]
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток Nipuh Паскаль, Turbo Pascal, PascalABC.NET 2 30.05.2011 13:52
MOD остаток от деления больших чисел Zibiv Общие вопросы Delphi 24 28.05.2011 23:14
определить остаток от деления чисел dimon-nicolayev Паскаль, Turbo Pascal, PascalABC.NET 2 11.04.2011 11:02
C: частное и остаток от деления двух полиномов xad_jek Помощь студентам 11 11.12.2010 16:43
Массивы, частное, остаток(исправить) Alter Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 24.05.2008 23:37