Как составить integer 4 в паскале

Совсем недавно мы закончили разбор первого раздела сборника «1000 задач по программированию» — раздела Begin. Но на этом мы не останавливаемся, и прямо сейчас начинаем разбирать новый раздел — раздел Integer. (Думаю, вы уже догадались, что все переменные, представленные в следующих задач Integer1-10 — целые числа.)

В  Integer  основной упор будет сделан на div и mod.

Integer1. Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см).

Program Integer_1;

var l, k: integer;

begin
  write ('Введите значение L:');
  readln (l);
  k := l div 100;
  write ('Количество полных метров: ', k,'.');
end.

Integer2. Дана масса M в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг).

Program Integer_2;

var M, k: integer;

begin
  write ('Введите значение M: ');
  readln (M);
  k := M div 1000;
  write ('Количество полных тонн: ', k,'.');
end.

Integer3°. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).

Program Integer_3;

var a, k: integer;

begin
  write ('Введите размер файла: ');
  readln (a);
  k := a div 1024;
  write ('Количество полных килобайтов: ', k,'.');
end.

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

Program Integer_4;

var a, b, k: integer;

begin
  write ('Введите a и b: ');
  readln (a, b);
  k := a div b;
  write ('Количество отрезков B, размещенных на отрезке A: ', k);
end.

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

Program Integer_5;

var a, b, k: integer;

begin
  write ('Введите a и b: ');
  readln (a, b);
  k := a mod b;
  write ('Длина незанятой части отрезка: ', k);
end.

Весьма вероятно, что условия следующих задач покажутся вам знакомыми, что ничуть не странно, ведь в одном из уроков мы уже приводили решение задачи, подобной данным.

Integer6. Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). Для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления.

Program Integer_6;

var chislo, desyatki, edinizi: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  desyatki := chislo div 10;
  writeln (desyatki);
  edinizi := chislo mod 10;
  writeln (edinizi);
end.

Integer7. Дано двузначное число. Найти сумму и произведение его цифр.

Program Integer_7;

var chislo, desyatki, edinizi, summa, proizv: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  desyatki := chislo div 10;
  edinizi := chislo mod 10;
  summa := desyatki + edinizi;
  proizv := desyatki * edinizi;
  writeln ('Сумма цифр числа: ', summa);
  writeln('Произведение цифр числа: ', proizv);
end.

Integer8°. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

Program Integer_8;

var chislo, desyatki, edinizi: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  desyatki := chislo div 10;
  edinizi := chislo mod 10;
  chislo := edinizi * 10 + desyatki;
  writeln ('Полученное число: ', chislo);
end.

Integer9. Дано трехзначное число. Используя одну операцию деления нацело, вывести первую цифру данного числа (сотни).

Program Integer_9;

var chislo, sotni: integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni := chislo div 100;
  writeln (sotni);
end.

Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки).

Program Integer_10;

var chislo, desyatki, edinizi: integer;

begin
write ('Введите число: ');
readln (chislo);
edinizi := chislo mod 10;
writeln (edinizi);
desyatki := chislo mod 100 div 10;
writeln (desyatki);
end.

Согласитесь, что это были не очень сложные задачи, поэтому никаких объяснений и блок-схем не требуется. Если же у вас возникли какие-либо проблемы, то не стесняйтесь и пишите все свои вопросы в комментарии под этой статьей. Ну, а если вам просто понравилась эта статья, то обязательно кликайте по кнопочкам, которые расположены ниже.  🙂

│




Deutsch (de) │
English (en) │



suomi (fi) │
français (fr) │


italiano (it) │







русский (ru) │

The data type integer is a built-in data type of the programming language Pascal.
It can store a subset of ℤ, the set of whole numbers.

integer literal

basics

An integer is specified as a non-empty series of consecutive Western-Arabic digits.

The value of 1234 is [math]displaystyle{ 1 times 10^3 + 2 times 10^2 + 3 times 10^1 + 4 times 10^0 }[/math].
The integer may be preceded by a sign, + or −, even if mathematically speaking the value is signless (this concerns the value zero).

+0   { ✔ syntactically correct }

If no sign is specified, a positive sign is presumed.

In Free Pascal, you can use the underscore to group digits if {$modeSwitch underscoreIsSeparator+} (as of 2022 only available in trunk).

varying base

To change the base in Extended Pascal you prefix the integer literal with a base specification:

This represents the value [math]displaystyle{ 1 times 8^3 + 2 times 8^2 + 3 times 8^1 + 4 times 8^0 }[/math].
The base can be any value between 2 and 36 (inclusive) and can only be specified to a decimal base.
A base specification possibly extends or restricts the set of allowed digits to those in the set of 0 to base − 1 from below table:

