Файл: Целочисленная арифметика в языке программирования Паскаль Проанализируйте условия задач.pptx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 09.01.2024
Просмотров: 26
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
СОДЕРЖАНИЕ
writeln('введите трёхзначное число '); readln(a);
c2:=(a mod 100) div 10; {или c2:=(a div 10) mod 10;}
writeln('введите трёхзначное число '); readln(a); {375}
Составить программы для решения задач:
2. Найти цифры четырехзначного числа.
4. Дано четырёхзначное число. Найдите число, полученное при прочтении его цифр справа налево.
5. Определить, является ли счастливым шестизначное число, вводимое пользователем с клавиатуры.
Целочисленная арифметика
в языке
программирования
Паскаль
Проанализируйте условия задач
- Дано трёхзначное число. Найдите сумму его цифр.
- В трехзначном числе зачеркнули первую слева цифру и приписали её в конце. Найдите полученное число.
- Дано четырёхзначное число. Найдите число, полученное при прочтении его цифр справа налево.
Выделение цифр числа
| div | mod |
17 div 3=
5
17 mod 3=
2
17 div 17=
1
17 mod 17=
0
5 div 12=
0
5 mod 12=
2
1327 div 10 =
132
1327 mod 10=
7
1327 div 100 =
13
1327 mod 100=
27
1327 div 1000 =
1
1327 mod 1000=
327
| Отбрасывает одну последнюю цифру | |
| Отбрасывает две последние цифры | |
| Отбрасывает три последние цифры | |
| Выделяет последнюю цифру | |
| Выделяет две последние цифры | |
| Выделяет три последние цифры |
A mod 10
A div 10
A div 100
A div 1000
A mod 100
A mod 1000
- Ввод исходных данных.
- Выделение цифр числа.
- Сложение цифр числа.
- Вывод результата.
| Последняя цифра в десятичной записи целого А (например, 124 4) | |
| Цифра, стоящая в разряде десятков (например, 124 2) | |
| Цифра трехзначного числа, стоящая в разряде сотен (например, 124 1) |
124 mod 10=4
(124 mod 100) div 10=2
124 div 100=1
| Последняя цифра в десятичной записи целого А (например, 124 4) | |
| Цифра, стоящая в разряде десятков (например, 124 2) | |
| Цифра трехзначного числа, стоящая в разряде сотен (например, 124 1) |
A mod 10
(A mod 100) div 10
A div 100
var a,c1,c2,c3, s : integer;
begin
writeln('введите трёхзначное число '); readln(a);
c1:=a div 100;
c2:=(a mod 100) div 10; {или c2:=(a div 10) mod 10;}
c3:=a mod 10;
s := c1+c2+c3;
end.
- Ввод исходных данных.
- Выделение цифр числа.
- Сложение цифр числа.
- Вывод результата.
Тестирование
var a, b, s : integer;
begin
s:=0;
writeln('введите трёхзначное число '); readln(a); {375}
b:=a mod 10; {5}
s := s+b; {0+5=5}
a:=a div 10; {37}
b:=a mod 10; {7}
s := s+b; {5+7=12}
a:=a div 10; {3}
b:=a mod 10; {3}
s := s+b; {12+3=15}
a:=a div 10; {0}
end.
Универсальный способ
Сумма цифр числа
var s, a: integer;
begin
s:= 0;
readln (a);
while a <> 0 do begin
sum:= sum + a mod 10;
a:= a div 10;
end;
writeln (s)
end;
Составить программы для решения задач:
2. Найти цифры четырехзначного числа.
3. В трехзначном числе зачеркнули первую слева цифру и приписали её в конце. Найдите полученное число.
4. Дано четырёхзначное число. Найдите число, полученное при прочтении его цифр справа налево.
5. Определить, является ли счастливым шестизначное число, вводимое пользователем с клавиатуры.
5. (Счастливый номер) Определить, является ли счастливым шестизначное число, вводимое пользователем с клавиатуры.
Счастливым номером называют такое шестизначное число, в котором сумма его первых трех цифр равна сумме его последних трех цифр.