Поиск по этому блогу

Показаны сообщения с ярлыком Паскаль. Показать все сообщения
Показаны сообщения с ярлыком Паскаль. Показать все сообщения

пятница, 25 ноября 2022 г.

Кризисный бизнес

Петр Васильевич Колошин никогда не был пугливым человеком и всегда отличался спокойствием и прозорливостью, особенно в сфере мировых политических и экономических процессов. Однако, несмотря ни на что, Петр Васильевич очень недооценил последствия мирового финансового кризиса и, как следствие, был уволен пару недель назад с должности сетевого администратора одной большой и серьезной организации.

Несмотря ни на что, Петр Васильевич не отчаялся и решил начать свое дело. Тщательно проанализировав бизнес-климат в своем регионе, Петр Васильевич пришел к выводу, что наиболее целесообразным будет открыть новый таксопарк. Первое с чего решил начать новоиспеченный бизнесмен – это закупить автомобили. За все время работы Петр Васильевичу удалось накопить сумму S, которую он готов потратить на закупку машин.

среда, 2 ноября 2022 г.

Табло

На хоккейном стадионе в одном большом городе расположено большое прямоугольное табло. Оно имеет n строк и m столбцов (то есть состоит из n x m ячеек). Во время хоккейного матча это табло служит для отображения счета и времени, прошедшего с начала тайма, а в перерывах на нем показывают различную рекламу.
В связи с этим возникла задача проверки возможности показа на этом табло определенной рекламной заставки. Заставка также, как и табло, имеет размер n строк на m столбцов. Каждая из ячеек заставки окрашена в один из четырех цветов - трех основных: красный - R, зеленый - G, синий - B и черный - .(точка).

пятница, 4 февраля 2022 г.

Дороги

 В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake».

вторник, 28 декабря 2021 г.

НОК

 Требуется написать программу, определяющую наименьшее общее кратное (НОК) чисел a и b.

Входные данные

В единственной строке входного файла INPUT.TXT записаны два натуральных числа А и В через пробел, не превышающих 46340.

понедельник, 20 декабря 2021 г.

Арифметика

 В прошлом году Вася пошел в школу и научился считать. В этом году он изучил таблицу умножения и теперь умеет перемножать любые числа от 1 до 10 без ошибок. Друг Петя рассказал ему про системы счисления, отличные от десятичной. В частности, про двоичную, восьмеричную и даже шестнадцатеричную. Теперь Вася без труда (но уже с помощью листка и ручки) может перемножать числа от 1 до 10 и в этих системах, используя перевод из нестандартной системы в десятичную и обратно из десятичной. Например, если Васе нужно перемножить числа 101 и 1001 в двоичной системе, то он сначала эти числа переводит в десятичное представление следующим образом:

пятница, 17 декабря 2021 г.

Игра

 В свободное время одноклассники Вася и Петя любят играть в различные логические игры: морской бой, крестики-нолики, шахматы, шашки и многое другое. Ребята уже испробовали и поиграли во всевозможные классические игры подобного рода, включая компьютерные. Однажды им захотелось сыграть во что-нибудь новое, но ничего подходящего найти не удалось. Тогда Петя придумал следующую игру «Угадайка»:

суббота, 11 декабря 2021 г.

Пятью пять - двадцать пять!

 Вася и Петя учатся в школе в одном классе. Недавно Петя поведал Васе о хитром способе возведения в квадрат натуральных чисел, оканчивающихся на цифру 5. Теперь Вася может с легкостью возводить в квадрат двузначные (и даже некоторые трехзначные) числа, оканчивающиеся на 5. Способ заключается в следующем: для возведения в квадрат числа, оканчивающегося на 5 достаточно умножить число, полученное из исходного вычеркиванием последней пятерки на следующее по порядку число, затем остается лишь приписать «25» к получившемуся результату справа. Например, для того, чтобы возвести число 125 в квадрат достаточно 12 умножить на 13 и приписать 25, т.е. приписывая к числу 12*13=156 число 25, получаем результат 15625, т.е. 1252=15625. Напишите программу, возводящую число, оканчивающееся на 5, в квадрат для того, чтобы Вася смог проверить свои навыки.

Входные данные

В единственной строке входного файла INPUT.TXT записано одно натуральное число А, оканчивающееся на цифру 5, не превышающее 4*105.

Выходные данные

В выходной файл OUTPUT.TXT выведите одно натуральное число - A2 без лидирующих нулей.

Примеры

INPUT.TXT

OUTPUT.TXT

1

5

25

2

75

5625

3

4255

18105025


Решение
var      
px,n,m,i,k:int64;
f,f1:text; 
begin
assign(f,'input.txt'); 
    reset(f); 
     assign(f1,'output.txt'); 
     rewrite(f1); 
    readln(f,n);
px:=n div 10;
m:=px+1;
n:=px*m*100+25;write(f1,n);
  close(f1);  close(f);
end.

пятница, 17 сентября 2021 г.

Числовое или строковое: какое решение лучше

 Рассмотрим две задачи на линейный алгоритм, которые решим числовым и строковым методами используя возможности языка программирования PascalABC.NET

Задачи:

  1. Даны натуральные числа М и N. Вывести старшую цифру дробной части и младшую цифру целой части числа M/N.
  2. Дано действительное число R вида nnn. ddd (три цифровых разряда в дробной и целой частях). Поменять местами дробную и целую части числа и вывести полученное значение числа.
Решение первой задачи.

вторник, 16 марта 2021 г.

Две окружности

