5. (20 ) в марксе будет открыто новое справочное бюро. целями данной
компании являются сбор и распространение информации о различных предприятиях.
создать базу данных номеров телефонов не составило труда. гораздо более сложной
стало структурирование номеров. номера бывают 5 видов: 3 сотовых и 2
стационарных. сотовые номера могут быть следующих видов: 11-значный с указанием
кода россии (7), внутрироссийский 11-значный (8), 10-значный
без восьмёрки и указания кода страны стационарные номера делятся на
старые и новые: новые - 6-значные с пятёркой впереди старые - 5-значные
нужно номера к следующему виду: для сотового - +7(-xx-xx,
для стационарного - +7(8772)5x-xx-xx. ваша состоит в структурировании
номера по заданному правилу.
примечание
исходные данные: вводится номер телефона одного из
описанных выше видов. гарантируется, что указанный
596488 +7(8772)59-64-88 | телефонный номер не содержит лидирующих нулей и
9627670918 +7(962)767-09-18 является 10- или 11-значным числом, если он сотовый,
80123456789 +7(012)34567-89 и 5- или 6-значным, если он стационарный.
результат: выведите структурированный номер
телефона,
125
460
Ответы на вопрос:
Type point=record x,y: real end; procedure getpoint(c: char; var a: point); var x,y: real; begin write('введите координаты x и y точки ',c,': '); read(x,y); a.x: =x; a.y: =y end; function distpoint(a,b: point): real; begin distpoint: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; var a,b,m: point; d,p,ab,ma,mb: real; begin getpoint('a',a); getpoint('b',b); getpoint('m',m); ab: =distpoint(a,b); ma: =distpoint(m,a); mb: =distpoint(m,b); if ma> =ab+mb then d: =mb else if mb> =ma+ab then d: =ma else begin p: =(ma+mb+ab)/2; d: =2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab end; writeln('минимальное расстояние составляет ',d) end. тестовое решение: введите координаты x и y точки a: -3 -5 введите координаты x и y точки b: 2 5 введите координаты x и y точки m: -3 4 минимальное расстояние составляет 4.02492235949962
Популярно: Информатика
-
dariak9831.05.2020 07:33
-
Bonnick07.07.2021 22:48
-
BooHazz26.11.2022 06:23
-
Анечка161129.08.2021 10:15
-
настёнканяш29.04.2022 04:21
-
missapikova09.11.2021 18:47
-
postnovat01.09.2021 04:58
-
65485005.09.2022 22:12
-
kirill88425.02.2020 19:31
-
kotia179906.05.2022 14:59