0 / 0 / 0
Регистрация: 22.09.2019
Сообщений: 18
1

Найти в заданном трехзначном числе количество тысяч, десятков и единиц

23.09.2019, 19:01. Показов 2328. Ответов 8

Составить алгоритм и программу для решения задачи:
Дано трехзначное число. Найти в нем число тысяч, десятков и единиц.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.09.2019, 19:01
Ответы с готовыми решениями:

Количество тысяч, сотен, десятков и единиц в числе
Пожалуйста напишите программу, определяющую количество тысяч, сотен, десятков и единиц во введенном...

В числе 4982 найти число тысяч, сотен, десятков и единиц
В числе 4982 найти число тысяч, сотен, десятков и единиц. Найти сумму и произведение цифр данного...

В числе 5672 найти число тысяч, сотен, десятков и единиц
1) В числе 5672 найти число тысяч, сотен, десятков и единиц. Найти сумму и произведение цифр...

Определить, кратно ли количество тысяч количеству десятков в числе
Написать программу, которая определит кратно ли количество тысяч количеству десятков в заданном...

8
366 / 119 / 3
Регистрация: 25.01.2012
Сообщений: 4,648
Записей в блоге: 63
23.09.2019, 19:23 2
В трёхзначном числе тысяч - 0.

Добавлено через 8 минут
Делим число на 1000 - извлекаем целое, получаем число тысяч
на 100 и извлекаем целое - получаем число сотен,
на 10 и извлекаем целое - число десятков, само число и есть - число единиц.
но можно по другому:
через цикл делить на 10 и извлекать целое:

делить на 10 и извлечь целое - десятки,
полученное делить на 10 и извлечь целое - сотни,
полученное делить на 10 и извлечь целое - тысячи,

так правильнее.
0
0 / 0 / 0
Регистрация: 22.09.2019
Сообщений: 18
23.09.2019, 20:31  [ТС] 3
мне код нужен))
0
366 / 119 / 3
Регистрация: 25.01.2012
Сообщений: 4,648
Записей в блоге: 63
23.09.2019, 23:35 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
   s:String;
   chislo,i,m:integer;
   MSingle:Single;
   Chisla: array [0..3] of integer;
begin
  Label5.Caption:=IntToStr(chislo);
  chislo:=StrToInt(Edit1.Text);
  for i:=0 to 2 do
     begin
      MSingle:=chislo div 10;
      chislo:=trunc(MSingle);
      Chisla[i]:=chislo;
     end;
    Label6.Caption:=IntToStr(Chisla[0]);
    Label7.Caption:=IntToStr(Chisla[1]);
    Label8.Caption:=IntToStr(Chisla[2]);
end;
но я не проверял
0
366 / 119 / 3
Регистрация: 25.01.2012
Сообщений: 4,648
Записей в блоге: 63
23.09.2019, 23:40 5
я не проверял
Вложения
Тип файла: zip 111.zip (343.9 Кб, 1 просмотров)
0
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
24.09.2019, 00:56 6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
unit Zadanie146unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure FormCreate(Sender: TObject);
  private
    procedure SetOutLabel;
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.SetOutLabel;
begin
  Edit1.Text:= '';
  Label2.Caption:= 'Тысячи:';
  Label3.Caption:= 'Сотни:';
  Label4.Caption:= 'Десятки:';
  Label5.Caption:= 'Единицы:';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  n:integer;
  flagError: boolean;
begin
  flagError:= false;
  if not TryStrToInt(Edit1.Text,n) then
    begin
      MessageDlg('Ошибка! Некорректный ввод данных.',mtError,[mbOk],0);
      flagError:= True;
    end
  else
    if n > 999 then
    begin
      MessageDlg('Ошибка! Вы ввели число более трех разрядов.',mtError,[mbOk],0);
      flagError:= True;
    end;
  if flagError then
    SetOutLabel
  else
      begin
        Label2.Caption:= 'Тысячи:  ' + IntToStr(n div 1000);
        Label3.Caption:= 'Сотни:  ' + IntToStr((n mod 1000) div 100);
        Label4.Caption:= 'Десятки:  ' + IntToStr((n mod 100) div 10);
        Label5.Caption:= 'Единицы:  ' + IntToStr(n mod 10);
      end;
 
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if not (key in['0'..'9',#8]) then key:= #0;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetOutLabel;
end;
 
end.
Вложения
Тип файла: zip Zadanie146.zip (340.4 Кб, 0 просмотров)
0
DmiMukh
24.09.2019, 08:26
  #7

Не по теме:


Возможно я когда-нибудь пойму, зачем делать задание ВМЕСТО кого-либо.
Самим тратить время впустую на такую фигню не жалко?
Да и толк от таких вещей, если те кому требуются задачи, ничего не узнают/делают сами...

0
33 / 31 / 12
Регистрация: 06.12.2013
Сообщений: 279
24.09.2019, 08:32 8
На форуме был уже такой вопрос.
Вот ответ: Разделить число на цифры
А если число будет миллионное, то и код будем переписывать?
Ваш ответ во втором посте.
0
Hretgir
24.09.2019, 09:04     Найти в заданном трехзначном числе количество тысяч, десятков и единиц
  #9

Не по теме:

Цитата Сообщение от DmiMukh Посмотреть сообщение
Возможно я когда-нибудь пойму, зачем делать задание ВМЕСТО кого-либо.
Самим тратить время впустую на такую фигню не жалко?
Да и толк от таких вещей, если те кому требуются задачи, ничего не узнают/делают сами...
делали как-то и за меня в этом разделе, так что для меня это просто возврат долга, не больше. потратил какие-то 30 минут может, если не меньше.

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.09.2019, 09:04

Для введенного 4-хзначного числа определить количество тысяч, сотен, десятков и единиц
Как сделать эту del?

Поменять местами количество единиц и десятков в числе
Дано целое число. Поменять местами количество единиц и десятков.

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

Поменять местами количество единиц и десятков в целом десятичном числе
Задание: Дано целое число. Поменять местами количество единиц и десятков.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru