НАПИШИТЕ ПРОГРАММУ, ВЫЧИСЛЯЮЩУЮ ЗНАЧЕНИЕ ФУНКЦИИ:
у = <-1 при х<0,
у = <0 при х=0,
у=<1 при х>0.
Var x,y: integer;
begin
readln(x);
if x<0 then y:=-1
else if x=0 then y:=0 else y:=1;
writeln(‘y = ‘,y);
end.
Ответ оставил Ser012005
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Составить программу вычеслений значения функции : y = <1при x больше или равно 0 ; <0 при x< ; 0 ; одна фигурная скобка если что ?
Программа на паскале вычесление периметра пятиугольника?
Программа на паскале вычесление периметра пятиугольника.
Составить блок — схему и программу на Паскаль для вычисления функции?
Составить блок — схему и программу на Паскаль для вычисления функции.
Функция во вложении.
1. Составить программу, которая печатает четверостишье?
1. Составить программу, которая печатает четверостишье.
(четверостишье выбрать на свое усмотрение) Турбо Паскаль 7, 0.
Составить Паскаль — программу, содержащую процедуру для вычисления функции ?
Составить Паскаль — программу, содержащую процедуру для вычисления функции :
Вычислить значение функции y = 2sinx + 5 / x и составить программу в паскале?
Вычислить значение функции y = 2sinx + 5 / x и составить программу в паскале.
Помогите пожалуйста?
По этой функции нужно составить программу в Паскале!
Ничего не понимаю.
Создать программу на турбо паскаль?
Создать программу на турбо паскаль.
Помогите, пожалуйста, составить программу в Паскале на вычесление площади и периметра прямоугольника по его сторонам?
Помогите, пожалуйста, составить программу в Паскале на вычесление площади и периметра прямоугольника по его сторонам!
Что выполняет строчка write в программе турбо Паскаль ?
Что выполняет строчка write в программе турбо Паскаль ?
Как то так / / PascalABC. NET 3. 3, сборка 1573 от 04. 11. 2017 / / Внимание! Если программа не работает, обновите версию! Begin var i : integer ; var ur1 : = ReadReal('ur1 = ') ; var ur2 : = ReadReal('ur2 = ') ; var p : = ReadReal('p = ') ; for..
1. действие в скобках 2. Инверсия 3. Конъюнкция 4. Дизъюнкция.
Program sqrt ; var a, b : integer ; begin write('Введите N : ') ; read(a) ; b : = sqrt(100 + sqrt(98 + sqrt(96 + a + sqrt(2)))) ; writeln('Результат — ', b) ; end.
3 / 256 Мбайта = 1024 * 3 / 256 Кбайт = 12 Кбайт = 12 * 1024 байт = 12 * 1024 * 8 бит Память для одного символа = 12 * 1024 * 8 / 6144 = 16 бит Мощность алфавита = 2 ^ 16 = 16384.
Пользавателей которые зарегестрированны в почтовом индексе.
Это матрица, элементами которой являются 0 или 1.
Вот, этого нарисуй, там изи, получается в итоге норм.
Var S, tmp : real ; n, i : integer ; begin write('Введите n : ') ; readln(n) ; for i : = 1 to n do begin tmp : = 1 / ((2 * i + 1) * 3) ; S : = S + tmp ; end ; writeln(S : 8 : 10) ; readln ; end.
/ / PascalABC. NET begin write('Длина меньшей стороны : ') ; var a : = ReadlnReal ; writeln('Длина диагонали равна ', sqrt(a * a + 9 * a * a) : 8 : 3) end.
Рассчитать значения функции f(x) в целочисленном интервале Python
Дана функция, вычисляющая значение переменной y в зависимости от переменной x . Дан интервал целых чисел, которые может принимать переменная x.
Необходимо написать программу на языке Python, которая выведет в текстовый файл result.txt значения переменной y для каждого из предложенных x .
Точность значений *у* при распечатке установить в 3 знака после запятой.
Кодировка в текстовом файле должна быть Unicode. Путь к входному и выходному файлу в коде программы нужно сделать относительным.
Сваял вот такое:
Интересует правильность ввода формул, как сделать точность до 3 знаков после запятой, и конечно же ошибки которые есть в коде.