Proc3. Описать процедуру Mean($$X$$, $$Y$$, $$AMean$$, $$GMean$$), вычисляющую среднее арифметическое $$AMean = (X + Y)/2$$ и среднее геометрическое $$GMean = \sqrt{X * Y}$$ двух положительных чисел $$X$$ и $$Y$$ ($$X$$ и $$Y$$ — входные, $$AMean$$ и $$GMean$$ — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар $$(A, …
Рубрика «Проверка знаний»
Решаем задачи Абрамян на Паскале. Proc1
Proc1. Описать процедуру PowerA3($$A$$, $$B$$), вычисляющую третью степень числа $$A$$ и возвращающую ее в переменной $$B$$ ($$A$$ — входной, $$B$$ — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел.
Решаем задачи Абрамян на Паскале. Series40
Series40. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершенияявляется число 0. Для каждого набора выполнить следующее действие: если набор является пилообразным (см. задание Series23), то вывести количество его элементов; в противном случае вывести номер первого элемента, который не является зубцом.
Решаем задачи Абрамян на Паскале. Series39
Series39. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Найти количество пилообразных наборов (определение пилообразного набора дано в задании Series23).
Решаем задачи Абрамян на Паскале. Series38
Series38. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Для каждого набора выполнить следующее действие: если элементы набора возрастают, то вывести 1; если элементы набора убывают, то вывести –1; если элементы набора не возрастают и не убывают, то вывести 0.
Решаем задачи Абрамян на Паскале. Series37
Series37. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Найти количество наборов, элементы которых возрастают или убывают.
Решаем задачи Абрамян на Паскале. Series36
Series36. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов, признаком его завершения является число 0. Найти количество наборов, элементы которых возрастают.
Решаем задачи Абрамян на Паскале. Series35
Series35. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Признаком завершения каждого набора является число 0. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.
Решаем задачи Абрамян на Паскале. Series34
Series34. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Для каждого набора выполнить следующее действие: если в наборе содержится число 2, то вывести сумму его элементов; если в наборе нет двоек, то вывести 0.
Решаем задачи Абрамян на Паскале. Proc 20
Proc20. Описать функцию TriangleP($$a$$, $$h$$), находящую периметр равнобедренного треугольника по его основанию a и высоте h, проведенной к основанию ($$a$$ и $$h$$ — вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. Для нахождения боковой стороны $$b$$ треугольника использовать теорему Пифагора: $$b^2 = (a/2)^2 + h^2$$.