Как возводить в квадрат в паскале

Возвести число в степень (циклом) на Pascal

Решение.
Для возведения числа A в степень N, необходимо число A умножить на самого себя N раз, т.е. организовать цикл по умножению числа A.

program functions_3; uses crt; var a: real; b: integer; function S(sa: real; sb: integer): real; var i: integer; x: real; begin x:=sa; if sb=0 then S:=1 else if sb '); read(a); write('B > '); read(b); write(a, '^', b, ' = ', S(a, b)); readkey; end.

Другое решение:

Uses Crt; Var a,n,i,p: Integer; Begin ClrScr; Write('n='); Readln(n); Write('a='); Readln(a); p:=1; For i:=1 To n Do p:=p*a; Write('p=',p); Repeat Until KeyPressed End.

Первое решение возводит в степень не только в положительную, но и в отрицательную степень.

Просмотр 0 веток ответов

Возведение в квадрат.

Здравствуйте, прошу помочь. Условие задачи, написать программу, которая возводит в квадрат числа от a до b, точнее требуется вот что, тест такой:

и от 10 до 20 все числа нужно возвести в квадрат помогите пожалуйста

а вообще нужно, чтобы любые числа можно вводить, а промежуток между ними возводился в квадрат )

Здесь вы можете заказать любую студенческую или школьную работу.

94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Возведение в квадрат.
Народ привет! Вообще прогулял пару, а на практике задали задание . Помогите решить! Даны три.

возведение чисел в квадрат
Даны действительные x,y. Если х и у положительные,то найти квадратные корни из х и у. Если только.

Возведение в квадрат только положительных чисел
Задача : Даны три действительных числа . Разработать прогу , которая возведет в квадрат только.

Требуется вывести квадратную матрицу, где первый квадрат-единицы, квадрат внутри него-нули, потом снова единицы и т.д.
Требуется вывести квадратную матрицу, где первый квадрат-единицы, квадрат внутри него-нули, потом.

4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310

1 2 3 4 5 6 7 8 9 10 11

program kk; uses crt; var i,a,b:integer; begin clrscr; write('Введите A и B: '); readln(a,b); for i:=a to b do writeln(i,'^2=',i*i); readln; end.

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr — квадрат числа, Abs — модуль числа, Sqrt — корень числа, а также известные всем математические функции Sin, Cos, Arctan, Ln, Exp, Pi.

Program number12; uses crt; var A, B:real; begin clrscr; A:=2.0; B:=Sqr(A); writeln('Sqr(2.0)=',B:4:2); B:=Abs(-A); writeln('Abs(-2.0)=',B:4:2); B:=Sqrt(A); writeln ('Sqrt(2)=',B:4:2); B:=Sin(A); writeln('Sin(2)=',B:6:3); B:=Cos(A); writeln('Cos(2)=',B:6:3); B:=Arctan(A); writeln('Arctan(2)=',B:6:3); B:=Ln(A); writeln('Ln(2)=',B:10:9); B:=Exp (A); writeln('Exp (2)=',B:10:9); B:=Pi; writeln('Pi=',B:10:9); readln end.

В строке №7 записывается функция Sqr. Это функция возведения числа в квадрат.

В строке №9 записывается операция нахождения модуля числа.
Функции Sqr и Abs мы разбирали в уроке Abs, Sqr в Pascal.

В строке №11 записывается функция Sqrt. Данная функция подсчитывает корень числа, стоящего в скобках после слова Sqrt. В нашем случае функция Sqrt будет считать корень из числа «2».

В строке №13 записываем функцию Sin. Данная функция будет подсчитывать синус числа, стоящего в скобках после записи функции.

Строка №15. Функция Cos подсчитывает косинус числа, стоящего в скобках после функции.

Строка №17. Функция Arctan вычисляет арктангенс числа, стоящего в скобках после записи функции.

Строка №19. Функция Ln подсчитывает логарифм числа, стоящего в скобках после записи функции.

Строка №21. Функция Exp возводит число «e» (экспонента — 2.72. ) в степень, значение которой указывается в скобках после слова Exp. Т.е. в нашем случае число «e» будет возведено в степень «2».

Строка №23. Переменной «B» будет присвоено значение числа «?».

Дополнение к материалу.

• Функции Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi определены только для вещественных (дробных) чисел.
• В Паскале не существует операции возведения в степень. Есть только операция возведения числа в квадрат (Sqr). Чтобы возвести число в степень используют операцию умножения. Например, чтобы возвести число 3 в 5-ю степень необходимо записать 3*3*3*3*3

Возведение числа в степень

Написать программу на языке Pascal, которая возводит число в целочисленную степень. Число и степень вводятся с клавиатуры.

Чтобы возвести число в степень, его надо умножить само на себя количество раз, равное показателю степени. То есть возведение числа n в степень d будет выглядеть так:

где индексы внизу просто указывают очередное по счету n .

Если d (степень) равна нулю, то какое бы число не стояло в основании степени, результат всегда будет равен единице:

В примере программы на языке Паскаль количество итераций (повторений) цикла равно модулю показателя степени числа (переменная deg ).

Если значение deg равно нулю, то цикл не выполнится ни разу. В результате переменная res будет содержать значение 1.

Если задан отрицательный показатель степени, то нужно разделить единицу на значение переменной res .

Программа на языке Паскаль:

var deg: integer; num, res: real; i: byte; begin write('Число: '); readln(num); write('Степень: '); readln(deg); res := 1; for i := 1 to abs(deg) do res := res * num; if deg < 0 then res := 1 / res; writeln(res:10:3); end.

Примеры выполнения программы:

Число: -3.2 Степень: 3 -32.768

Число: 5 Степень: -2 0.040

Вариант программы ниже позволяет возводить неотрицательное число в дробную степень:

var num, deg: real; res: real; begin write('Число: '); readln(num); write('Степень: '); readln(deg); res := exp(num * LN(deg)); writeln(res:10:3); end.

Число: 3.2 Степень: 2.9 30.177