- •Сборник задач по структурному программированию
- •Оглавление
- •Аннотация
- •Введение
- •Раздел 1
- •Работа с простыми типами данных
- •I a b c результат (можно/ нельзя)
- •Пример 1.1.1
- •Var hour,minute,n:longint;
- •Пример 1.1.2.
- •Var X,s,p:real;
- •I,n:integer;
- •Работа с символами, строками и текстом.
- •3 Слова длины 8 букв и т. Д.
- •Пример 1.2.1
- •Var s:string[80];
- •I,k:integer;
- •Разработка структурированных программ с использованием процедур и функций.
- •Пример 1.3.
- •Var I:word;
- •Var I:word;
- •X:integer;
- •I,m:word;
- •Работа с файлами разных типов.
- •Пример 1.4.
- •I: word;
- •Var X:integer;
- •Var I:word;
- •Var X:integer;
- •Inc(X);{Количество слов будет на 1 меньше!!}
- •Var p:boolean;
- •If p then
- •Var j:integer;
- •Var k,l:byte;
- •Динамические структуры данных. Списки.
- •Пример 1.5.
- •Var lp,pList,pStart : pEl_list;
- •I,oi,kol: integer; {переменные для работы с меню}
- •Insert_list(li);
- •Var I:integer;
- •Var I:integer;p:boolean;
- •Var k:char;
- •1: Begin dialog;
- •2: Begin dialog;
- •3: Begin dialog;
- •4: Begin
- •If noswap then begin
- •5: Begin
- •Var I:integer;
- •Vivod(2,2,25);
- •Решение графических задач
- •Пример 1_6.
- •Var dr,md:integer;
- •X,y,x1,y1,x2,x3,y2,y3,r:integer;
- •Var a:real;
- •Раздел 2
- •Работа с графическими объектами
- •Пример 2.1
- •X,y: real;
- •Var f1,f2:real;
- •Var gd,gm:integer;
- •Xb,xe,I,j:integer;
- •Работа с объектами- векторами
- •Пример 2.2
- •Var t:tPerson;
- •Interface
- •Implementation
- •I:integer;
- •I:integer;
- •I,j:integer;
- •Var m:integer;
- •Init(m);
- •Insert;
- •Работа с объектами - списками.
- •Пример 2.3
- •Interface
- •Implementation
- •Var Pcur1:t_el;
- •Var fname:ss;
- •Var s1:ss; p:byte; I:byte;
- •Var I:integer;
- •Interface
- •Implementation
- •Var Mylt:my_list;
- •Разработка объектов- таблиц.
- •Работа со структурами данных типа дерево.
- •Inf: integer;
- •Пример 2.5.
- •Interface
- •Implementation
- •Var newnode:pnode;
- •X,nl,nr:integer;
- •Var I: word;
- •Var q:pnode;
- •Разработка многомодульных задач.
- •Приложение.
- •Interface
- •Ik:word;{количество записей}
- •IEl:elmnt;
- •Var init_Ok:boolean;
- •Implementation
- •Var I:word;
- •Var m:word;
- •Var I:word;
- •If n then begin
- •Var I:word;
- •Var I: word;
- •Var I:word;{при выходе уничтожаем все списки}
- •Interface
- •Implementation
- •1: Begin
- •2: Begin
- •3: Begin
- •1: Begin
- •2: Begin
- •I:byte;
- •1: Begin
- •2: Begin
- •3: Begin
- •4: Begin
- •Var stop:boolean;
Раздел 1
Работа с простыми типами данных
Задачи этой темы позволяют рассмотреть способы обработки простых типов данных: целых или вещественных чисел. Число при решении предлагаемых задач в этом разделе -- это целое или вещественное со знаком.
Дано натуральное число n. Удалить из записи числа все нули и единицы. Подсчитать количество оставшихся цифр в изображении числа.
Дано поизвольное вещественное число. Определить порядок числа и количество цифр в изображении числа.
Дано целое число с количеством цифр в его записи < 10. Записать число в обратном порядке.
Дано целое число N. Разложить его на простые множители. Вывести на экран исходное число и полученные множители.
Часовая стрелка образует угол с лучом, проходящим через центр и через точку, соответствующую 12 часам на циферблате: 02. Определить значение угла для минутной стрелки для заданного величины , а также количество полных часов и полных минут.
Дано 10- разрядное число, допустимой для записи целых чисел величины. Определить, является ли введенное число палиндромом. (Число, значение которого при чтении справа налево и слева направо одинаково, называется палиндромом).
Дано некоторое натуральное число. Определить сколько и каких цифр встречается в его записи. Результат обработки: <цифра> - <количество>.
Дано целое число. Найти произведение всех его цифр.
Дано целое натуральное число. Каждую цифру числа заменить на дополнение ее до 10. Вывести на экран исходное число и преобразованное.
Даны два целых числа M и N . Найти все одинаковые цифры в каждом из чисел.
Даны N наборов чисел a, b, c. Определить возможность построения треугольника для каждого из наборов чисел. Результат вывести в форме
I a b c результат (можно/ нельзя)
Даны целые положительные числа К и N. Найти P=(K)N!. Определить диапазон допустимых N. Учитывать при решении задачи допустимую величину целого числа.
Дано целое число N . Определить число цифр в записи числа и найти сумму цифр числа.
Дано целое число N , определяющее возраст человека. Для этого числа определить наименование : год, года, лет. Например, 31 год, 32 года, 25 лет.
Даны целые числа m, N . Определить сумму любых m цифр числа N .
Дано целое число K, имеющее значения в диапазоне 1..365. Определить номер дня недели (1..7), на который приходится введенное число для невисокосного года ( високосным считается год, который делится на 4 , но не 100 и т.п.). Считаем, что первый день года ,1 января, это понедельник.
Определить значение угла в градусах между положением часовой стрелки в начале суток и ее положением в H часов, M минут и S секунд (0<=H<=11, 0<=M<=59,0<= S<=59).
Дано вещественное число. Определить первую цифру дробной части числа.
Дано целое число N. Выделить из числа все четные цифры.
Найти наибольший общий делитель двух натуральных чисел.
Дано целое число. Определить количество нулей в записи числа.
Из вводимого набора целых чисел найти числа, для которых квадрат заданного трехраазрядного целого числа равен кубу суммы его цифр.
Дано многоразрядное целое число. Определить равна ли сумма двух первых цифр числа сумме двух последних цифр.
Дано вещественное число. Определить порядок числа для записи его в форме: +/-a.bE10+/-x , где 1<=а<=9, b - дробная часть в записи числа, x- степень основания системы счисления.
Дано целое число. Определить количество и сумму цифр, стоящих на нечетных местах в записи числа.
Дано целое число. Поменять порядок цифр в записи числа на обратный.
Дано целое N-разрядное число. Поменять местами первую и последнюю цифры в записи числа.
Дано N-разрядное целое десятичное число. Преобразовать его в запись числа в восьмеричной системе счисления.
Дано N-разрядное целое десятичное число. Преобразовать его в запись числа в двоичной системе счисления.
Из заданного набора чисел найти числа, не имеющие общих делителей.
Дано некоторое целое число. Все нули в изображении числа заменить единицами.
Задано вещественное число. Определить порядок числа и количество цифр в изображении дробной части числа.
Написать программу, позволяющую получить все перестановки из К различных элементов и напечатать все перестановки.
Дано натуральное число N. Из записи числа удалить все единицы и нули. Порядок следования остальных цифр оставить без изменения.
Дано произвольное число N. Получить все цифры числа N !. Считать факториал только в диапазоне допустимой величины целого числа.