Войти Регистрация Спроси ai-bota

Решите по информатике в програме "pascalabc.net" найти 10 значений выражения 1/х для случайных х из интервала от -10 до 20

Ответ:

narmanbet

06.10.2020 09:35

1. Короткий вариант
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
SeqRandom(10,-10,20).Select(x->(x,1/x)).Println(NewLine)
end.

Пример
(13,0.0769230769230769)
(-10,-0.1)
(9,0.111111111111111)
(-5,-0.2)
(14,0.0714285714285714)
(18,0.0555555555555556)
(15,0.0666666666666667)
(3,0.333333333333333)
(-5,-0.2)
(-9,-0.111111111111111)

2. "Красивый" вариант
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
SeqRandom(10,-10,20).Select(x->(x,1/x))
      .Foreach(x->Writeln(x[0]:3,x[1]:15:8))
end.

Пример
18     0.05555556
-10    -0.10000000
16     0.06250000
6     0.16666667
15     0.06666667
13     0.07692308
5     0.20000000
18     0.05555556
-1    -1.00000000
13     0.07692308

3. А так писали наши деды четверть века назад...

var
i,x:integer;
begin
Randomize;
for i:=1 to 10 do begin
    x:=Random(31)-10;
    Writeln(x:3,1/x:15:8)
    end
end.

Пример
-7    -0.14285714
11     0.09090909
-2    -0.50000000
-10    -0.10000000
14     0.07142857
-7    -0.14285714
-5    -0.20000000
5     0.20000000
13     0.07692308
10     0.10000000

0,0(0 оценок)

Популярные вопросы: Информатика

bykhan2

17.07.2020 17:46

Три подруги вышли в белом,зелёном,синем платьях.их туфли были одного из этих цветов.известно,что у ани цвет платья и туфель .у вали ни платье,ни туфли не были белыми.наташа была...

Trinogie

17.07.2020 17:46

Втерминологии сетей тср/ip маской подсети называется 32-разрядное двоичное число, определяющее, какие именно разряды ip-адреса компьютера являются общими для сей подсети - в этих...

влада12342

22.05.2021 12:39

Объясните почему получается var s, k, i: integer; begin s:= 3; i:=0 ; for k:= 0 to 9 do s:=s+2; i:=i+1; writeln(s+i); end....

утляоврчвливтвымив

27.01.2023 07:36

нужно написать арограмму на языке python. ...

простониккакойтотам

15.10.2020 20:20

У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Альфа увеличивает число...

яЭльф

06.10.2021 13:45

это сор Напишите программу. Заполните список, состоящего из 8 элементов, случайными числами от 30 до 70. Выведите на экран список и сумму элементов массива. *...

panda312

29.01.2023 01:00

Продолжите программу, чтобы рисовалась любая введённая цифра от 0 до 9PascalABC...

sashka4erepashka

01.11.2020 22:12

Кроссворд на тему компьютер...

HeeeeelpPlz

19.10.2022 14:54

Как ведет себя робот с ультрозвуковым датчиком на площадке при запуске программы...

tanya150452

11.04.2022 14:04

Что производит следующий фрагмент программы randomize; write( число элементов ); readln(n); for i:=1 to n do begin a[i]:=random(45)-22; end; write(n) * заполняет массив одинаковыми...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку