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

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

10.05.2011, 08:21. Просмотров 7582. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2011, 08:21
Ответы с готовыми решениями:

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

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

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

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

Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа
7 Дано целое число N >0. Используя операции деления нацело и взятия остатка от деления, найти...

6
Puporev
Модератор
56855 / 43439 / 30034
Регистрация: 18.05.2008
Сообщений: 103,490
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
maxcab
0 / 0 / 0
Регистрация: 05.05.2011
Сообщений: 7
30.05.2011, 15:09  [ТС] 3
А можно тоже самое, только While и Repeat по отдельности, а не в одном коде?
0
Puporev
Модератор
56855 / 43439 / 30034
Регистрация: 18.05.2008
Сообщений: 103,490
30.05.2011, 15:35 4
А здесь в алгоритме используется только while, repeat используется для проверки правильности ввода.
А написать можно, пиши, кто не дает?
0
maxcab
0 / 0 / 0
Регистрация: 05.05.2011
Сообщений: 7
30.05.2011, 15:50  [ТС] 5
А там код тот же будет или по другому? Я просто убрал while, подставил repeat, но не работает.
0
Puporev
Модератор
56855 / 43439 / 30034
Регистрация: 18.05.2008
Сообщений: 103,490
30.05.2011, 16:09 6
Pascal
1
2
3
4
repeat
  chastnoe:=chastnoe+1;
  n:=n-k;
until n<k;
1
GrabAndRun
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
07.10.2015, 19:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2015, 19:28

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

Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа
Можете решить вот эти задачи.. Заранее спасибо!!:friends: 1) Дано целое число N(&gt;0). Используя...

Дано целое число N(>0).используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.
помогите, пожалуйста Дано целое число N(&gt;0).используя операции деления нацело и взятия остатка от...


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

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

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