Выкройка - швейное изделие
географическая карта России - континент Евразия
архитектурный проект - здание
расписание занятий - графическое представление звонков
Всё перечисленное - инф. модели

0 0

4 года назад

Написать программу в Pascal ABC. Вычислить значение функции y(x) и вывести его на экран

Данил921

Progran Znanija;
var x, y:integer;

begin

readln(x);

if x<10 then
y:=2*x+x-5;

else
begin

if x<13 then
y:=5*x*x-x;

else
y:=7*x-5;

end

writeln(y);
end.

0 0

1 год назад

паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5

Алиса1108

Program chik;
var a:array[1..1000]of integer;
i,n:integer;
begin
readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(41)-20;
if(a[i]<0)then a[i]:=5;
end;
for i:=1 to n do
write(a[i],' ');
end.

0 0

3 года назад

Составить линейную программу на вычисление и вывод результата.

Валерий1972

# Код на ruby 2.2.3p173
def y(x)
 return -1 if x < -1
 return x if x < 1
 return 1 if x == 1
end

# Примеры применения
p y(-2)
p y(0)
p y(1)

0 0

4 года назад