В Паскале функция Sqrt вычисляет квадратный корень числа. Синтаксис функции следующий:
function Sqrt(Х : ValReal) : ValReal;
Эта функция возвращает квадратный корень числа, переданного через параметр Х. Число Х должно быть положительным, иначе произойдёт ошибка во время выполнения программы.
Функция Sqr вычисляет квадрат числа. Синтаксис функции для разных типов данных:
function Sqr(Х : LongInt) : LongInt;
function Sqr(Х : QWord) : QWord;
function Sqr(Х : ValReal) : ValReal;
Эта функция возвращает результат вычисления квадрата числа, переданного через параметр. То есть Sqr = х * х.
Источник: yandex.ru
Разработать программу вычисления функции
Как составить программу действий и вычислить?
Ввести с клавиатуры 8 чисел. Найти их среднее значение. Найти числа большие среднего значения и меньшие среднего значения, подсчитать количество тех и других. Предусмотреть выводы данных на дисплей.
a:array [1..8] of real;
writeln(‘kol-vo chisel > st=’,j);
Билет 6.
Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть выводы данных на дисплей.
a:array [1..4] of real;
if min>=a[i] then min:=a[i];
Билет 7.
Ввести с клавиатуры 3 числа. Найти среди них число, расположенное между наименьшим и наибольшим. Предусмотреть выводы данных на дисплей.
a:array [1..3] of real;
if min>=a[i] then min:=a[i];
if j=0 then writeln(‘srednego net’);
Билет 8.
2.Разработать программу вычисления корней квадратного уравнения ax2+bx+c=0.
else writeLn(‘resheniy net’);
Билет 9-10
Ввести с клавиатуры три пары чисел. Определить сумма какой из пар чисел больше. Предусмотреть выводы данных на дисплей.
a:array [1..3,1..2] of real;
if a[i,1]+a[i,2]>max then
writeln(‘max summa=’,max:10:3,’ nomer par ‘,k);
Билет 11.
Ввести с клавиатуры три пары чисел. Найти произведение каждой пары и определить какое из них минимально. Предусмотреть выводы данных на дисплей.
a:array [1..3,1..2] of real;
writeln(‘min proizvedenie=’,min:10:3,’ nomer par ‘,j);
Билет 12
Билет 13
Билет 14.
Билет 15
Билет 16.
Билет 17.
Билет 18.
Билет 19.
1.Разработать программу вычисления корней квадратного уравнения ax 2 +bx+c=0.
else writeLn(‘resheniy net’);
else writeln(‘ne udovletvoryaet usloviu’);
Билет 20.
Билет 21-22.
Билет 23.
1. Вычислить функцию у = 2х 2 — 8Sinх (-2< х >3). Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений.
Как создать ВЫЧИСЛЯЕМЫЕ запросы в базе Access
if min>y then min:=y;
С клавиатуры задается последовательность чисел. Найти сумму чисел, предшествующих первому отрицательному в задаваемой последовательности. Вывести сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Найти число таких чисел.
a:array [1..20] of real;
for i:=1 to 20 do
write(‘wwedite element posledovatelnost a[‘,i:2,’]=’);
for i:=1 to 20 do
writeln(‘chislo ‘,a[i]:5:3,’ v intervale ot 1 do 5′);
1: writeln(‘summa do 1 menshe 0’,sum:10:5);
writeln(‘chislo chisel v itervale ot 1 do 5 = ‘,j:2);
Билет 24
else writeln(‘ne udovletvoryaet usloviu’);
2. Дано положительное число e, и последовательность а1, а2, а3. образованная по следующему закону: Найти первый член последовательности, для которого выполняется условие: abs(an-an-1)n и n.
a: array [1..100] of real;
for i:=1 to 100 do
for i:=1 to 100 do
writeln(‘vipolnyaet uslovie a[‘,i:2,’]=’,a[i]:5:3);
Билет 25.
else writeln(‘ne udovletvoryaet usloviu’);
2. Начав тренировки, спортсмен в первый день пробежал х км. Каждый следующий день он увеличивал норму на 10 % от предыдущего дня. Через сколько дней спортсмен будет пробегать больше у км.?
writeln(‘wwedite rezultat 1 dnya’);
writeln(‘wwedute chislo y’);
writeln(‘cherez ‘,i:2,’ dnya’);
Билет 26
1. Вычислить функцию у = 2х 2 — 6Sinх (-2< х >3). Найти ее минимум и максимум. Вывести таблицу функции.
if min>y then min:=y;
2. Составить таблицу степеней числа 3: 3n, n=1, 2, 3. i Прекращать печатать таблицу, когда 3n превысит заданное число D. Вычисления проводить не используя операцию возведения в степень.
write(‘chislo stepen kotorogo ishem ‘);
Билет 27.
1. Задать двумерный массив размером 4*3. Просуммировать элементы его столбцов. Результаты представить в виде одномерного массива размером 3. Вывести исходный массив в виде таблицы, полученный в виде строки.
a:array [1..4,1..3] of real;
b:array [1..4] of real;
2. В очередном году урожайность ячменя составила 20ц с гектара. В среднем каждые два года урожайность увеличивается на 5%. Определить через сколько лет урожайность превысит Nц с га.
writeln(‘uroshay 1 goda’);
writeln(‘cherez ‘,i:2,’ god’);
Билет 28
1. Задать двумерный массив размером 4*4. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.
a:array [1..4,1..4] of real;
2. Среди последовательности чисел 1, 1+1/2, 1+1/2+1/3. найти первое, большее заданного числа а. Вывести на экран само число и его номер.
program bil282;
label 1;
var x,a:real;
i,j:integer;
Begin
write(‘wwedite x=’);
readln(x);
write(‘wwedite ogranichenie a=’);
readln(a);
j:=1;
for i:=2 to 100 do
Begin
x:=x+(1/i);
j:=j+1;
if x>a then goto 1;
end;
1: writeln(‘chislo x>a =’,x:10:5);
writeln(‘nomer chisla ‘,j);
End.
Билет 29.
1. Задать двумерный массив размером 5*5. Вывести массив в виде таблицы. Предусмотреть вывод элементов задаваемого столбца и задаваемой строки массива.
a:array [1..5,1..5] of real;
Источник: infopedia.su
Помогите составить программу по вычислению функции в TURBP PASCAL
Задание на скриншоте
< Вывод на экран меню >
writeln(‘+———————————————+’);
writeln(‘| 1. Ввод данных |’);
writeln(‘| 2. Вычисление функции и вывод результатов |’);
writeln(‘| 3. Завершение работы программы |’);
writeln(‘+———————————————+’);
p:=0;
M1: riteln(‘введите пункт меню’);
readln(n); < Ввод номера пункта меню>
case n of
1: begin < Ввод данных >
M2: write(‘Введите значение аргумента x=’);
readln(x)
Приложения:
Ответы на вопрос
Ответ:
Write(‘Введите значение функции x=’);
WriteLn(‘при x=’, x:7:2, ‘y =’, y:7:2);
Объяснение:
Источник: znanijam.net