Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
EkaterinaZeyb
24.05.2020 03:38 •
Информатика
Решите по информатике в програме "pascalabc.net" найти 10 значений выражения 1/х для случайных х из интервала от -10 до 20
Показать ответ
Ответ:
vaider222
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 оценок)
Популярные вопросы: Информатика
lavika1
16.05.2020 22:26
Составить программу в паскаль выражения: у=х/корень из (х-2). буду !...
bektemirova1
03.05.2022 05:22
Что такое программное обеспечение компьютера? какова его роль?...
yaroslavpilip
03.05.2022 05:22
Сколько сd объёмом 700 мбайт потребуется для размещения информации, полностью занимающей жёсткий диск ёмкостью 500 гбайт...
Aigerimmmmmmm
11.08.2021 21:05
даны дословные переводы компьютерных терминов 1.межлицевой 2.постоянная 3.переводчик...
neznaika167
18.09.2022 14:31
расшифровать сообщение, зашифрованное методом перестановок Бирои имч еыеес витсч арзки танет есарл лпюсп мотоо еипнф кйаои крслт мн...
teodor16090
16.12.2020 16:23
Complete the sentences using the new words Unit 21, ex.14,15,p. 140-141. (верещагина 6 класс) 1. It is difficult to choose a ……teacher for six-year-olds. 2. Children are usually …..,...
ajgizaahmetsina
16.12.2020 16:23
Розподіліть сполучення слів з частками в три колонки: модальні, словотворчі, формотворчі. Підказка - у кожній колонці повинно бути по 6 сполучень слів.Не прийшов, сказав будь-хто,...
fantomac718
24.07.2021 19:28
Подскажите, что за аккорд (снизу вверх) Ре#, Соль#, Си...
People200311
26.11.2021 03:51
Упражнение: Употребите косвенную речь1. She said, “Bill, open the window.” 2. Mother said, “Ring me up at 6 o clock.” 3. John said, “Take these flowers, Mary.” 4. The teacher said,...
карим113
06.04.2020 18:08
Present perfect.1) you the house door?( to paint)2) the car ? (why/you/not/to check/yet)3) so much money on fuel?( why/ Garry/to spend/again)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// 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