Найти все числа, у которых старшая значащая десятичная цифра есть 9

@Ranger50 · Регистрация: 30.10.2008

Студворк — интернет-сервис помощи студентам

В заданном вещественном массиве найти все числа,у которых старшая значащая дестичная цифра есть 9(числа сильно различаются по величине).
\например число 892 тут есть цифра 9 значит выводим его\

@MadMag · 14.11.2008, 19:25

Сам пробовал?

@Puporev · 14.11.2008, 20:35

Вообще-то старшая (имеется в виду разряд) цифра, это первая цифра в целой части числа.

@MadMag · 14.11.2008, 20:44

может в его представлении имеется ввиду...типа....
8.9200000000000000-0000
как то так, и получается что первая значащая в десятичной части - 9...не уверен, но похоже на правду.

@Puporev · 14.11.2008, 21:05

Я бы решал примерно так.

Code
1
2
3
4
5
6
for i:=1 to n do
   begin
    str(a[i],s);
    if ((s[1]<>'0')and(s[1]<>'-')and(s[1]='9')) 
    or ((s[1]='-')and(s[2]='9')) then write(a[i]:5:2);
  end;

@Ranger50 · 19.12.2008, 14:30 **[ТС]**

В заданном вещественном массиве найти все числа,у которых старшая значащая дестичная цифра есть 9(числа сильно различаются по величине).

доработайте код! никак не получается!

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses crt;
 Var n,i:byte;
     s:array [byte] of real;
     a:array [byte] of real;
 begin
  Randomize;
  clrscr;
  write('Vvedite kol-vo elementov massiva:');
  readln(n);
  writeln('Masiv:');
 for i:=1 to n do
  begin
   str(a[i],s);
   if ((s[1]<>'0')and(s[1]<>'-')ans(s[1]='9'))
   or((s[1]='-')and(s[2]='9'))then write(a[i]:5:2);
  end;
 end.

@Xentar · 19.12.2008, 15:03

И это у тебя работает ?
у тебя это сразу ошибку выдаст !
Попробуй написать нормальный код, а не присваивать строковое значение вещественной переменной.

Добавлено через 3 минуты 26 секунд
К тому же что значит :

Сообщение от Ranger50

старшая значащая дестичная цифра

Это имеется ввиду старший разряд числа ? или что ?

@Ranger50 · 19.12.2008, 15:10 **[ТС]**

короче если в цисле есть цифра 9 то выводим это число

Добавлено через 2 минуты 7 секунд
а как дальше делать незнаю!да тут никаких строк ненадо,массив и только!

@Xentar · 19.12.2008, 15:12

Code
1
2
3
var i:integer;
i:=9;
writeln(i);

если хочешь большего, напиши задание яснее.

Добавлено через 31 секунду
а нафига ты использовал перевод в строку ?

Добавлено через 58 секунд
ЗЫЖ - где у тебя "СТАРШАЯ значащая цифра" ?

Добавлено через 38 секунд
по первому посту, я так понял что в старшем разряде .
По второму - что в любом месте.

@GalaX · 19.12.2008, 15:17

может что-то типа такого должно быть?:

Pascal
1
2
3
4
5
6
7
Var s : string;
...
for i:=1 to n do
begin
str(a[i],s);
if (s[1]='9') or ((s[1]='-') and (s[2]='9')) then writeln(a[i]:5:2);
...

@Ranger50 · 19.12.2008, 15:21 **[ТС]**

ну как я написал такое задание и есть!тут надо сгенерировать числа......и если например в числе 23495456 есть цифра 9 то это число вывести!а если 34857834 то нет

Добавлено через 36 секунд
я вроде так понял!

@Puporev · 19.12.2008, 15:42

