Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на массивы

Автор: Zoom 22.03.2008 20:03

Дан массив из 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.