Рейтинг:  5 / 5

Звезда активнаЗвезда активнаЗвезда активнаЗвезда активнаЗвезда активна
 

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

Для решения заданий Вам потребуется PascalABC.NET самой последней версии (можно воспользоваться и виртуальной средой программирования PascalABC.NET, но она ужасно тормознутая и в ней много ограничений и много нерабочих компонентов), какой-либо архиватор, знания и аккаунт нашего сайта.

Для чего нужны знания и Пасаль - это понятно. А аккаунт нужен для того, чтобы Вы могли загрузить Вашу работу на проверку. А архиватор нужен для того, чтобы заархивировать все исходные коды программ и отправить их на проверку.

Внимание: Каждое задание должно быть в отдельном pas файле. В названии каждого файла должно присутствовать номер выполняемого задания или в комментарии должно быть указано условие задани.

На выполнение задаий дается неограниченное кол-во времени. После выполнения всех заданий, все pas файлы следует заархивировать и под заданием найти кнопку для загрузки файла и загрузить ваш архив. Размер архива должен быть не больше 1 Мб. Принимаются архивы форматов rar и zip. При желании Вы сможете перезагрузить свою работу, если она еще не была проверена. После того, как Ваша работа будет проверена, вам на адрес электронной почты придет соответствующее сообщение, а под работой появится оценка вашей работы.

Каждое задание оценивается 3-мя балами.

Если вы загрузите вначале одну работу, а потому другую и так далее, то будет проверена только самый последний вариант работы. 

Проверка проходит каждый день, за исключением дней, когда администраторы не могут проверить, и прохдит по очереди.

Если Вы со всем согласны, то можете приступать к работе:

1

Создайте файл и сохраните его с именем 1.pas. В этом файле напишите программу, выводящую ваше имя и фамилию.

2

Объявите вещественную переменную a со значением 1.5. Увеличьте её в три раза и выведите новое значение. Объявите переменную b и присвойте ей удвоенное значение переменной a, выведите её значение. Обнулите значение переменной a и вновь выведите ее значение. Вычислите сумму значений переменных a и b.

3

Напишите программу, вычисляющую периметр и площадь прямоугольника по заданным длинам сторон.

4

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

5

Определить возраст человека в годах по возрасту, заданному в месяцах (например: для 65-ти месяцев это 5 полных лет, для 24-х — 2 года).

6

Дано двузначное целое число. Вывести его правую и левую цифры. Например:

35 >>> 5, 3
90 >>> 0, 9

7

Дано двузначное целое число. Вывести сумму и произведение его цифр. Проверьте правильность вашей программы. Пример:
35 >>> 8, 15
90 >>> 9, 0
-11 >>> 2, 1 (!) сумма и произведение цифр положительны

8

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

9

Дано трёхзначное целое число. Вывести сумму его цифр. Убедитесь, что ваша программа корректно работает с отрицательными числами.

10

Дано двузначное целое число. Поменяйте в нем местами разряды десяток и единиц.

11

Дано трёхзначное целое число. Сформировать новое число, каждый разряд которого меньше на единицу. Если разряд данного числа равен 0, то он должен стать равным 9 (использовать условный оператор нельзя).

12

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его.

13

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

14

Даны два целых числа. Вывести значение True, если первое число больше второго, и False в противном случае.

15

Даны три целых числа: A, B, C. Вывести значение True, если справедливо двойное неравенство A<B<C, и False в противном случае.

16

Даны два целых числа. Вывести значение True, если хотя бы одно из этих чисел является нечётным (используйте стандартную функцию odd), и False в противном случае.

17

 Даны три целых числа. Найти количество (en: count, amount) положительных (en: positive) и количество отрицательных (en: negative) чисел в исходном наборе.

18

