IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Глюки!!!
сообщение
Сообщение #1


Гость






Помогите кто может!
Такая часть программы: вводится число,все его цифры записываются в массив.Если это число заканчивается на 1 то вместо того чтобы записать 1 в массив оно пишет 0.Вот код программы:program chisla;
Код
const
k1=12;
var
S:array[1..k1] of integer;
A:array[0..9] of integer;
M:array[0..9] of integer;
k,c,g,c1:integer;
n:longint;
n1:real;
begin
writeln('Введите число');
readln(n);
n1:=n;
k:=0;
while n1>1 do
 begin
   n1:=n1/10;
   k:=k+1;
   s[k]:=trunc((n1-trunc(n1))*10);
 end;
 for n:=0 to 9 do
  begin
  c1:=0;
   for g:=1 to k do
    if s[g]=n then c1:=1;
    if c1=1 then c:=c+1;
  end;
writeln('Используется цифр:',c);
for n:=0 to 9 do
begin
for g:=1 to k do
 if s[g]=n then m[n]:=m[n]+1;
 if m[n]<>0 then writeln(n,': ',m[n]);
 end;
readln;
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


ты зря сделал через вещественный тип...

Вот нормальный пример:

Код
var
 n: Longint;
 t: Byte;
 m: array[0..9] of Byte;
begin
 writeln('Введите число');
 readln(n);
 if n<0 then  n := -1*n;
 while n<>0 do
 begin
   t := n mod 10;
   n := n div 10;
   inc(m[t]);
 end;
 n := 0;
 for t := 0 to 9 do
   if m[t]>0 then Inc(n);
 writeln('Используется цифр:', n);
 for t := 0 to 9 do
   if m[t]>0 then writeln(t,': ',m[t]);
 readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 22.10.2017 13:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"