Возвращает целую часть значения переменной a. При этом значение, возвращенное функцией, будет вещественным.
sqr(a) — функция
Возвращает квадрат значения переменной a.
sqrt(a) — функция
Возвращает корень значения переменной a.
sin(a) — функция
Возвращает синус значения переменной a. При этом значение переменной должно быть указано не в градусах, а в радианах.
Пример для угла в 90° с переводом градус в радианы :
x = 0.999999682931835 //не 1 из-за погрешности с числом Пи.
cos(a) — функция
Возвращает косинус значения переменной a. При этом значение переменной должно быть указано не в градусах, а в радианах.
Пример для угла в 180° с переводом градус в радианы :
x = -0.999998731727539 //не -1 из-за погрешности с числом Пи.
ln(a) — функция
Возвращает натуральный логарифм a.
exp(a) — функция
Возвращает экспоненту с параметром a.
trunc(a) — функция
Возвращает целую часть значения переменной a. При этом значение, возвращенное функцией, будет целым.
Программа решения квадратного уравнения. Паскаль 5.
frac(a) — функция
Возвращает дробную часть значения переменной a.
random(a) — функция
Возвращает случайное целое число между нулём и значением переменной a.
x — случайное число от 0 до 5.
inc(a,b) — процедура
Инкремент. Увеличивает значение переменной a на значение переменной b.
Может быть применена без второй переменной, в этом случае значение аргумента увеличится на 1.
dec(a,b) — процедура
Декремент. Уменьшает значение переменной a на значение переменной b. По своей сути является противоположностью инкремента.
Может быть применена без второй переменной, в этом случае значение аргумента уменьшится на 1.
Источник: infbu.ru
Паскаль программа решение функции
можно предположить, что ты пишешь на Delphi, а значит можешь использовать int64 и не париться.
kakawkin, для 17! нет смысла писать длинную арифметику, т.к. даже в TP можно тупо использовать вещественный тип. Но зато с помощью твой программы можно посчитать большие факториалы, если надо. Но сейчас вроде не надо.
Регистрация: 04.02.2009
Сообщений: 18,136
Ну можно применить индейскую хитрость и воспользоваться табличным методом. Факториал по сути что? Константа. Вот и забейте в строковой массив числа, че их считать каждый раз — медленно и не уютно, длинные арифметики, в диапазон не уложитесь и пр. Ну скажем факториал до 100. Пользователь вводит номер элемента массива (например факториал 17!), а вы с 17-го элемента массива выводите ответ.
Дешево и сердито.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Форумчанин
Регистрация: 16.04.2009
Сообщений: 247
Utkin, первоначальной задачей было написать функцию вычисления факториала, а не программу, которая выдает факториал заданного числа, всё равно каким способом его получая.
Процедуры и функции решение на Pascal ABC
[Оффтоп.] А так вообще — хороший способ, я сам им пользовался, например, когда в какой-то задаче(олимпиадной) требовалось рассчитать дружественные числа, а ограничение по времени было жестким, то сначала я реализовал медленный алгоритм, ждал минут 10, пока всё посчитается, а потом забил таблицу с результатами в решение. Помогает .
Источник: www.programmersforum.ru
ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ НАДО:
1. Напишите на языке Паскаль программу вычисления y по формуле:
y = ( 1- x2 + 5×4 )2, где x — данное целое число.
2. Перепишите программу на языке Паскаль, исправив ошибки:
Program primer
Var a,b: integer;
Begin ;
ReadLn( a,b);
s=a+b;
m:=a*b;
d:=a:b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления:
а) y=x10 б) y=x15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c
Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Ответы 2
Программы для решения задач — в прилагаемом файле.
1 задачаvar x : integer;begin readln(x); x := sqr(1 — x*x + 5*x*x*x*x); writeln(x);end.2 задачаProgram primer;Var a,b,s,m: integer; d : double;Begin ReadLn(a,b); s:=a+b; m:=a*b; d:=a/b; WriteLn(s); WriteLn(m); WriteLn(d)End.3 задача Тупой вариант без дополнительной переменной а) y := x*x*x*x*x*x*x*x*x*x; б) y := x*x*x*x*x*x*x*x*x*x*x*x*x*x*x; Вариант покороче в записи, правильный с циклом, но нужна ещё 1 переменная i : integer a) y :=x; for i := 1 to 9 do y := y * x; б) y :=x; for i := 1 to 14 do y := y * x;4 задачаVar a, b, c, reg: integer; d : double;Begin Readln (a,b,c); reg := a; a := b; b := c; c := reg; Writeln(a,’ ‘,b,’ ‘,c);End.
Добавить свой ответ Ответить на вопрос
Последние вопросы
Источник: znanija.site