pascal

Задача 2 Урок 9

Сравните два числа, если первое больше второго,
то выведите на экран "12", а если нет, то выведите на экран "888".

решение задачи:

program Lesson92;
var a,b:integer;
begin
     writeln('vvedite chisla a and b');
     readln(a, b);
     if (a > b) then
         writeln('12')
     else
         writeln('888');
     readln();
end.

Задача 1 Урок 9

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

решение задачи:

program Lesson91;
var a,b:integer;
begin
    writeln('vvedite chisla a and b');
    readln(a,b);
    if (a > b) then
       writeln('12');
    readln();
end.    

Константы - неизменяемые значения, которые имеют имя как и переменные.

Значение константам присваивается один раз в момент объявления и поменять его после этого в ходе исполнения программы нельзя.

Объявление констант

Для объявления констант используется секция const, например:

Многомерный массив - это такой массив, в котором элементы (кроме самого младшего уровня) сами являются массивами.

Классическим примером данных, которые удобно хранить в двумерном массиве является любая таблица, где в каждой строке равное число элементом, например:

1 2 4 5
1 3 4 7
8 9 5 6

Или возьмем вариант с меньшим числом элементов:

1 2 4
8 3 4 

И сразу же напишем для него код:

Задача №3

Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.

Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.
Примеры:

fsd334rgd
rfg46gdfg
ter5tge56
123gergf

Ответ: 345

Судя по всему это происходит из-за слишком быстрого срабатывания кода, так что не успевает смениться системное время на которое опирается randomize().

Пример проблемного кода (проверяли в Lazarus 2.0,10 в т.ч. в Ubuntu LInux):

Алгоритмическая задача №2 -- и она же в уроке 13.2 под номером 4.

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задание: визуализируйте на счетах введенное пользователем число.Примеры:

Задача №7 из главы 16

Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):

1
abc и bca

-- можно

1
abc и baa

-- нельзя

1
abcc и cbac

-- можно

1
abc4c и cb55ac

-- нельзя

Задача №15 из главы 15

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Например:
Для N = 6, k=2:
202211 длина=4
Для N = 10, k=2:
2022110012 длина=3
Для N = 15, k=3:
202233002303210 длина=4
Для N = 7, k=2:
0100020 длина=5

Задача №15 из главы 15

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Например:

Для N = 6, k=2:
202211 длина=4
Для N = 10, k=2:
2022110012 длина=3
Для N = 15, k=3:
202233002303210 длина=4
Для N = 7, k=2:
0100020 длина=5