сервис вопросов и ответовСобственно, надо сделать то, что написано на фотике, помогите, пожалуйста.
10-11 класс|
|
Все говорят, что легко, а я сделать не могу :(
Прикрепленные изображения
Яga
25 июня 2016 г., 21:52:44 (7 лет назад)
Prettyvyatkina
25 июня 2016 г., 23:50:30 (7 лет назад)
Program Deil4ek1;
{Вычисление функции Y1 (без опреаторов and, or, not, xor)}
uses crt;
var x,y:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите X: ');
write('X = ');readln(x);
if abs(x)>2 then y:=abs(x)-2
else
if abs(x)>1 then y:=-abs(x)+2
else
y:=1;
writeln('При X =',x:8:2,' значение функции Y=',y:8:2);
end.
Program Deil4ek2;
{Вычисление функции Y2 (без опреаторa else}
uses crt;
var x,y:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите X: ');
write('X = ');readln(x);
if abs(x)>2 then y:=abs(x)-2;
if (abs(x)<=2) and (abs(x)>1) then y:=-abs(x)+2
if abs(x)<=1 then y:=1;
writeln('При X =',x:8:2,' значение функции Y=',y:8:2);
end.
Adelie
02 июля 2016 г., 11:46:59 (7 лет назад)
Ez a lúd elég kövér lett...csak ámulok és bámulok! Én rendszeresen használok fürjtojást, szerintem is érdemes többmindenhez kipróbálni. Mebyarkontháksen nem látni tökéletesebb ételt! Nagyon szép!
Kaydi
03 июля 2016 г., 5:32:28 (7 лет назад)
Heckuva good job. I sure apipacrete it.
Ответить
Другие вопросы из категории
Кто-нибудь может прямо построчно объяснить как это работает, и исправить код в случае ошибки?
function find(x:integer):boolean;
begin
if pos('7',IntToStr(x))=0
then result:=False
else result:=True
end;
const n = 1000;
var
a:array[1..n] of integer;
i:integer;i,o: file of text;
begin
AssignFile(i, 'Input.dat');
AssignFile(o, 'Output.dat');
Rewrite(o);
Reset(i);
for i:=1 to n do
дан массив, содержащий 70 неотрицательных целых чисел, не привышающих 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вы
вести сумму двух соседних элементов массива, имеющих одинаковую чётность. Гарантируется, что в массиве есть соседние элементы, имеющие одинаковую чётность.
В массиве из 10 целых чисел подсчитать сумму
элементов, стоящих правее минимального. на паскале
Устройство, предназначенное для согласования кабеля и предотвращающее появление отраженного сигнала, подсоединяемое на концах шины и к незанятым разъемам
пассивного разветвителя.
1) терминатор
2) активатор
3) концентратор
4) адаптер
5) коннектор
Читайте также
Ребят, объясните как сделать гиперссылку в презентации на другой слайд. Поясняю есть презентация, в ней 5 слайдов, первый слайд-это содержание, и мне нужно
сделать гиперссылку на другие 4 слайда из этого содержания. Помогите пожалуйста.
Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Найти сумму положительных элементов линейного массива целых чисел. Размерность массива - 10. Заполнение массива осуществить с клавиатуры.
Программу надо написать через МАССИВЫ!!!
Помогите пожалуйста, срочно!!!)
Вы находитесь на странице вопроса "Собственно, надо сделать то, что написано на фотике, помогите, пожалуйста.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.