Подтемы:
-
Первое знакомство с языком программирования
(2 задачи)
Задачи с целыми числами
(34 задачи)
Условный оператор
(15 задач)
Циклы
(55 задач)
Массивы
(51 задача)
Фильтр
Выбрано 3 задачи
Версия для печати
Убрать все задачи
Задан массив X [1:m]. Найти длину k самой длинной ''пилообразной (зубьями вверх)'' последовательности идущих подряд чисел:
Решение
Решение
Даны натуральные числа m и n. Найти такие натуральные числа m1 и n1, не имеющие общих делителей, что m1 / n1 = m / n. Решение
Убрать все задачи
Задан массив X [1:m]. Найти длину k самой длинной ''пилообразной (зубьями вверх)'' последовательности идущих подряд чисел:
X [p+1]< X [p+2]>X [p+3]<...> X[p+k].
РешениеКоличество операций
Дана программа сортировки (p141.pas). Требуется узнать, сколько раз
при сортировке конкретного массива с помощью этой программы
выполняется операция сравнения двух элементов массива (строка 25 программы).
Входные данные
В файле input.txt записан массив в формате (и удовлетворяющий ограничениям)
из задачи 136.
Выходные данные
В файл output.txt ваша программа должна печатать одно число - сколько
раз в процессе сортировки этого массива программой p141.pas выполнится
команда сравнения двух элементов массива.
Пример входного файла
5
3 1 2 4 2
Пример выходного файла
10
Текст программы p141.pas
const nmax=100;
var a:array[1..nmax] of integer;
n:integer;
i,j,g:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
{Чтение входных данных}
read(f1,n);
for i:=1 to n do read(f1,a[i]);
{Сортировка массива}
for i:=1 to n do begin {Подбираем число на i-ое место}
g:=i; {Считаем, что самое маленькое число,
которое нам встретилось, стоит на месте i}
for j:=i+1 to n do {Перебираем все числа с i+1 до конца массива}
if a[j]<a[g] then g:=j; {Если нашли число, которое меньше,
чем то, что уже найдено, запоминаем его}
{Меняем местами числа, стоящие на i-ом и
на g-ом местах }
{Если a[i]=x, a[g]=y, то после выполнения
команды: }
if i<>g then begin
a[i]:=a[i]+a[g]; {a[i]=x+y, a[g]=y}
a[g]:=a[i]-a[g]; {a[i]=x+y, a[g]=(x+y)-y=x}
a[i]:=a[i]-a[g]; {a[i]=(x+y)-x=y}
{То есть после этого a[i]=y, a[g]=x
обмен значений произошел}
end;
end;
{Выводим результат}
for i:=1 to n do
write(f2,a[i],' ');
close(f1);
close(f2);
end.
РешениеДаны натуральные числа m и n. Найти такие натуральные числа m1 и n1, не имеющие общих делителей, что m1 / n1 = m / n.
Решение
Задачи
Страница: 1 2 3 4 5 6 7 >> [Всего задач: 107]
Задан числовой массив А [1:m]. Сосчитать и напечатать, сколько различных чисел в этом
массиве. Например, в массиве 5, 7, 5 различных чисел два (5 и 7).
Задан массив X [1:m]. Найти длину k самой
длинной ''пилообразной (зубьями вверх)'' последовательности идущих подряд
чисел:
Даны натуральные числа m и n. Найти
такие натуральные числа m1 и n1, не имеющие общих
делителей, что m1 / n1 = m / n.
(Сообщил А. Л.Брудно)
Прямоугольное поле
m×n разбито на
mn
квадратных клеток. Некоторые клетки покрашены в чёрный
цвет. Известно, что все чёрные клетки могут быть разбиты на
несколько непересекающихся и не имеющих общих вершин чёрных
прямоугольников. Считая, что цвета клеток даны в виде
массива типа
Страница: 1 2 3 4 5 6 7 >> [Всего задач: 107]
Задача 98739[Различные числа] |
|
|
|
|
Решение |
Задача 98758[Пила] |
|
|
X [p+1]< X [p+2]>X [p+3]<...> X[p+k].
|
|
|
Решение |
Задача 98759[Сократить дробь] |
|
|
|
|
|
Решение |
Задача 76240 |
|
|
array[1..m] of array [ 1..n] of boolean;
подсчитать число чёрных прямоугольников, о которых шла
речь. Число действий должно быть порядка
mn.
|
|
|
Решение |
Задача 64123[A+B] |
|
|
Вводится два числа. В выходной файл записать их сумму. Пример входного файла 2 3 Пример выходного файла 5
|
|
|
Решение |
Страница: 1 2 3 4 5 6 7 >> [Всего задач: 107]