Если числа вещественные, то сначала рассматривается целая часть числа, если оно >1. Известным способом число разлагается на цифры и смотрят первую. Если это 9, выводим число. Если число <1, то его умножают на 10 до тех пор, пока оно не станет >1. Опять смотрят целую часть, которая сейчас состоит из 1 цифры и нет проблем. Для сведения обрабатывать целую часть числа надо в виде abs(trunc(a[i]);

@Ranger50 · 19.12.2008, 15:47 **[ТС]**

млин помогите..........

@Puporev · 19.12.2008, 18:02

Чего, млин, не помогают? Вот написал то, о чем говорил, но тоже есть недостатки. Дело в том, что если первая 9, то целая часть можнт быть не более 4 цифр, т.к. и trunc и round преобразуют в integer, а с ним не разгонишся. Может еще кто что придумает.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Uses crt;
function Sept(x:real):boolean;
var n,m,d:integer;
    r:real;
begin
if x>1 then
   begin
     n:=abs(trunc(x));
     while n>0 do
       begin
         m:=n mod 10;
         n:=n div 10;
       end;
     d:=m;
   end
else if x<1 then
     begin
       r:=abs(frac(x));
       while r <1 do
       r:=r*10;
       d:=trunc(r);
     end;
if d=9 then Sept:=true
else Sept:=false;
end;
Var n,i:byte;
a:array [byte] of real;
begin
clrscr;
write('Vvedite kol-vo elementov massiva:');
readln(n);
writeln('Masiv:');
for i:=1 to n do
read(a[i]);
readln;
for i:=1 to n do
if Sept(a[i]) then
writeln(a[i]:4:8);
readln
end.

@Ranger50 · 19.12.2008, 20:23 **[ТС]**

а без процедур и функции можно как нить???

@Puporev · 19.12.2008, 21:16

Во первых процедур нет вообще, а функция одна. Можно и без нее, если то, что там написано, писать при прверке каждого числа. Вы вообще программировать учитесь или спринтом занимаетесь? Советую перейти на бокс, слово функция забудете через неделю.

10.05.2011, 17:47

как решить эту же задачу в Qbasic?

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@Ranger50 2 / 1 / 0 Регистрация: 30.10.2008 Сообщений: 21

	Найти все числа, у которых старшая значащая десятичная цифра есть 9 14.11.2008, 19:02. Показов 5175. Ответов 16 Метки нет (Все метки) В заданном вещественном массиве найти все числа,у которых старшая значащая дестичная цифра есть 9(числа сильно различаются по величине). \например число 892 тут есть цифра 9 значит выводим его\ 0

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	14.11.2008, 19:25
	Сам пробовал? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.11.2008, 20:35
	Вообще-то старшая (имеется в виду разряд) цифра, это первая цифра в целой части числа. 0

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	14.11.2008, 20:44
	может в его представлении имеется ввиду...типа.... 8.9200000000000000-0000 как то так, и получается что первая значащая в десятичной части - 9...не уверен, но похоже на правду. 0

@Ranger50 2 / 1 / 0 Регистрация: 30.10.2008 Сообщений: 21
	19.12.2008, 15:10 [ТС]
	короче если в цисле есть цифра 9 то выводим это число Добавлено через 2 минуты 7 секунд а как дальше делать незнаю!да тут никаких строк ненадо,массив и только! 0

@Ranger50 2 / 1 / 0 Регистрация: 30.10.2008 Сообщений: 21
	19.12.2008, 15:21 [ТС]
	ну как я написал такое задание и есть!тут надо сгенерировать числа......и если например в числе 23495456 есть цифра 9 то это число вывести!а если 34857834 то нет Добавлено через 36 секунд я вроде так понял! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.12.2008, 15:42
	Если числа вещественные, то сначала рассматривается целая часть числа, если оно >1. Известным способом число разлагается на цифры и смотрят первую. Если это 9, выводим число. Если число <1, то его умножают на 10 до тех пор, пока оно не станет >1. Опять смотрят целую часть, которая сейчас состоит из 1 цифры и нет проблем. Для сведения обрабатывать целую часть числа надо в виде abs(trunc(a[i]); 0

@Ranger50 2 / 1 / 0 Регистрация: 30.10.2008 Сообщений: 21
	19.12.2008, 15:47 [ТС]
	млин помогите.......... 0

@Ranger50 2 / 1 / 0 Регистрация: 30.10.2008 Сообщений: 21
	19.12.2008, 20:23 [ТС]
	а без процедур и функции можно как нить??? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.12.2008, 21:16
	Во первых процедур нет вообще, а функция одна. Можно и без нее, если то, что там написано, писать при прверке каждого числа. Вы вообще программировать учитесь или спринтом занимаетесь? Советую перейти на бокс, слово функция забудете через неделю. 0

msi92
	10.05.2011, 17:47
	как решить эту же задачу в Qbasic?