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

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

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

Помогите с решением
Даны целые положительные числа 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
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2011, 08:21
Ответы с готовыми решениями:

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

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

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

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

6
Модератор
62253 / 46536 / 32083
Регистрация: 18.05.2008
Сообщений: 112,506
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
Модератор
62253 / 46536 / 32083
Регистрация: 18.05.2008
Сообщений: 112,506
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
Модератор
62253 / 46536 / 32083
Регистрация: 18.05.2008
Сообщений: 112,506
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2015, 19:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.