Тип Integer

@xjmx · Регистрация: 02.06.2009

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

1:Даны целые положительные числа A,b,c.На прямоугольнике размера А*В размещено максимально возможное количество квадратов со стороной С(Без наложений).Найти количество квадратов,размещённых на прямоугольнике ,а также площадь не занятой части прямоугольника

2:Даны целые положительные числа A и В(А>В).На отрезке длины Аразмещено максимально возможное количество отрезков длины В(без наложений).Используя операцию деления нацело, найти количество отрезков В, размещённых на отрезке А.

помогите разобрать...

@Puporev · 06.06.2009, 17:10

2.
k:=a div b;

Добавлено через 2 минуты 0 секунд
1.
k1:=a div c;
k2:=b div c;
k:=k1*k2;
s:=a*b-k*c*c;

@xjmx · 06.06.2009, 18:40 **[ТС]**

первый получается как то так....посмотри

@Puporev · 06.06.2009, 18:43

Слушай, у тебя даже в названии темы написано Integer. С какого угару вдруг в программе все стало real? Ты хоть первые 5-6 страниц из учебника-то искури, не позорься.

@Delphin_KKC · 06.06.2009, 18:44

div целочисленный оператор. Или объяви a,b,c:integer или используй обычный слеш для деления.

@xjmx · 06.06.2009, 18:47 **[ТС]**

да он у меня так и стоял интеджер !ток когда у меня ошибку выдал вот я и мудрить начал!

