Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
роллы6
24.08.2021 20:31 •
Информатика
Написать программу которая выводит на экран значений функции у=|х|. диапазон изменения аргумента-от4 до -4, шаг приращения .5)
Показать ответ
Ответ:
shlama283
03.07.2020 16:21
Если я правильно понял,то так
uses crt;
varx,y:real;
beginx:=4;
while x>(-4.5) do begin
y:=abs(x);
x:=x+(-0.5);
write(y,' ');
end;
end.
0,0
(0 оценок)
Ответ:
kudar2
03.07.2020 16:21
Вот так:
const
LB=-4;
HB=4;
DX=0.5;
var
x,y : real;
n,i :integer;
begin
writeln('значения');
n:=round((HB-LB)/DX)+1;
x:=LB;
for i:= 1 to n do
begin
y:=abs(x);
writeln(x:6:2,y:6:2);
x:=x+DX;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Навруза
27.06.2021 05:56
Составьте программу для вычисления площади фигур (pascal abc)...
theknow14
27.06.2021 05:56
1. представить римские числа в десятичной системе счисления: cdix, cvxlix, mccxix 2. перевести число 93710 в 2-ную, 8-ную и 16-ную системы счисления. 3. перевести из 8 -ой...
карамба111
23.07.2020 18:27
1)Найдите все значения натуральных чисел X,Y,Z из интервала от 1 до 10,удовлетворяющих равенству: x^2+y^2=z^2 Заранее...
matvee1
22.02.2023 02:31
Цель людей, создающих компьютерные вирусы ( не менее 75-90 слов)...
Viktor2017Kot
16.09.2022 05:36
Укажите наиболее правильный ответ. Электронная почта …...
SUPERMODEL
09.01.2023 22:58
В каком наборе есть лишнее устройство? A- клавиатура, сканер, мониторB- монитор, принтер, звуковые колонки.C- жёсткий диск, дискета, компакт-диск.D- все наборы не содержат...
ananimka456
26.03.2022 09:40
Расшифруйте двузначный код...
Polinakovta
15.09.2020 15:54
Складіть блок-схему алгоритму, у якому потрібно задумати число та відняти від нього 1, якщо воно менше ніж 8; додати до нього 15, якщо воно не менше ніж 8, але менше ніж 30;...
bonchuk2009
10.03.2022 08:43
Почему не работает левый наушник модели i11. Не горит индикатор и не реагирует на отпечаток...
Про100карина666
10.03.2020 22:53
Написать программу вычисления площади поверхности куба через длину ребра (S = 6 ⋅ a2)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
varx,y:real;
beginx:=4;
while x>(-4.5) do begin
y:=abs(x);
x:=x+(-0.5);
write(y,' ');
end;
end.
const
LB=-4;
HB=4;
DX=0.5;
var
x,y : real;
n,i :integer;
begin
writeln('значения');
n:=round((HB-LB)/DX)+1;
x:=LB;
for i:= 1 to n do
begin
y:=abs(x);
writeln(x:6:2,y:6:2);
x:=x+DX;
end;
end.