«Загадать» число от 0 до 10 (используйте функцию "Random(0,10)"). Если загадано число 0, то вывести «Я устал» и закончить выполнение программы.
В противном случае получить число от пользователя (то есть считать). Если оно совпадает с загаданным, то вывести «Вы угадали:(»; иначе вывести «Не угадали:P», а также True, если чётность чисел совпадает, и False — если не совпадает. Например:

загадано: 3, ввод: 7 >>> Не угадали:P, True
загадано: 6, ввод: 6 >>> Вы угадали:(
загадано: 0 — завершение_работы
загадано: 4, ввод: 5 >>> Не угадали:P, False

19

Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и т. д.). Определить количество дней в этом месяце для невисокосного года. При этом при некорректном вводе месяца программа должна выводить соответствующее сообщение. Желательно вывод кол-во дней делать только в конце программы.

20

Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Вывести значение True, если треугольник со сторонами a, b, c является равнобедренным (две его стороны равны), и False в противном случае.

21

Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное положительное число). Найти длину отрезка в метрах.

Условие 1: Вывод длины должен осуществляться только в конце программы

Условие 2: Если пользователь вышел за граници диапазона, то должно выводиться на экран соответствующее сообщние.

22

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

23

Дано трехзначное целое число a. Выведите True, если существует перестановка цифр, при которой число делится на 10, и False в противном случае.

24

Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «чётное двузначное число», «нечётное трёхзначное число» и т. д.

25

Даны коэффициенты a, b, c квадратного уравнения ax2+bx+c=0. Вычислить его корни или определить, что их нет. Например:

-1, 4, 5 >>> Два корня: 5, -1
2, -8, 8 >>> Один корень: 2
3, -3, 7 >>> Нет корней.

26

Дано целое число в диапазоне 100–999. Вывести строку-описание данного числа, например: 256 — «двести пятьдесят шесть», 814 — «восемьсот четырнадцать».

27

Мастям игральных карт присвоены порядковые номера: 1 — пики, 2 — трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых числа: N — достоинство (6 ≤ N ≤ 14) и M — масть карты (1 ≤ M ≤ 4). Вывести название соответствующей карты вида «шестёрка бубен», «дама червей», «туз треф» и т. п.

28

Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. э Вывести знак Зодиака, соответствующий этой дате: «Водолей» (20.1–18.2), «Рыбы» (19.2–20.3), «Овен» (21.3–19.4), «Телец» (20.4–20.5), «Близнецы» (21.5–21.6), «Рак» (22.6–22.7), «Лев» (23.7–22.8), «Дева» (23.8–22.9), «Весы» (23.9–22.10), «Скорпион» (23.10–22.11), «Стрелец» (23.11–21.12), «Козерог» (22.12–19.1).

29

Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, предшествующей указанной.

30

Даны целые числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (не включая сами числа A и B), а также количество N этих чисел.
Например:

A = -2, B = 3 >>> -1, 0, 1, 2; N = 4
A = 2, B = 3 >>> <empty>; N = 0

31

Даны целые положительные (!) числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.

32

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет

33

Даны два целых числа A и B (A <= B). Найти сумму квадратов всех целых чисел от A до B включительно.

34

Дано целое число. Используя один цикл, найти количество его цифр и их сумму.

35

Дано целое число. Определить значение наибольшей цифры в записи этого числа и номер ее разряда, считая от разряда единиц. Если таких разрядов несколько, взять разряд с наименьшим номером.
Например:
N = -50 >>> MaxDigit = 5, Pos = 2
N = 1946 >>> MaxDigit = 9, Pos = 3
N = -13 >>> MaxDigit = 3, Pos = 1
N = 0 >>> MaxDigit = 0, Pos = 1
N = 8287 >>> MaxDigit = 8, Pos = 2

36

Дано целое число. Если в записи числа имеется ровно три цифры 5, вывести true, иначе вывести false.

37

Дано целое число. Вывести его цифры, начиная со старшего разряда. Например:
N = 1205 >>> 1, 2, 0, 5
N = -123 >>> 1, 2, 3
N = -111 >>> 1, 1, 1
N = 0 >>> 0

38

Дано натуральное число N — количество цифр и последовательность из N цифр. Сформировать число, состоящее из этих цифр, начиная с младшего разряда (разряда единиц). Например:
N = 3; digits: 0,7,3 >>> M = 370
N = 1; digits: 0 >>> M = 0
N = 5; digits: 6,1,0,7,0 >>> M = 7016
N = 2; digits: 2,0 >>> M = 2

