Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
angel99%
0 / 0 / 0
Регистрация: 22.07.2010
Сообщений: 7
#1

колличество разрядов для любого целого числа(допустимого для данного типа)

22.07.2010, 14:38. Просмотров 558. Ответов 2
Метки нет (Все метки)

Написать программу, определяющую количество разрядов для любого целого числа (допустимого для данного типа). Написать функцию, подсчитывающую количество цифр в числе (входной параметр:целое число). помогите не как неполучается!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.07.2010, 14:38
Ответы с готовыми решениями:

Описать функцию Sign(X) целого типа, возвращающую для вещественного числа заданные значения
Описать функцию Sign(X) целого типа, возвращающую для вещественного числа X...

Для любого целого k обозначим
Для любого целого k обозначим количество цифр в его десятичной записи через...

Сдвинуть циклически значения разрядов целого числа на одну позицию влево
Добрый вечер, помогите мне пожалуйста решить задачку) Сдвинуть циклически...

Описать функции DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К
Proc30 Описать функци DigitN(K,N) целого типа, возвращающую N-ю цифру...

Напишите функцию, которая для любого целого аргумента определяет количество четных цифр в его записи
1)Напишите функцию, которая для любого целого аргумента определяет количество...

2
DeLuxe
156 / 158 / 93
Регистрация: 01.01.2010
Сообщений: 399
22.07.2010, 15:19 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
function count(n:longint):integer;
var k:integer;
begin
k:=0;
while n<>0 do begin
inc(k);
n:=n div 10;
end;
count:=k;
end;
var n:longint;
begin
clrscr;
write('n=');
readln(n);
write(count(n));
readln
end.
0
Jabbson
Эксперт по компьютерным сетям
3348 / 2423 / 746
Регистрация: 03.11.2009
Сообщений: 7,759
Записей в блоге: 3
22.07.2010, 15:36 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program chislo;
 uses crt;
var a:longint;
function por(X:longint):word;
 begin
  por:=0;
  while (x mod 10 >0) do begin
    x:=x div 10; inc(por);
   end;
 end;
BEGIN
 clrscr;
 write('Число: ');readln(a); {задаем число}
 writeln('Кол-во разрядов: ',por(a)); {вызываем функцию}
 readln
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2010, 15:36

Строка представляет собой запись целого числа. Составьте программу ее перевода в соответсвующую величину целого типа.
Помогите сделать задание: Строка представляет собой запись целого числа....

Напишите программу на языка Паскаль для нахождения второй цифры справа для заданного целого, трехзначного числа
Напишите программу на языка Паскаль для нахождения второй цифры справа для...

Не получается вызвать SetLength для операнда данного типа
program Kursa4; uses crt; var X: array of integer; n,i,j,z,y,m:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru