Исходники и листинги ::: Pascal ::: Проверка числа на кол-во цифр в нем

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  1. program slogenie;
  2. uses crt;
  3. var
  4. a:longint; 
  5. k:integer;
  6. begin
  7. clrscr;textcolor(red);
  8. gotoxy(17,2);writeln('Эта программа тестирует количество цифр в числе');textcolor(cyan);
  9. gotoxy(20,9);writeln('Введите число, если хотите проверить сколько');
  10. gotoxy(17,11);writeln('цифр в числе. Отрицательные числа не использовать!!!');textcolor(magenta);
  11. gotoxy(33,13);write('Число: ');textcolor(red);
  12. readln(a);
  13. while a>0 do
  14. begin
  15. a:=a div 10;
  16. k:=k+1;
  17. end;
  18. textcolor(magenta);gotoxy(33,15);write('Цифр в числе: ');
  19. textcolor(red);
  20. write(k);
  21. readkey;
  22. end.
<<< Предыдущая работа

Вернуться в галерею исходников
Проверка числа на кол-во цифр в нем
Автор: HawK210294*
Город: Новокузнецк
Дата: 03.11.2008  12:52
Комментариев: 14
Просмотров: 2087
Оценка: 0 (0|0|0|0|0) [0]

Вернуться на главную
Авторский комментарий к работе: Может кому пригодится при создании проги И еще, если хотите, чтоб прога издала простейший звук введите: writeln(^g)
Работа опубликована администратором Alex_D
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
HawK210294* ::: комментарий от 17.11.2008 | 10:10
Хавк Последователь (ур.13)
Очки: 11694
Город: Новокузнецк
Тв. работ: 15
Рег: 13.03.2008 (7297)
Ответ для Kane 17.11.2008 | 09:35:



Да я и так его учу, кстати выкладывай 7 выпуск (вроде про массивы, да?)


--------------------
Не говори, что знаешь, а знай, что говоришь
Kane* ::: комментарий от 17.11.2008 | 09:35
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
Ответ для HawK210294 13.11.2008 | 09:48:

С++ крутой язык, но достаточно сложный. Сначала лучше изучи Паскаль на уровне эксперта со знанием директив компилятора и кодами заголовка asm, тогда С++ сам на руки пойдет.


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
HawK210294* ::: комментарий от 13.11.2008 | 09:48
Хавк Последователь (ур.13)
Очки: 11694
Город: Новокузнецк
Тв. работ: 15
Рег: 13.03.2008 (7297)
Ответ для Kane 13.11.2008 | 08:51:



Почитаю, я не против, но по мне так лучше про С++, хочу в нем немного разобраться


--------------------
Не говори, что знаешь, а знай, что говоришь
Kane* ::: комментарий от 13.11.2008 | 08:51
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
Ответ для HawK210294 11.11.2008 | 09:43:

Ты точно хочешь статью по Assembler увидеть?


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
HawK210294* ::: комментарий от 11.11.2008 | 09:43
Хавк Последователь (ур.13)
Очки: 11694
Город: Новокузнецк
Тв. работ: 15
Рег: 13.03.2008 (7297)
Ответ для Sauron 10.11.2008 | 23:47:

Ну выложи, пожалуйста, куда-нить. Если он Freeware, тогда давай в программы может кому еще пригодиться



Ответ для Kane 11.11.2008 | 08:41:

Насчет статейки я не против выкладывай, а так зачем мне крутой новый компилятор, мне бы любой компилятор на c++ и книги еще бы найти к нему


--------------------
Не говори, что знаешь, а знай, что говоришь
Kane* ::: комментарий от 11.11.2008 | 08:41
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
Ответ для HawK210294 10.11.2008 | 09:09:

Компиляторов на C++ меренно не меренно. Лучшими по m моему считаются Microsoft Visual C++ и Borland C++ Build. Книг по этой теме тоже хоть отбавляй. Изучать тока надо все это. С компиляторами иногда косяки бывают, то старые, то бета то еще чего-нибудь. В некоторых некоторые библиотеки не поддерживаются и функции. У меня например Borland C++4.5 и Dev-C++. Первый старый и накаляет иногда. Другой вроде новый, но не полный вариант C++. В общем геморрой какой-то. C Assembler проще. Там компилятор консольный нафиг не нужен. Его можно самому сделать. Если кто заинтересовался могу выпустить статью по этому делу.Сэкономите и не спиратите и ума прибавиться.


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
Администратор 1-го ранга (Координатор) Sauron ::: комментарий от 10.11.2008 | 23:47
Sauron Вождь (ур.18)
Очки: 40487
Город: Томск
Тв. работ: 168
Рег: 27.04.2006 (15)
Ответ для HawK210294 10.11.2008 | 09:09:

у меня есть компилятор борланд с++ 3.11 могу выложить


--------------------
Штоу.
HawK210294* ::: комментарий от 10.11.2008 | 09:09
Хавк Последователь (ур.13)
Очки: 11694
Город: Новокузнецк
Тв. работ: 15
Рег: 13.03.2008 (7297)
Ответ для Kane 10.11.2008 | 08:32:



А вот про это можно было бы и в галерее "Учимся вместе" поподробней!



Ответ для Kane 10.11.2008 | 08:30:

Где прогу на C++ взять или токо в магазине, или хотя бы сайтик с книгами


--------------------
Не говори, что знаешь, а знай, что говоришь
Kane* ::: комментарий от 10.11.2008 | 08:32
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
А насчет writeln(^g) лучше использовать стандартную процедуру sound. Эффект достигается при 3000 вроде бы.


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
Kane* ::: комментарий от 10.11.2008 | 08:30
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
Pascal хорошо, но C++ лучше господа. С++ лучший язык в этой области и такие задачи решать лучше на нем.


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
Администратор 1-го ранга (Координатор) Sauron ::: комментарий от 06.11.2008 | 15:58
Sauron Вождь (ур.18)
Очки: 40487
Город: Томск
Тв. работ: 168
Рег: 27.04.2006 (15)
char *str;

printf("Введите число\n");

scanf("%s",str);

printf("Количество цифр: %d", strlen(str));



эффект тот же


--------------------
Штоу.
HawK210294* ::: комментарий от 05.11.2008 | 15:18
Хавк Последователь (ур.13)
Очки: 11694
Город: Новокузнецк
Тв. работ: 15
Рег: 13.03.2008 (7297)
Ответ для Mihail-Nor 05.11.2008 | 14:06:



Спасибо ошибки исправил , переменную неправильно обозначил (заместо k, d поставил)



longint поддерживает числа где-то от -2 000 000 000 до 2 000 000 000


--------------------
Не говори, что знаешь, а знай, что говоришь
Mihail-Nor* ::: комментарий от 05.11.2008 | 14:07
Mihail-Nor Сведущий (ур.9)
Очки: 2243
Город: Норильск
Тв. работ: 10
Рег: 01.09.2008 (8097)
Да и сама программа вроде бы слишком лёгкая - находить длину строки должен уметь каждый программист, если это нужно...


--------------------
Всё ещё будет...
Mihail-Nor* ::: комментарий от 05.11.2008 | 14:06
Mihail-Nor Сведущий (ур.9)
Очки: 2243
Город: Норильск
Тв. работ: 10
Рег: 01.09.2008 (8097)
1) Почему переменная k не объявлена? (с. 16)

2) Ошибка: gototoxy (с. 10)

Если эти ошибки исправить, то:

3) Если в числе больше 10 цифр - выдаёт ошибку...

3) И в конце концов, почему бы не сделать тогда и для отрицательных чисел (без учёта знака -)?

4) А почему бы в таком случае просто не считать длину введённой строки? Зачем использовать алгоритм для чисел, если он для больших чисел некорректно работает?...


--------------------
Всё ещё будет...