На плоскости даны две окружности. Требуется проверить, имеют ли они хотя бы одну общую точку.

Входные данные

Входной файл INPUT.TXT состоит из двух строк. На каждой строке записана информация об одной окружности – координаты ее центра x и y (целые числа, по модулю не превосходящие 5000) и радиус (целое число 1 ≤ r ≤ 1000).

Выходные данные

В выходной файл OUTPUT.TXT выведите «YES», если окружности имеют хотя бы одну общую точку, и «NO» в противном случае.

пятница, 12 марта 2021 г.

Счастливый билет

Вы пользуетесь общественным транспортом? Вероятно, вы расплачивались за проезд и получали билет с номером. Счастливым билетом называют такой билет с шестизначным номером, где сумма первых трех цифр равна сумме последних трех. Т.е. билет с номером 385916 – счастливый, т.к. 3+8+5=9+1+6. Вам требуется написать программу, которая проверяет счастливость билета.

суббота, 6 марта 2021 г.

Разворот

Дано натуральное число N и последовательность из N элементов. Требуется вывести эту последовательность в обратном порядке.
Входные данные
В первой строке входного файла INPUT.TXT записано натуральное число N (N ≤ 1000). Во второй строке через пробел идут N целых чисел, по модулю не превосходящих 103 - элементы последовательности.
Выходные данные
В выходной файл OUTPUT.TXT выведите заданную последовательность в обратном порядке.
Пример

INPUT.TXT

OUTPUT.TXT

1

3
1 2 3

3 2 1


вторник, 26 января 2021 г.

Задача КИМ №27 (Решение на Паскале)

1) Имеется набор данных, состоящий из пар положительных целых чисел. Необходимо выбрать из каждой пары ровно одно число так, чтобы сумма всех выбранных чисел не делилась на 3 и при этом была минимально возможной. Гарантируется, что искомую сумму получить можно. Программа должна напечатать одно число – минимально возможную сумму, соответствующую условиям задачи.

Входные данные: Даны два входных файла: файл A (27-1a.txt) и файл B (27-1b.txt), каждый из которых содержит в первой строке количество пар N (1 ≤ N ≤ 100000). Каждая из следующих N строк содержит два натуральных числа, не превышающих 10 000.

Пример входного файла:

6
1 3
5 12
6 9
5 4
3 3
1 1
Для указанных входных данных значением искомой суммы должно быть число 20.
В ответе укажите два числа: сначала значение искомой суммы для файла А, затем для файла B.

Решение

пятница, 15 января 2021 г.

Задачи на циклы

1. Сборщик ошибок. Сборщик ошибок собирает ошибки каждый день в течение пяти дней. Напишите программу, которая ведет учет нарастающего итога ошибок, собранных в течение пяти дней. Цикл должен запрашивать количество ошибок, собираемых в течение каждого дня, и когда цикл завершается, программа должна вывести общее количество собранных ошибок.

вторник, 3 ноября 2020 г.

Задачи на программирование (ветвление)

l. День недели. Напишите программу, которая запрашивает у пользователя число в диапазоне от 1 до 7. Эта программа должна показать соответствующий день недели, где l - понедельник, 2 - вторник, 3 - среда, 4 - четверг, 5 - пятница, 6 - суббота и 7 - воскресенье. Программа должна вывести сообщение об ошибке, если пользователь вводит номер, который находится вне диапазона от 1 до 7.

суббота, 11 апреля 2020 г.

Задача про художника исследователя

Известный художник решил написать новый шедевр. После многих дней усердной работы он захотел исследовать свое творение. Художник вспомнил, что картина писалась следующим образом: сначала был взят белый холст, имеющий форму прямоугольника шириной w и высотой h. Затем художник нарисовал на этом холсте n прямоугольников со сторонами, параллельными сторонам холста и вершинами, расположенными в целочисленных координатах. Помогите художнику определить площадь незакрашенной части холста.

пятница, 24 января 2020 г.

Напёрстки

Шулер показывает следующий трюк. Он имеет три одинаковых наперстка. Под первый (левый) он кладет маленький шарик. Затем он очень быстро выполняет ряд перемещений наперстков, каждое из которых – это одно из трех перемещений - A, B, C:

понедельник, 20 января 2020 г.

Морской бой - 2

«Морской бой» - игра для двух участников, в которой игроки по очереди называют координаты на неизвестной им карте соперника. Если у соперника по этим координатам имеется корабль, то корабль или его часть «топится», а попавший получает право сделать еще один ход. Цель игрока - первым поразить все корабли противника.

воскресенье, 19 января 2020 г.

Сумма длинных чисел 2

Даны две строки, в каждой из которых содержится длинное натуральное число (количество цифр в каждом более 100). В третьей строке сформировать их сумму.

понедельник, 2 декабря 2019 г.

Чемпионат

В полуфинале студенческого чемпионата мира по программированию NEERC участвуют команды из n институтов. Участники для проведения соревнований распределяются по k залам, каждый из которых имеет размеры, достаточные для размещения всех команд от всех институтов. При этом по правилам соревнований в одном зале может находиться не более одной команды от института.

вторник, 19 ноября 2019 г.

Задачи на одномерные массивы

  1. Сформировать целочисленный массив А(75), элементами которого являются случайные числа из диапазона [-5,20]. Найти среди его элементов два, разность которых имеет наибольшее значение.
  2. Результаты сдачи экзамена группой из N студентов находятся в массиве REZ. Вычислить средний балл сдачи экзамена.
  3. Дан массив Х(215). Найти среди его элементов два элемента, модуль разности которых имеет наименьшее значение.