1. Побудувати графік функції: y=3*x-4 2. Побудуйте в одній системі координат графіки функцій y = -1,5*x i y = -6 та знайдіть координати їх перетину. До іть будьласка !
Программа 1. program p1; var x:integer; begin write ('x='); read (x); if x>0 then writeln ('Число x положительное.'); if x=0 then writeln ('Число x нейтральное.'); if x<0 then writeln ('Число x отрицательное');end. Программа 2. program p2; var x,y,z,s:real; begin write ('x='); read (x); write ('y='); read (y); write ('z='); read (z); if x>0 then s:=s+x; if y>0 then s:=s+y; if z>0 then s:=s+z; if x+y+z<=0 then writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.'); if x+y+z>0 then writeln ('s=', s); end.
Розы - 38 млн. , пионы - 3 млн. , розы AND пионы - 4 млн. , розы OR пионы - 2 млн. , -розы пионы 4 млн.
Человек-
чтение газеты человеком
строительство дома людьми
Общение с друзьями
Хождение в ресторан
Игра в волейбол
Животный мир-
принятие определённой позы собакой при приближении соперника
общение дельфинов между собой
виляние хвостом у собак
Беганье за палкой
Игра волчат
Растительный мир-
Опадение листвы
рост побегов
сезонные изменения в природе
Начало дождя
Рост дерева
Технические системы-
вождение автомобиля
Деланье уроков
гулянка
Стройка самолета
Готовка еды в массовом производстве
program p1;
var x:integer;
begin
write ('x=');
read (x);
if x>0 then
writeln ('Число x положительное.');
if x=0 then
writeln ('Число x нейтральное.');
if x<0 then
writeln ('Число x отрицательное');end.
Программа 2.
program p2;
var x,y,z,s:real;
begin
write ('x=');
read (x);
write ('y=');
read (y);
write ('z=');
read (z);
if x>0 then
s:=s+x;
if y>0 then
s:=s+y;
if z>0 then
s:=s+z;
if x+y+z<=0 then
writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.');
if x+y+z>0 then
writeln ('s=', s);
end.