elozinskaya
?>

17. Вычислите функции y=x+10, y=-x+60 при зна-чениях х -6; 1; ...; 57 и постройте сравнительную диаграм-му значений функций у1 и у2​

Информатика

Ответы

ninaandreeva3179
Как-то так)

var a,b,c,d,e,f:integer;
function nod(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n
       else n:=n-m;
nod:=m
end;
begin
write('введите числитель1, знаменатель1, числитель2, знаменатель2');
readln(a,b,c,d);
e:=a*d+b*c;
f:=b*d;
 if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('сложение =  ',e) 
      else begin
       e:=e div nod(abs(e),f); 
       f:=f div nod(abs(e),f); 
       writeln('сложение =  ',e,'\',f); 
       end;
e:=a*c;
f:=b*d;
 if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('умножение = ',e)
else begin
 e:=e div nod(abs(e),f);
       f:=f div nod(abs(e),f);
       writeln('умножение =  ',e,'\',f);
         end;
e:=a*d;
f:=b*c;
if f=0 then write('на 0 делить нельзя')
else
         if e=0 then writeln('деление=  ',e)
else begin e:=e div nod(abs(e),f);
       f:=f div nod(abs(e),f);
       writeln('деление =  ',e,'\',f); 
        end; 
     end.
Sergei1805
Вот код программы, я думаю в нём алгоритм видно?)

 int a; int b;           
Console.WriteLine("Введите первое число");   
 a = int.Parse( Console.ReadLine());           ///1)Вводим первое число
 Console.WriteLine("Введите второе число"); 
  b = int.Parse(Console.ReadLine());           ///2) Вводим второе число
 
if (a < b) Console.WriteLine("Меньше а = " + a);    ///3)Сравниваем, если а<b пишем а
if (a > b) Console.WriteLine("Меньше b = " + b);    ///4)Сравниваем, если а>b пишем b
if (a == b) Console.WriteLine("а = b = " + a);          ///3)Сравниваем, если а=b пишем а
       
   Console.ReadLine();

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

17. Вычислите функции y=x+10, y=-x+60 при зна-чениях х -6; 1; ...; 57 и постройте сравнительную диаграм-му значений функций у1 и у2​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Татьяна902
Сергеевич1386
razumeiko0790
energycomplect5914
Bogataya Vladimir318
Дмитрий-Олейникова
ganzashop
Вадимовна
Aleksei1463
tcmir
vnolenev
Gennadievna bessonov
e-s-i-k
Oksana-Kirakosyan1301
Mbkozlov6