- •Часть VIII
- •Программирование на языке Turbo Pascal Задачник Содержание:
- •Алгоритмы, свойства алгоритмов
- •Часть I
- •Множества и записи
- •Часть VII
- •Основные понятия языка Turbo Pascal. Арифметические выражения. Линейная структура
- •Разветвляющая структура
- •Часть II
- •Данные литерного типа – char. Строковые переменные – string
- •Часть VI
- •Одномерные и двумерные массивы
- •Часть V
- •Рекурсия
- •Вспомогательный алгоритм. Подпрограмма
- •Часть IV
- •Циклическая структура
- •Часть III
Одномерные и двумерные массивы
Часть V
Найти все четные по значению элементы массива из n целых чисел. Вывести на экран значения элементов и их индекс.
Найти все элементы массива b(n), большие или равные 0. На экран вывести номера элементов, их значения и количество.
Найти сумму положительных элементов массива a(15).
Определить наибольший элемент массива a(n).
Вставить на k-ое место массива вещественных чисел элемент, равный наименьшему элементу массива.
В одномерном массиве целых чисел, содержащем 20 элементов, удалить k-ый элемент массива. Массив заполняется случайным образом числами от 0 до 50.
Найти сумму четных элементов массива целых чисел.
Найти произведение всех элементов массива целых чисел, меньших 0.
Заполнить массив по правилу
Заполнить линейный массив по правилу
Отсортировать по возрастанию линейный массив целых чисел a(n).
Дан линейный массив, содержащий положительные и отрицательные целые числа. Создать два новых массива, в одном из которых содержаться только положительные и нулевые, а в другом- только отрицательные элементы.
Вычислить значение функции
,
учитывая, что при х
= 0
и х
= 1
выражение не имеет смысла.
Возведите данное число в куб, если оно – чётное, и увеличите на 3, если оно – нечётное.
Вычислить значение функции:
Составить алгоритм исследования квадратного уравнения
Написать программу решения уравнения
для произвольного числа а.
Даны натуральные числа x, y, z, определяющие возраст трёх друзей. Из данных чисел напечатать те, которые обозначают “школьный” возраст, то есть от 7 до 16 лет.
Какое значение будет иметь переменная z после выполнения операторов:
z := 0;
if x > 0 then if y > 0 then z := 1 else z :=2;
при следующих значениях переменных x и y:
а) x = y= 1;
б) x = 1, y = -1;
в) x = -1, y = 1.
Три поросёнка Ниф – Ниф, Нуф – Нуф и Наф – Наф – нашли под дубом жёлуди. Каждый из них набрал себе приличный запас на зиму (дано три числа). Составить программу, которая определяла, кто из поросят поленился и набрал меньше всех.
Федя пытается протолкнуть в форточку размерами x см и y см свою голову диаметром не более d см. Удастся ли мальчику его эксперимент, или его голова застрянет.
Указать ошибки в следующих операторах:
а) if 1 < x < 2 then x := x + 1; y := 0;
else x := 0; y := y + 1;
б) if 1 < x and x < 2
then begin x := x + 1; y := 0 end;
else begin x := 0; y := y + 1 end;
Найти сумму цифр натурального трёхзначного числа k. Определить, является ли эта сумма чётным числом.
Найти первую цифру из дробной части действительного числа k. Определить, является ли эта цифра нечётным числом.
Дано четырёхзначное число N. Определить, делится ли это число на все свои цифры.
Вычислить следующие выражения при a = true, b = false
а) a or b and not a
б) ( a or b ) and not a
в) not a and b
г) not ( a and b )
Чему равно значение логического выражения ( a and not b ) or c, если:
а) a = true, b = true, c = false;
б) все значения равны true;
в) все значения равны false;
г) a = true, b = false, c = true;
д) a = false, b = true, c = false.
