М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
milka294
milka294
30.09.2020 07:25 •  Информатика

Мне через паскаль надо: даны два действительных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. раз-работать схему алгоритма для решения этой . протестировать алгоритм на числах 5.5 и -4.3, а так-же на числах 1 и 14.5.

👇
Ответ:
Azozylya
Azozylya
30.09.2020
Вот программа и результат теста (смотри скриншоты)
4,7(98 оценок)
Ответ:
dbrnjhbzybr
dbrnjhbzybr
30.09.2020
Программа:
var
  x, y, tmp: real;
 
begin
  writeln('Исходные числа:');
  write('X = ');
  read(x);
  write('Y = ');
  read(y);
  if x > y then
  begin
    tmp := x;
    x := 2 * x * y;
    y := (tmp + y) / 2;
  end
  else
  begin
    tmp := y;
    y := 2 * x * y;
    x := (tmp + x) / 2;
  end;
  writeln('Результат:');
  writeln('X = ', x);
  writeln('Y = ', y);
end.
Пример 1:
Исходные числа:
X = 5.5
Y = -4.3
Результат:
X = -47.3
Y = 0.6
Пример 2:
Исходные числа:
X = 1
Y = 14.5
Результат:
X = 7.75
Y = 29

Мне через паскаль надо: даны два действительных числа x и y, не равные друг другу. заменить меньшее
Мне через паскаль надо: даны два действительных числа x и y, не равные друг другу. заменить меньшее
Мне через паскаль надо: даны два действительных числа x и y, не равные друг другу. заменить меньшее
4,6(15 оценок)
Открыть все ответы
Ответ:

1 uses graphABC,crt;

2 var i,x,y,x2,y2,x3,y3: integer;

3 begin

4 setwindowsize(500,500);

5 lockdrawing;

6 hidecursor;

7 repeat

8 clearwindow;

9 setpenwidth(1);

10 setbrushcolor(clblack);

11 circle(250,200,20);

12 setbrushcolor(clbrown);

13 rectangle(100,200,400,400);

14 setbrushcolor(clwhite);

15 roundrect(110,210,350,390,40,40);

16 for i:=1 to 10000 do

17  putpixel(random(235)+112,random(171)+215,clblack);

18 setbrushcolor(clblack);

19 for i:=1 to 5 do

20 circle(375,210+(i*25),10);

21 circle(375,370,15);

22 setbrushcolor(clwhite);

23 rectangle(372,360,378,380);

24 setpenwidth(5);

25 x:=250; y:=197;

26 x2:=x-40-random(10);

27 y2:=y-150-random(10);

28 x3:=x++40+random(10);

29 y3:=y-150-random(10);

30 line(x,y,x2,y2);

31 line(x,y,x3,y3);

32 circle(x2,y2,10);

33 circle(x3,y3,10);

34 sleep(2);

35 redraw;

36 until keypressed;

37 end.

4,7(85 оценок)
Ответ:
mixfix2017
mixfix2017
30.09.2020

Ворд - простой текстовый редактор, где работается просто и легко в том случае, если знаешь все нюансы работы ворд.

Итак, чтобы сделать оглавление в ворде автоматически, нужно сначала разбить документ на разделы с заголовками, а потом перейти во вкладку "Главная" - "Стили". К названиям разделов, которые требуется внести в содержание, примените соответствующие стили. Например, для названий разделов можно применить «Заголовок 1», а для подразделов «Заголовок 2».

Затем перенесите курсор в место, куда нужно разместить оглавление.

Перейдите во вкладку «Ссылки» и выберите раздел «Ссылки». Из появившегося списка выберите «Автособираемое оглавление» или «Ручное оглавление».

Кроме того, можно составить оглавление вручную и даже его обновить. Как это сделать, читайте статью, где всё подробно расписано:

Объяснение:

4,8(75 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