Задача на оператор цикл!

@Stavar · Регистрация: 24.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте. Помогите пожалустааааа решить вот такую задачу:
найти частное от деления двух натуральных чисел.
Примечание: операции делениями не использовать.

@Puporev · 24.04.2009, 14:28

операции делениями не использовать.

Используй вычитание, то же деление. Пока можно вычитать из а b, вычитай и считай, как раз получится частное.

@Stavar · 24.04.2009, 14:34 **[ТС]**

Сообщение от Puporev

Используй вычитание, то же деление. Пока можно вычитать из а b, вычитай и считай, как раз получится частное.

А поподробней можно?? как это будет выглядить на языке паскаль???
п.с. а то я в этом деле не очень.....

@Puporev · 24.04.2009, 14:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b,c:integer;
begin
clrscr;
write('a=');readln(a);
repeat
write('b=');readln(b);
until b<=a;
c:=0;
while a>b do
  begin
   a:=a-b;
   c:=c+1;
  end;
write('Частное равно ',c);
readln
end.

@Stavar · 24.04.2009, 15:40 **[ТС]**

Сообщение от Puporev

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a,b,c:integer;
begin
clrscr;
write('a=');readln(a);
repeat
write('b=');readln(b);
until b<=a;
c:=0;
while a>b do
  begin
   a:=a-b;
   c:=c+1;
  end;
write('Частное равно ',c);
readln
end.

спасибо. Но clrscr, until мне еще не знакомы. С ними я не знаю как решить задачу.
А по другому можно решить????

@Puporev · 24.04.2009, 15:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a,b,c:integer;
begin
write('Введите делимое a=');readln(a);
write('Введите делитель b=');readln(b);{делитель меньше, это теперь на совести пользователя}
c:=0;
while a>=b do{здесь добавь знак =, я пропустил}
  begin
   a:=a-b;
   c:=c+1;
  end;
write('Частное равно ',c);
readln
end.

@Stavar · 24.04.2009, 17:05 **[ТС]**

Сообщение от Puporev

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a,b,c:integer;
begin
write('Введите делимое a=');readln(a);
write('Введите делитель b=');readln(b);{делитель меньше, это теперь на совести пользователя}
c:=0;
while a>=b do{здесь добавь знак =, я пропустил}
  begin
   a:=a-b;
   c:=c+1;
  end;
write('Частное равно ',c);
readln
end.

ммм...получается я сам ввожу частное, а нужно ведь что бы компьютер вывел......

@Puporev · 24.04.2009, 17:07

Где ты вводишь частное, покажи строчку. Ты хоть программу запускал? Ты лично вводил частное?

@Stavar · 24.04.2009, 17:53 **[ТС]**

Сообщение от Puporev

Где ты вводишь частное, покажи строчку. Ты хоть программу запускал? Ты лично вводил частное?

да сам проверял.
когда пишет введите число a, введите чилос b, а потом введите частное....
ведь так не должно быть....
а если последнее убрать то не получатся((((((

@Puporev · 24.04.2009, 18:02

а потом введите частное....

Покажи строку, где написано "введите". И какое частное ты лично вводил.

@Stavar · 24.04.2009, 18:30 **[ТС]**

Сообщение от Puporev

Покажи строку, где написано "введите". И какое частное ты лично вводил.

ааа все не увидел как правильно!!
но теперь пишет ошибку 8!
стринг констант ексенд лайн!!!!

@John_Pa9JIbHuK · 24.04.2009, 19:13

хахахаххаха

частое выводится в проге.. пользователь вводит а , б и до тех
пор пока а больше б от а отнимается б

Добавлено через 22 минуты 40 секунд
ты о чем все работает

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program fs;
                 var a,b,c:integer;
begin
write('Введите делимое a=');readln(a);
write('Введите делитель b=');readln(b);{делитель меньше, это теперь на совести пользователя}
c:=0;
while a>=b do{здесь добавь знак =, я пропустил}
  begin
   a:=a-b;
   c:=c+1;
  end;
write('Частное равно ',c);
readln;
end.

@Stavar · 25.04.2009, 16:25 **[ТС]**

Сообщение от John_Pa9JIbHuK

хахахаххаха

частое выводится в проге.. пользователь вводит а , б и до тех
пор пока а больше б от а отнимается б

Добавлено через 22 минуты 40 секунд
ты о чем все работает

Pascal
1
2
3
write('Частное равно ',c);
readln;
end.

вот после write он мне пишет ошибку которую я описал выше..(((((((((((((((((

@Puporev · 25.04.2009, 16:32

write('Частное равно ',c);
А ты точно поставил второй апостроф, после равно ' ?

@Stavar · 25.04.2009, 16:54 **[ТС]**

Сообщение от Puporev

write('Частное равно ',c);
А ты точно поставил второй апостроф, после равно ' ?

ну да.
writeln('Частное равно ',c');
так должно быть????

@Puporev · 25.04.2009, 16:55

Очки купи.

@John_Pa9JIbHuK · 25.04.2009, 17:04

Stavar, подучи паскаль немного!!!!!!!!!!!!

@Stavar · 25.04.2009, 17:08 **[ТС]**

аааа все разобрался!!!!!
Больщущие спасибо!!!!!!!!
Браво мастерам своего дела!!!!!!

Добавлено через 2 минуты 39 секунд

Сообщение от John_Pa9JIbHuK

Stavar, подучи паскаль немного!!!!!!!!!!!!

Легко сказать!!!!

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Stavar 0 / 0 / 0 Регистрация: 24.04.2009 Сообщений: 21

	Задача на оператор цикл! 24.04.2009, 14:03. Показов 1299. Ответов 17 Метки нет (Все метки) Здравствуйте. Помогите пожалустааааа решить вот такую задачу: найти частное от деления двух натуральных чисел. Примечание: операции делениями не использовать. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.04.2009, 17:07
	Где ты вводишь частное, покажи строчку. Ты хоть программу запускал? Ты лично вводил частное? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	25.04.2009, 16:32
	write('Частное равно ',c); А ты точно поставил второй апостроф, после равно ' ? 1

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	25.04.2009, 16:55
	Очки купи. 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	25.04.2009, 17:04
	Stavar, подучи паскаль немного!!!!!!!!!!!! 0