Лабораторная работа №1 Программирование задач обработки данных простых стандартных типов
Содержание
Теоретические сведения
Простые типы данных в языке Turbo Delphi: порядковые (целые, символьный, логический, перечисляемый, диапазон) и вещественный. Данный пример демонстрирует использование целых типов данных в программах.
Пример
Дано натуральное число N. Определить количество цифр в нем и вывести каждую цифру.
Рrogram prim1; Var m,n:LongInt; {n-число, m-вспомогательная переменная} k:Integer; { k-счетчик количества цифр} begin Write('Введите целое число: '); ReadLn(n); m:=n; k:=0; WriteLn('Выводим цифры, начиная с младшего разряда'); While m<>0 do {пока m не станет равно 0 уменьшаем его - делим на 10} begin {добавляем единицу в счетчик и выводим остаток от деления на 10} k:=k+1; WriteLn(m mod 10); {вывод очередной цифры} m:=m div 10; {уменьшаем число - отбрасываем последнюю цифру} end; WriteLn('Число ',n,' содержит ',k,'цифр'); ReadLn; end.
ВМК РУЛИТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Задания
Составьте блок-схемы и программы к задачам своего варианта.
Вариант 1.
1.Дано натуральное число. Найти сумму цифр этого числа. Определить: верно ли, что число начинается и заканчивается одной и той же цифрой.
2.Найти все трехзначные натуральные числа, такие, что сумма цифр равна А, а само число делится на В без остатка. (А и В вводятся с клавиатуры).
Вариант 2.
1. Дано натуральное число. Найти произведение цифр этого числа. Определить: верно ли, что в этом числе нет цифры А. (А ввести с клавиатуры).
2. Из данного натурального числа удалить все цифры А (А вводится с клавиатуры).
Вариант 3.
1. Дано натуральное число. Определить количество цифр данного числа. Верно ли, что данное число заканчивается на нечетную цифру?
2. Найти все симметричные натуральные числа из промежутка от А до В.
Вариант 4.
1. Дано натуральное число. Определить количество четных цифр данного числа. Верно ли, что данная цифра А встречается в числе более двух раз. (А ввести с клавиатуры)
2.Найти количество различных цифр в данном натуральном числе. ВМК- РУЛИТ!!!!!!!!!1
Вариант 5.
1. Дано натуральное число. Найти первую и последнюю цифры данного числа. Верно ли, что сумма цифр данного числа равна А. (А ввести с клавиатуры)
2. Дано натуральное число. Приписать к нему такое же число.Т.е. было 231, стало - 231231. 3. Забейте на все
Вариант 6.
1. Дано натуральное число. Определить, сколько раз данная цифра А встречается в числе. Верно ли, что в данном числе сумма цифр больше В, а само число делится на А. (А и В ввести с клавиатуры)
2. Найти все четырехзначные числа, в которых есть две одинаковых цифры.
Вариант 7.
1. Дано натуральное число. Найти количество цифр данного числа, больших введенной цифры А. Определить принадлежность данного числа интервалу от А до В и кратность 3, 4 и 5. (А и В ввести с клавиатуры).
2. Найти все несимметричные натуральные числа от А до В. брехня!!!!!!!!!!!!!!!!!!!!!!!!!!!
Вариант 8.
1. Дано натуральное число. Найти вторую (с начала) цифру данного числа. Верно ли, что данное число делится на А,В,С - числа, введенные с клавиатуры.
2. Найти все двухзначные числа, которые при умножении на 2 заканчиваются цифрой 8,а при умножении на 3 цифрой 4.
Вариант 9.
1. Дано натуральное число. Определить, сколько четных цифр в записи данного числа.
2. Найти все симметричные четырехзначные числа.(Например такое - 6776)
Вариант 10.
1. Дано натуральное число. Определить, сколько раз в этом числе встречается первая цифра.
2. Найти все трехзначные числа, в которых есть две одинаковых цифры.