Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.61/33: Рейтинг темы: голосов - 33, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12

Тип Integer

06.06.2009, 01:17. Показов 6717. Ответов 25
Метки нет (Все метки)

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

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

помогите разобрать...
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.06.2009, 01:17
Ответы с готовыми решениями:

Дано описание массива, у которого индексы имеют ограниченный тип над integer, а тип элемента – integer или real
Дано описание массива, у которого индексы имеют ограниченный тип над integer, а тип элемента – integer или real. Выведите на экран, сколько...

Program1.pas(20) : Нельзя преобразовать тип IEnumerable<integer> к integer
выдает ошибку Program1.pas(20) : Нельзя преобразовать тип IEnumerable&lt;integer&gt; к integer пробовал делать real итд не помогло program...

Нельзя преобразовать тип function:integer к integer
Есть такой кусок кода, не могу сделать вот эту операцию... work:=work+a; function work (a:mas;k:byte) : integer; const max=50; ...

25
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 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:=k1*k2;
s:=a*b-k*c*c;
0
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12
06.06.2009, 18:40  [ТС]
первый получается как то так....посмотри
Миниатюры
Тип Integer  
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
06.06.2009, 18:43
Слушай, у тебя даже в названии темы написано Integer. С какого угару вдруг в программе все стало real? Ты хоть первые 5-6 страниц из учебника-то искури, не позорься.
0
UNIX-way
 Аватар для Delphin_KKC
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
06.06.2009, 18:44
div целочисленный оператор. Или объяви a,b,c:integer или используй обычный слеш для деления.
0
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12
06.06.2009, 18:47  [ТС]
да он у меня так и стоял интеджер !ток когда у меня ошибку выдал вот я и мудрить начал!

Добавлено через 2 минуты 55 секунд
с интеджером ошибка Type mismatch((
0
UNIX-way
 Аватар для Delphin_KKC
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
06.06.2009, 18:48
Для интеджеров в предпоследних двух writeln спецификатор поля только один нужно оставить (число после двоеточия).
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
06.06.2009, 18:51
Где ошибка? В какой строке? Вывод напиши
writeln('k=',k); без нолей, это же целые числа!!!!

Добавлено через 1 минуту 11 секунд
Я не пойму, кончается учебный год, а знания как будто он еще не начинался.
0
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12
06.06.2009, 18:54  [ТС]
Да ты не горячись так на тупость мою! просто до тех пор как не стал курсовую писать этим не был заинтересован, а теперь решаю просто так чтоб понять на будущее!Самому трудновато и все же та же ошибка !
0
UNIX-way
 Аватар для Delphin_KKC
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
06.06.2009, 18:57

Не по теме:

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



Добавлено через 1 минуту 30 секунд
Цитата Сообщение от xjmx Посмотреть сообщение
Да ты не горячись так на тупость мою! просто до тех пор как не стал курсовую писать этим не был заинтересован, а теперь решаю просто так чтоб понять на будущее!Самому трудновато и все же та же ошибка !
Скинь исходник в текстовом виде. А то набирать всё это со скрина сильно некогда.
0
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12
06.06.2009, 18:57  [ТС]
а это не моя курсовая !это я так для себя !да и в чём тут прикол обсуждать ?!я понимаю выучили молодцы вам респект !
0
UNIX-way
 Аватар для Delphin_KKC
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
06.06.2009, 18:59
Цитата Сообщение от xjmx Посмотреть сообщение
а это не моя курсовая !это я так для себя !да и в чём тут прикол обсуждать ?!я понимаю выучили молодцы вам респект !
Не горячись. А лучше скинь исходник текстом сюда. Вставлю в компилятор - посмотрю чего там не так.
0
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12
06.06.2009, 19:00  [ТС]
ЛОВИ!
Вложения
Тип файла: rar 1.rar (198 байт, 22 просмотров)
0
UNIX-way
 Аватар для Delphin_KKC
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
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
0
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12
06.06.2009, 19:08  [ТС]
ТОчно большое спс! и на будущее каждый изучает что ему в интерес ! и когда он это начнёт он решает сам. Пупорев же поможет а потом обосрёт чела !!!Большое спс вам ребят !
0
UNIX-way
 Аватар для Delphin_KKC
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
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.

Не по теме:

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

0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
06.06.2009, 19:17
Потому для большей точности счёта вот:
Что Вы сочиняете? Ведь надо максимальное количество ЦЕЛЫХ деталей, а не их кусочков. И задачи конкретно на целочисленное деление, т.е. div mod.
0
UNIX-way
 Аватар для Delphin_KKC
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
06.06.2009, 19:21
Цитата Сообщение от Puporev Посмотреть сообщение
Что Вы сочиняете? Ведь надо максимальное количество ЦЕЛЫХ деталей, а не их кусочков. И задачи конкретно на целочисленное деление, т.е. div mod.
Как я понимаю - это была программа для первой задачи. Вот условие:
1:Даны целые положительные числа A,b,c.На прямоугольнике размера А*В размещено максимально возможное количество квадратов со стороной С(Без наложений).Найти количество квадратов,размещённых на прямоугольнике ,а также площадь не занятой части прямоугольника
A,b,c - целые. А где сказано что количество должно быть целым или, тем более, площадь незанятой части?
0
0 / 0 / 0
Регистрация: 02.06.2009
Сообщений: 12
06.06.2009, 19:23  [ТС]
Delphin_KKC Большое тебе спс ! дал многое понять !
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
06.06.2009, 19:23
то количество должно быть целым
Извините, но нецелый квадрат, это и не квадрат вовсе.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.06.2009, 19:23
Помогаю со студенческими работами здесь

Нельзя преобразовать тип array [1..10] of integer к array [1..10] of integer
Ошибка в 23 строке (23) : Нельзя преобразовать тип array of integer к array of integer program pr412; uses crt; type mas=...

Нельзя преобразовать тип real к integer
Выдает ошибку, нельзя преобразовать тип real к integer, только я не пойму где ошибка function f(x:real):real; var s:real; begin if...

Работа с большими числами (не влезающими в тип integer)
Помогите, пожалуйста! как в паскале сложить/вычесть/найти целую часть от деления больших чисел? например, найти целую часть от деления...

Типы данных Program1.pas(11) : Нельзя преобразовать тип real к integer
var a,b:real; begin readln(a,b); while (a&gt;b) do begin

Программа не работает. Ошибка - Нельзя преобразовать тип IntegerField к integer. Как исправить?
uses FormsABC; var a,b,sum,prod: IntegerField; d: Button; procedure MyClick; begin prod.Value := a.Value *...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru