Дан массив из 5 вещественных чисел в нём надо найти элемент в котором наибольшее кол-во подряд идущих нулей нулей.
Ozzя
22.03.2008 21:06
Не вижу проблемы. Как вариант: Взять дробную часть (Frac). Перевести ее в строку (str). А уж нахождение "наибольшее кол-во подряд" решалось много-много раз. Поиск Вам поможет.
Zoom
22.03.2008 21:14
Пользоваться строками запрещено. Пытаюсь перевести число в целое путём умножения его на 10 в цикле а потом с помощью div и mod находить каждый символ в числе. Но проблема почему то после выполнения числа получаются аж в 12 степени
Код
Program asd; uses crt; var i,k,y:longint; s,s1:string; a:array[1..4] of real; begin clrscr; writeln('Vvedite 4 chisla');
For i:=1 to 4 do begin readln(a[i]);
while frac(a[i])<>0 do a[i]:=a[i]*10; end;
For I:=1 to 4 do {y:=round(a[i]);} writeln(a[i]); end.
Ozzя
22.03.2008 21:22
Целую часть - отдельно. Дробную - отдельно. Дробную - умножением на 10 и переводом в целое. Далее выделяешь остатки от деления нацело (mod) и проверка.
Zoom
22.03.2008 21:41
А не подскажите ли условие при котором проверяется достигла ли дробная часть целого числа, а то я понял что frac не подходит в цикле с предусловием?
andriano
22.03.2008 23:06
Опять условие предполагает уточнение, которое какжется очевидным всем кроме меня? Если речь идет о числе, а не о его текстовой записи, то нули могут быть только одного вида - двоичные. Т.е. число следует проверять поразрядно на количество подряд идущих разрядов, установленных в 0.
Client
22.03.2008 23:19
Цитата
А не подскажите ли условие при котором проверяется достигла ли дробная часть целого числа, а то я понял что frac не подходит в цикле с предусловием?
Т.е. если было 0,123 то тебе надо чтоб стало 123? тогда
while frac(x)>0 do x:=x*10
Так, на этом же примере цикл выполнился больше раз чем нужно, поэтому можно записать
while frac(x)>0.00000001 do x:=x*10
Zoom
22.03.2008 23:25
Можь кто скажет почему у меня после умножения дробной части на 10 , в ответе выводится число со степенью 12(мне стока ноликов не надо)
Код
Program asd; uses crt; var i,k:longint; x,y,z:real; s:string; a:array[1..4] of real; begin clrscr; writeln('Vvedite 4 chisla');
For i:=1 to 4 do begin readln(a[i]); y:=frac(a[i]); x:=int(a[i]); While frac(y)>0 do begin y:=y*10; end; writeln(x,' ',y); end; end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.