Использованы материалы "Электронного приложения к учебному пособию «Информатика» "
Embedded Files
Реализация алгоритмов работы с целочисленными данными
Целочисленный тип данных
Целочисленный тип данных
Часто при решении задач нужно работать с целыми числами. Для этого в Pascal используется тип данных integer.
С помощью переменных этого типа можно задавать целые числа из диапазона от –2147483648 до 2147483647. Для указанного типа данных определены следующие операции:
+ (сложение) +
– (вычитание) -
∙ (умножение) *
целочисленное деление div
нахождение остатка mod
Для целочисленных данных не определена операция деления, как для действительных чисел. При попытке использовать операцию деления будет выдана ошибка
Пример 1
Пример 1
Integer1°. Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см).
uses PT4;
var
l: integer;
begin
Task('Integer1');
Read(l);
l := l div 100;
writeln(l);
end.
Упражнения
Упражнения
1. В представленной программе перепутаны строки.
1. В представленной программе перепутаны строки.
Скопируйте текст программы в среду Pascal и восстановите решение текст программы для решения задачи Integer6 электронного задачника.
Integer6°. Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). Для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления.
Расставьте комментарии к программе
//описание величин
//выделение разряда единиц
//выделение разряда десятков
//ввод данных
//вывод результата
//подключение библиотеки электронного задачника
//загрузка задания
Task('Integer6');
var
d := l div 10;
begin
e := l mod 10;
end.
l, e, d: integer;
Writeln(d, e);
Read(l);
uses PT4;
2.
2.
Измените текст программы Integer6 так, чтобы получилось решение задач Integer7 и Integer8.
Integer7°. Дано двузначное число. Найти сумму и произведение его цифр.
Integer8°. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.
3. При решении задачи Integer10 в программе были допущены ошибки. Восстановите решение задачи.
3. При решении задачи Integer10 в программе были допущены ошибки. Восстановите решение задачи.
Integer10°. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки).
Расставьте комментарии к программе
//описание величин
//выделение разряда единиц
//выделение разряда десятков
//ввод данных
//вывод результата
//подключение библиотеки электронного задачника
//загрузка задания
ues PT4;
var
bein
Tas('Integer10')
Rad(l);
d := l dv 10 mod 10;
e := l md 10;
Writn(e, d)
e.
4.
4.
Измените текст программы для решения задачи Integer10 так, чтобы получилось решение задач Integer11 и Integer12.
Integer11°. Дано трехзначное число. Найти сумму и произведение его цифр.
Integer12°. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.
Пример 2
Пример 2
Integer28°.
Дни недели пронумерованы следующим образом:
1 — понедельник, 2 — вторник, …, 6 — суббота, 7 — воскресенье.
Дано целое число K, лежащее в диапазоне 1–365, и целое число N, лежащее в диапазоне 1–7.
Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было днем недели с номером N.
uses PT4;
var
k, n: integer;
begin
Task('Integer28');
//Вводим значения k и n
read(k, n);
{Для определения для недели находим остаток от деления на 7. Так как начало недели
сдвинуто на число дней, равное n-1, то делить на 7 будем число n-1. (Понедельник
пронумерован числом 1. Если начало года пришлось на понедельник, то сдвиг равен 0.
Если начало года пришлось на вторник, второй день недели, то сдвиг равен 1. И т. д.)}
k := (k + n - 1) mod 7;
{Если в результате нахождения остатка от деления получим 0, то к результату надо
прибавить 7 (воскресенье - седьмой день недели)}
if k = 0 then k := 7;
write(k);
end.
5. Исправьте ошибки в основных командах и восстановите порядок строк в тексте программы для решения задачи Integer24.
5. Исправьте ошибки в основных командах и восстановите порядок строк в тексте программы для решения задачи Integer24.
Integer24°. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было понедельником.
k := k mod 7;
vr
uss PT4;
begn
Task('Integer24');
k: intger;
end.
wite(k);
read(k);
6.
6.
Integer25°. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было четвергом.
Integer26°. Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, …, 6 — суббота, 7 — воскресенье. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было вторником.
Google Sites
Report abuse