39

Дано положительное целое число. Вывести его запись в двоичной системе счисления, например:
N = 1 >>> N_2 = 1
N = 2 >>> N_2 = 10
N = 4 >>> N_2 = 100
N = 7 >>> N_2 = 111
N = 27 >>> N_2 = 11011
N = 32 >>> N_2 = 100000

40

Дано целое число. Если его цифры образуют возрастающую последовательность, вывести true, иначе вывести false. Например:
12456 >>> true
-357 >>> true
112345 >>> false

41

Дано целое число N. Увеличить циклически каждый его разряд на 4, например:
1689 >>> 5023
-741 >>> -185
0 >>> 4

42

Дано целое число N и целое положительное число k. Вывести цифру, соответствующую в записи числа N разряду с номером k (считая от младшего разряда). Если разряда с номером k в числе N нет, вывести -1. Например:
N = 1234567, k = 3 >>> 5
N = -1234, k = 2 >>> 3
N = 12, k = 3 >>> -1

43

Дано целое число N. Вывести номер разряда (считая от младшего), в котором стоит цифра 3. Если таких разрядок несколько, вывести наименьший номер. Если цифры 3 в записи числа N нет, вывести -1. Например:
12345 >>> 3
12323456 >>> 4
12456 >>> -1

44

Даны два целых числа. Сформировать новое число, в записи которого сначала идут разряды первого числа, а затем второго. В качестве знака для нового числа выбрать знак первого числа (если первое число — 0, то выбрать положительный знак).
Например:
N1 = -1, N2 = 390 >>> M = -1390
N1 = 0, N2 = -21 >>> M = 21
N1 = 72, N2 = 0 >>> M = 720

45

Дано положительное целое число. Вывести его запись в троичной системе счисления, например:
N = 1 >>> N_3 = 1
N = 2 >>> N_3 = 2
N = 4 >>> N_3 = 11
N = 7 >>> N_3 = 21
N = 27 >>> N_3 = 1000
N = 32 >>> N_3 = 1012

46

Дано целое число N (N ≥ 1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего левого соседа, а также количество таких элементов (если таких элементов нет, количество должно быть равно 0).

Не забудьте реализовать защиту от некорректных входных данных с помощью Assert.

47

Дан набор целых чисел, признак завершения которого — число 0. Если набор образует невозрастающую последовательность чисел, вывести 0, в противном случае вывести номер элемента, нарушающего это условие. Пустой набор и набор из одного элемента считаются невозрастающими.

48

Даны целые числа K > 0, N ≥ 0, а также K наборов целых чисел по N элементов в каждом наборе. Найти количество наборов, содержащих число 2. Если таких наборов нет, то вывести 0. Пример:

K = 3, N = 5;
набор #1: 6 4 2 -3 2
набор #2: -1 5 6 3 49
набор #3: 31 7 7 -8 12
1 набор.

49

Дано целое число K > 0, а также K наборов ненулевых целых чисел. Признак завершения каждого набора — число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.

50

Дано целое число K > 0, а также K наборов ненулевых целых чисел (не равных integer.MinValue). Каждый набор содержит не менее двух элементов, признак его завершения — число 0. Найти количество наборов, элементы которых возрастают.

51

Дана последовательность целых чисел, содержащая по крайней мере два элемента. Признак завершения последовательности — число 0 (не считается элементом).
Последовательность называется пилообразной, если каждый её элемент либо больше каждого из своих соседей, либо меньше их.
Проверить, является ли заданная последовательность пилообразной.

Замечание #1. Последовательность из двух элементов считается пилообразной, если эти элементы различны.

Замечание #2. Проверять, что последовательность содержит по крайней мере два элемента, не нужно.

52

Дано целое число K > 0, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признак его завершения — число 0. Для каждого набора выполнить следующее действие: если набор является пилообразным, то вывести True и количество его элементов; в противном случае вывести False и номер первого элемента, который не является зубцом.

Вы должны быть авторизованы для загрузки работы