Поделитесь своими знаниями, ответьте на вопрос:
Задача 1. Разработать метод max(a, b) для нахождения максимального из двух чисел. Вычислить с него значение выражения z=max (x, 2y-x)+max(5x+3y, y 2. Задача 2. Разработать метод, который для заданного натурального числа N возвращает значение true – если число если число составное. 3. Задача 3. Разработать рекурсивный метод, который по заданному натуральному числу N (N≥1000) выведет на экран все натуральные числа, не превышающие N, в порядке возрастания. Например, для N=8, на экран выводится1 2 3 4 5 6 7 8. 4. Задача 4. Пусть имеются два массива с именами A и B. Массив A задается. Получить результирующий массив B, обратный к исходному массиву A (элементы массива B идут в обратном порядке по отношению к массиву A). В данном примере приводится реализация обращения массива с трех известных операторов цикла. 5. Задача 5. Вычислите сумму членов последовательности, начинающейся с единицы, в которой каждый следующий член в три раза больше предыдущего, т.е. {1, 3, 9, 27, 81, …}, причем последний член последовательности не должен превышать 1000. 6. Задача 6. Задан массив целых чисел A[20]. Создать другой массив целых чисел B[ ], в который войдут все числа исходного массива, удовлетворяющие условию: А[i] <= 888, после чего отсортировать элементы массива В[ ] по убыванию. 7. Задача 7. Введите с клавиатуры строку произвольной длины, расположите символы в строке в порядке возрастания их кода и образуйте новую строку, в которой символы будут расположены в обратном порядке относительно отсортированной строки. Задача 8. Дано: информация о каждом жителе города содержит следующие элементы: а) фамилия, имя, отчество; б) домашний адрес (улица, дом); в) дата рождения. Информация о жителе является элементом одного большого массива М[ ]. Требуется составить списки избирателей, живущих по заданному адресу в алфавитном порядке.
program Prog;
var i, MinElement: Integer;
arr: array[1..15] of Integer;
begin
{ задаем значение минимального элемента. изначально
оно дожно быть максимально возможным, так как мы будем
все элементы с ним сравнить и вычислять, какой из них наименьший.
для этого после того, как мы нашли элемент меньше чем имеющийся минимум,
то мы этот минимум изменяем на найденное нами число }
MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,
но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }
randomize; { это чтоб заполнить рандом. числами }
// запоолнение массива рандомом
for i:=1 to 15 do begin
arr[i]:=random(100); { для примера числа будут от 0 до 99 }
{ здесь мы как раз сравниваем с имеющимся минимум и меняем его,
если нашли элемент меньше }
if arr[i]<MinElement then
MinElement:=arr[i]
end;
// вывод всего массива
for i:=1 to 15 do
write(arr[i], ' ');
writeln;
// вывод минимума
writeln('Минимальный элемент: ', MinElement);
end.