Добавлено через 2 минуты 55 секунд
с интеджером ошибка Type mismatch((

@Delphin_KKC · 06.06.2009, 18:48

Для интеджеров в предпоследних двух writeln спецификатор поля только один нужно оставить (число после двоеточия).

@Puporev · 06.06.2009, 18:51

Где ошибка? В какой строке? Вывод напиши
writeln('k=',k); без нолей, это же целые числа!!!!

Добавлено через 1 минуту 11 секунд
Я не пойму, кончается учебный год, а знания как будто он еще не начинался.

@xjmx · 06.06.2009, 18:54 **[ТС]**

Да ты не горячись так на тупость мою! просто до тех пор как не стал курсовую писать этим не был заинтересован, а теперь решаю просто так чтоб понять на будущее!Самому трудновато и все же та же ошибка !

@Delphin_KKC · 06.06.2009, 18:57

Не по теме:

Puporev, у меня контрольные были в разы больше, чем у него курсовая :)

Добавлено через 1 минуту 30 секунд

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

Да ты не горячись так на тупость мою! просто до тех пор как не стал курсовую писать этим не был заинтересован, а теперь решаю просто так чтоб понять на будущее!Самому трудновато и все же та же ошибка !

Скинь исходник в текстовом виде. А то набирать всё это со скрина сильно некогда.

@xjmx · 06.06.2009, 18:57 **[ТС]**

а это не моя курсовая !это я так для себя !да и в чём тут прикол обсуждать ?!я понимаю выучили молодцы вам респект !

@Delphin_KKC · 06.06.2009, 18:59

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

а это не моя курсовая !это я так для себя !да и в чём тут прикол обсуждать ?!я понимаю выучили молодцы вам респект !

Не горячись. А лучше скинь исходник текстом сюда. Вставлю в компилятор - посмотрю чего там не так.

@xjmx · 06.06.2009, 19:00 **[ТС]**

ЛОВИ!

@Delphin_KKC · 06.06.2009, 19:03

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program int4;
var
a,b,c,k,k1,k2,s:integer;
begin
read(a,b,c);
k1:=a div c;
k2:=b div c;
k:=k1*k2;
s:=a*b-k*c*c;
 
writeln('k=',k);
writeln('s=',s);
writeln;
end.

Всё компилируется.
P.S. TMT Pascal Light

@xjmx · 06.06.2009, 19:08 **[ТС]**

ТОчно большое спс! и на будущее каждый изучает что ему в интерес ! и когда он это начнёт он решает сам. Пупорев же поможет а потом обосрёт чела !!!Большое спс вам ребят !

@Delphin_KKC · 06.06.2009, 19:14

Но div имеет один нюанс.
1 div 3 = 0
2 div 3 = 0
3 div 3 = 1
4 div 3 = 1
5 div 3 = 1
6 div 3 = 2
Потому для большей точности счёта вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program int4;
var
a,b,c:integer;
k,k1,k2,s:real;
begin
read(a,b,c);
k1:=a / c;
k2:=b / c;
k:=k1*k2;
s:=a*b-k*c*c;
 
writeln('k=',k:10:3);
writeln('s=',s:10:3);
writeln;
end.

Не по теме:

Удачи в изучении программирования.

@Puporev · 06.06.2009, 19:17

Потому для большей точности счёта вот:

Что Вы сочиняете? Ведь надо максимальное количество ЦЕЛЫХ деталей, а не их кусочков. И задачи конкретно на целочисленное деление, т.е. div mod.

@Delphin_KKC · 06.06.2009, 19:21

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

Что Вы сочиняете? Ведь надо максимальное количество ЦЕЛЫХ деталей, а не их кусочков. И задачи конкретно на целочисленное деление, т.е. div mod.

Как я понимаю - это была программа для первой задачи. Вот условие:

1:Даны целые положительные числа A,b,c.На прямоугольнике размера А*В размещено максимально возможное количество квадратов со стороной С(Без наложений).Найти количество квадратов,размещённых на прямоугольнике ,а также площадь не занятой части прямоугольника

A,b,c - целые. А где сказано что количество должно быть целым или, тем более, площадь незанятой части?

@xjmx · 06.06.2009, 19:23 **[ТС]**

Delphin_KKC Большое тебе спс ! дал многое понять !

@Puporev · 06.06.2009, 19:23

то количество должно быть целым

Извините, но нецелый квадрат, это и не квадрат вовсе.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@xjmx 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 12

	Тип Integer 06.06.2009, 01:17. Показов 6748. Ответов 25 Метки нет (Все метки) 1:Даны целые положительные числа A,b,c.На прямоугольнике размера А*В размещено максимально возможное количество квадратов со стороной С(Без наложений).Найти количество квадратов,размещённых на прямоугольнике ,а также площадь не занятой части прямоугольника 2:Даны целые положительные числа A и В(А>В).На отрезке длины Аразмещено максимально возможное количество отрезков длины В(без наложений).Используя операцию деления нацело, найти количество отрезков В, размещённых на отрезке А. помогите разобрать... 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.06.2009, 17:10
	2. k:=a div b; Добавлено через 2 минуты 0 секунд 1. k1:=a div c; k2:=b div c; k:=k1k2; s:=ab-kcc; 0

@xjmx 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 12
	06.06.2009, 18:40 [ТС]
	первый получается как то так....посмотри Миниатюры 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.06.2009, 18:43
	Слушай, у тебя даже в названии темы написано Integer. С какого угару вдруг в программе все стало real? Ты хоть первые 5-6 страниц из учебника-то искури, не позорься. 0

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	06.06.2009, 18:44
	div целочисленный оператор. Или объяви a,b,c:integer или используй обычный слеш для деления. 0

@xjmx 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 12
	06.06.2009, 18:47 [ТС]
	да он у меня так и стоял интеджер !ток когда у меня ошибку выдал вот я и мудрить начал! Добавлено через 2 минуты 55 секунд с интеджером ошибка Type mismatch(( 0

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	06.06.2009, 18:48
	Для интеджеров в предпоследних двух writeln спецификатор поля только один нужно оставить (число после двоеточия). 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.06.2009, 18:51
	Где ошибка? В какой строке? Вывод напиши writeln('k=',k); без нолей, это же целые числа!!!! Добавлено через 1 минуту 11 секунд Я не пойму, кончается учебный год, а знания как будто он еще не начинался. 0

@xjmx 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 12
	06.06.2009, 18:54 [ТС]
	Да ты не горячись так на тупость мою! просто до тех пор как не стал курсовую писать этим не был заинтересован, а теперь решаю просто так чтоб понять на будущее!Самому трудновато и все же та же ошибка ! 0

@xjmx 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 12
	06.06.2009, 18:57 [ТС]
	а это не моя курсовая !это я так для себя !да и в чём тут прикол обсуждать ?!я понимаю выучили молодцы вам респект ! 0

@xjmx 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 12
	06.06.2009, 19:08 [ТС]
	ТОчно большое спс! и на будущее каждый изучает что ему в интерес ! и когда он это начнёт он решает сам. Пупорев же поможет а потом обосрёт чела !!!Большое спс вам ребят ! 0

@xjmx 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 12
	06.06.2009, 19:23 [ТС]
	Delphin_KKC Большое тебе спс ! дал многое понять ! 0