Proc4. Описать процедуру TrianglePS($$a$$, $$P$$, $$S$$), вычисляющую по стороне a равностороннего треугольника его периметр $$P = 3*a$$ и площадь $$S = a^2*\sqrt{3}/4$$ ($$a$$ — входной, $$P$$ и $$S$$ — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами.
Записи с меткой «Новичкам»
Решаем задачи Абрамян на Паскале. Proc 24
Proc24. Описать функцию Even($$K$$) логического типа, возвращающую True, если целый параметр $$K$$ является четным, и False в противном случае. С ее помощью найти количество четных чисел в наборе из 10 целых чисел.
Решаем задачи Абрамян на Паскале. Proc3
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. Для каждого набора вывести количество его элементов. Вывести также общее количество элементов во всех наборах.