Написать программы в паскале. 1.сформировать 25 случайных вещественных чисел со значениями в интервале от 3700 до 9000, выделив в дробной части три разряда. поменять местами в целой части разряды сотен и десятков, в дробной части разряды единиц и десятков. 2.вывести значения 20-ти целых случайных чисел, перевёртыши этих чисел, количество разрядов и сумму цифр каждого числа. числа изменяются от 50 до 25000. 3.сформировать 30 случайных значений углов с долями градусов (два разряда в дробной части). вывести значения углов, целые значения градусов минут, секунд.

296

319

Посмотреть ответы 2

Ответы на вопрос:

olymaks74

Информатика

4,4(92 оценок)

// pascalabc.net 3.2, сборка 1478 от 10.06.2017 // внимание! если программа не работает, обновите версию! №1 function swp(self: array of real): sequence of real; extensionmethod; begin foreach var x in self do begin var s: =x.tostring; var p: =pos('.',s); swap(s[p-2],s[p-1]); swap(s[p+1],s[p+2]); yield s.toreal end end; begin var a: =seqrandom(25,3700000,9000000).select(x-> x/1000).toarray; a.println; a.swp.println end. пример 7523.959 7162.231 5141.402 8185.317 6123.038 5675.867 6710.577 7232.389 5076.099 7174.131 3805.721 6247.679 4859.791 7234.724 8596.392 6104.583 8676.872 8835.96 3862.549 8718.651 6409.72 5529.988 7028.17 5118.341 7680.518 7532.599 7126.321 5114.042 8158.137 6132.308 5657.687 6701.757 7223.839 5067.909 7147.311 3850.271 6274.769 4895.971 7243.274 8569.932 6140.853 8667.782 8853.69 3826.459 8781.561 6490.27 5592.898 7082.71 5181.431 7608.158 №2 function f(self: array of integer): sequence of string; extensionmethod; begin foreach var m in self do begin var (i,k,s): =(m,0,0); while i< > 0 do begin var d: =i mod 10; s+=d; k+=1; i: =i div 10 end; yield m+' '+m.tostring.inverse+' k='+k+', s='+s end end; begin arrrandom(20,50,25000).f.println(newline) end. пример 21183 38112 k=5, s=15 2840 0482 k=4, s=14 18397 79381 k=5, s=28 1852 2581 k=4, s=16 12844 44821 k=5, s=19 16749 94761 k=5, s=27 12366 66321 k=5, s=18 7603 3067 k=4, s=16 22472 27422 k=5, s=17 2569 9652 k=4, s=22 9893 3989 k=4, s=29 8648 8468 k=4, s=26 2182 2812 k=4, s=13 15769 96751 k=5, s=28 1800 0081 k=4, s=9 14343 34341 k=5, s=15 21030 03012 k=5, s=6 13545 54531 k=5, s=18 11942 24911 k=5, s=17 21695 59612 k=5, s=23 №3 function dms(self: array of real): sequence of string; extensionmethod; begin foreach var x in self do begin var g: =trunc(x); var t: =frac(x)*60; var m: =trunc(t); var s: =round(frac(t)*60); if s=60 then (m,s): =(m+1,0); yield g+'^'+m+''''+s+'"' end end; begin var a: =seqrandom(30,0,36000).select(x-> x/100).toarray; a.println; a.dms.println end. пример 322.82 85.26 90.26 340.37 239.69 192.67 184.99 243.02 229.13 218.63 319.76 143.79 120.41 343.85 340.58 309.83 159.38 298.8 91.11 235.01 227.81 37.14 159.01 67.35 256.18 356.7 5.16 17.14 261.35 25.8 322^49'12" 85^15'36" 90^15'36" 340^22'12" 239^41'24" 192^40'12" 184^59'24" 243^1'12" 229^7'48" 218^37'48" 319^45'36" 143^47'24" 120^24'36" 343^51'0" 340^34'48" 309^49'48" 159^22'48" 298^48'0" 91^6'36" 235^0'36" 227^48'36" 37^8'24" 159^0'36" 67^21'0" 256^10'48" 356^42'0" 5^9'36" 17^8'24" 261^21'0" 25^48'0"

Ildar298

Информатика

4,5(66 оценок)

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

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.