As of version 3.2.0, the FPC intends to ({$mode extendedPascal}), but does not yet support a generic base-specification format.
Instead only the following bases are recognized:

characteristics

It is guaranteed that all arithmetic operations in the range −maxInt..+maxInt work accurately.
An integer variable may possibly store values beyond this range, but once you leave this range it is not guaranteed anymore that arithmetic operations work correctly.
Textbook example:

program lordOverflowStrikesAgain(output);
	{$overflowChecks on}
	var
		x: integer;
	begin
		x := -maxInt;
		x := pred(x); { If this doesn’t cause an error, `-maxInt - 1` storable. }
		writeLn(abs(x));
	end.

Depending on the processor used, this may print:

A quite unexpected result since abs should in principle return a non-negative value, yet expectable since pred(−maxInt) is evidently not in the −maxInt..+maxInt range.

application

Integer is the data of choice if arithmetic results have to be precise.
The data type real may provide “reasonable approximations”, but operations on integer have to be exact (only guaranteed as long as it is in the −maxInt..+maxInt range).
Generally speaking integer operations are also faster than if done in the domain of real.

The operators div and mod only work on integer values (the math unit provides the fMod function and overloads mod).

Free Pascal deviations

The FPC does not have a data type integer but a host of integer data types.
An integer literal such as 123 possesses the data type of closest fitting range from the following table.

The signed ranges are preferred (i. e. as in the top/down order in the table), thus 123 possesses the data type shortInt even though it could be a byte, too.

As of version 3.2.0, the data type integer is simply an alias depending on the currently selected compiler compatibility mode.
It does not depend on the CPU type, therefore it is quite possible that the CPU could in fact deal with integers having an even larger magnitude than integer provides.

Depending on the platform’s arithmetic logic unit’s word size (ALU) following aliases are available.

type
	{$ifDef CPU16} ALUSInt = smallInt; ALUUInt = word;  {$endIf}
	{$ifDef CPU32} ALUSInt = longInt;  ALUUInt = dWord; {$endIf}
	{$ifDef CPU64} ALUSInt = int64;    ALUUInt = qWord; {$endIf}

Although it is frequently the case that the ALU’s word size also coincides with the size of a pointer, it is not guaranteed (e. g. the x32-ABI uses 64‑bit ALU, but only 32‑bit pointers).
Therefore if an integer value is meant to be typecasted to a pointer, it recommended to use ptrUInt.
Note, the data type nativeInt is in fact an alias for ptrInt and not related to ALUSInt.

see also

• real, the data type used to store/process (a subset of) rational numbers
• GNU Multiple Precision Arithmetic Library, precise mathematical operations on arbitrarily large values [if 8-Byte int64/qWord are not enough]

Тип INTEGER (целый). Этот тип представляет множество целых чисел диапазона от -32768 до 32767. В памяти ЭВМ  под целое число отводится два байта (16 бит).

Наибольшему значению целого числа 32767 соответствует стандартный идентификатор MAXINT, а наименьшему – выpaжeниe NOT(MAXINT)=-(MAXINT+1), или число -32768. Операции, проводимые над целыми числами: «+» сложение, «-» вычитание, «*» умножение, DIV – целочисленное деление, MOD – остаток от целочисленного деления, AND – арифметическое ‘И’, OR – арифметическое ‘ИЛИ’, NOT – арифметическое отрицание, XOR – исключающая дизъюнкция. Примеры использования этих операций приведены в таблице1.

Любая из этих операций выполнима над двумя целыми числами, если абсолютная величина результата не превышает MAXINT (для умножения). В противном случае возникает прерывание программы, связанное с переполнением.
Например: требуется вычислить выражение 1000 * 4000 div 2000. Поскольку операции умножения и деления имеют один приоритет и выполняются слева направо в порядке записи арифметического выражения, то при умножении произойдет прерывание, связанное с переполнением. Выход из этой ситуации возможен при изменении порядка выполнения операций умножения и деления, для чего используются круглые скобки ==> 1000 * (4000 div 2000).
Предусмотрено представление целых чисел в шестнадцатеричной системе счисления. Форма записи таких чисел $Х, где X – целая константа, а символ $ – признак. Примеры: $57, $1FF. Напомним, что в шестнадцатеричной системе счисления цифры 10, 11, 12, 13, 14 и 15 заменяются латинскими буквами А, В, С, D, Е и F соответственно.
Кроме типа INTEGER в языке Pascal предусмотрены и другие целые типы данных BYTE, SHORTINT, WORD и LONGINT (таблица 2). Все эти типы определены на множестве целых чисел, характеризуются одним набором арифметических операций и отличаются диапазоном значений и объемом занимаемой памяти.

Предыдущая статья: Алфавит языка Pascal.
Оглавление: Лекции по Pascal.
Следующая статья: Тип данных Real.