Написать программу к формуле d=(|x|-|y|)/(1+|xy|)

Знания

Информатика

1 ответ:

ирина13064 года назад

0 0

Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.

Читайте также

Составить алгоритм нахождения суммы 15 положительных чисел, которые генерируются случайным образом.(блок схемой)

грустная учительница

var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write('s=',s);
end.

0 0

4 года назад

В чём сходство и различие CD и DVD?

Катерина9506

CD это где музыка, DVD это где фильмы кино сериалы мультики

0 0

4 года назад

КАК НАЗЫВАЕТСЯ ШТАНГИ, БРУСЬЯ, КОЛЬЦА, КАНАТ, КОНЬ ДАЙ НАЗВАНИЯ ЭТОМУ МНОЖЕСТВУ

Наталья Журавченко

Спортивный инвентарь, советские тренажеры - выбери, как больше нравится

0 0

4 года назад

определите значение переменной с после выполнения фрагмента алгоритма, записанного в виде блок-схемы:( вложение)В ответ укажите

gerandios [34]

Алгоритм содержит цикл с предусловием. Цикл выполняется до тех пор, пока b≠5. Начальное значение b=10, а в теле цикла b уменьшается каждый раз на 1, т.е. цикл будет выполнен для b=10,9,8,7,6 - пять раз.
В цикле переменная с накапливает сумму значений b, следовательно по окончании цикла с = 10+9+8+7+6 = 40

Ответ: 40

0 0

3 года назад

Введите целое число от 10-999 а)определить количество знаков в числе б)определить,кратно ли 3

ЮлияЦыганова

//PacsalABC.Net
// (c) NaaMan

var
   s : integer;
begin
   write('Введите число (10-999): ');
   readln(s);

   writeln('В числе ', s, ' ', s.ToString.Length, ' знака');

   write('Число ', s);
   if s mod 3 = 0 then
       write(' кратно')
   else
       write(' не кратно');
   writeln(' трём')
end.

0 0

4 года назад