Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/89: Рейтинг темы: голосов - 89, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 05.05.2011
Сообщений: 7
1

Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления

10.05.2011, 08:21. Показов 17418. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите с решением
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n, k, chastnoe, ostatok:integer;
begin
Writeln('Введите N и K');
Read(n, k);
while n>=k do
begin
n:=-k;
chastnoe:=1;
ostatok:=n;
end;
writeln('Частное = ',chastnoe,' Остаток = ',ostatok);
end.
но он выдает ошибку, Runtime error
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
10.05.2011, 08:21
Ответы с готовыми решениями:

Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления
Реализовать данные задания с помощью циклов с предусловием или циклов с постусловием. Даны целые положительные числа N и K. Используя...

Используя только операции сложения и вычитания, найдите частное от деления нацело N на K, а также остаток
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найдите частное от деления нацело N на K, а также...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также...

6
Почетный модератор
 Аватар для Puporev
64306 / 47603 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
10.05.2011, 08:46 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n, k, chastnoe, ostatok:integer;
begin
repeat
Writeln('Введите целые положительные числа N и K');
Read(n, k);
until(n>0)and(k>0);
chastnoe:=0;
while n>=k do
 begin
  chastnoe:=chastnoe+1;
  n:=n-k;
 end;
ostatok:=n;
writeln('Частное = ',chastnoe,' Остаток = ',ostatok);
end.
1
0 / 0 / 0
Регистрация: 05.05.2011
Сообщений: 7
30.05.2011, 15:09  [ТС] 3
А можно тоже самое, только While и Repeat по отдельности, а не в одном коде?
0
Почетный модератор
 Аватар для Puporev
64306 / 47603 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
30.05.2011, 15:35 4
А здесь в алгоритме используется только while, repeat используется для проверки правильности ввода.
А написать можно, пиши, кто не дает?
0
0 / 0 / 0
Регистрация: 05.05.2011
Сообщений: 7
30.05.2011, 15:50  [ТС] 5
А там код тот же будет или по другому? Я просто убрал while, подставил repeat, но не работает.
0
Почетный модератор
 Аватар для Puporev
64306 / 47603 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
30.05.2011, 16:09 6
Pascal
1
2
3
4
repeat
  chastnoe:=chastnoe+1;
  n:=n-k;
until n<k;
1
0 / 0 / 1
Регистрация: 07.10.2015
Сообщений: 1
07.10.2015, 19:28 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот так через While!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program zadanie1_lab4;
  var N,K,H,O:integer;
  // N - Целое число №1
  // К - Целове число №2
  // H - Частное
  // О - Остаток
begin
H:=0;
Writeln('Введите 2 целых положительных числа:');
Read(N,K);
if (N>0) and (K>0) then // Проверка на положительность
  while N>=K do
  begin
  H:=H+1;
  N:=N-K;
  end;
O:=N;
writeln('Частное = ',H,' Остаток = ',O);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.10.2015, 19:28
Помогаю со студенческими работами здесь

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

Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления
Нужно решение задачи на языке С. Заранее благодарю))) Задача: Даны целые положительные числа N и K. Используя только операции сложения и...

Используя только операции сложения и вычитания, найти частное/остаток от деления нацело N на K (while)
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также ...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K
2) Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Неблокируемый стек в C++26: реализуем простой сборщик мусора
stackOverflow 02.03.2025
Многопоточные приложения требуют надежных и производительных структур данных, способных эффективно работать в условиях конкурентного доступа. Неблокируемые структуры данных представляют собой особый. . .
Шаблон REQ/REP в ZeroMQ: сверхбыстрый обмен сообщениями в C++ и Python
stackOverflow 02.03.2025
Построение высоконагруженных распределенных систем требует надежного и производительного механизма обмена сообщениями. ZeroMQ выделяется среди прочих решений своей невероятной скоростью работы и. . .
Нестандартные приемы работы с итераторами в C++
stackOverflow 02.03.2025
Итераторы - один из краеугольных камней C++, предоставляющий универсальный механизм обхода и манипуляции данными в контейнерах. Появившись как замена небезопасным указателям, они эволюционировали от. . .
Лексический анализ и регулярные выражения в C++26
stackOverflow 02.03.2025
Лексический анализ - ядро любого компилятора и инструмента обработки текста. Каждый программист сталкивается с задачами парсинга строк, обработки файлов конфигурации или анализа пользовательского. . .
Подробно о std::mdspan в C++23
stackOverflow 02.03.2025
Работа с многомерными массивами данных традиционно была одной из сложных задач в C++. Программистам приходилось создавать собственные абстракции или использовать сторонние библиотеки для эффективной. . .
Колмогоровская сложность в C++: Путь к совершенному коду
stackOverflow 02.03.2025
Абстрактная математическая теория Колмогорова стала мощным средством оценки и улучшения программного кода. Сложность алгоритма - не только в его вычислительной эффективности, но и в том, насколько. . .
Изменения в C# 14
stackOverflow 02.03.2025
Одно из самых значимых изменений в C# 14 - поддержка коллекционных выражений, которые позволяют создавать и инициализировать коллекции с помощью нового лаконичного синтаксиса. Это нововведение. . .
Разработка кроссплатформен­­­­ного мобильного приложения для iOS/Android на C++
bytestream 02.03.2025
C++ как язык программирования высокого уровня с прямым доступом к аппаратным ресурсам позволяет создавать приложения, работающие одинаково быстро как на iOS, так и на Android устройствах. Ни для кого. . .
Аутентификация/авторизация на Golang
bytestream 02.03.2025
Go предлагает множество возможностей для создания надежных систем аутентификации. Встроенные криптографические пакеты, высокая производительность и простота параллельной обработки запросов делают его. . .
Нововведения TypeScript 5.8
bytestream 02.03.2025
TypeScript 5. 8 приносит много возможностей и оптимизаций, которые существенно расширяют границы типобезопасного программирования на JavaScript. Эта версия включает ряд значительных улучшений в работе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru