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

@Рита89 · Регистрация: 22.09.2019

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

@Hretgir · 23.09.2019, 19:23

В трёхзначном числе тысяч - 0.

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

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

так правильнее.

@Рита89 · 23.09.2019, 20:31 **[ТС]**

мне код нужен))

@Hretgir · 23.09.2019, 23:35

Pascal

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;

но я не проверял

@Hretgir · 23.09.2019, 23:40

я не проверял

@ValentinNemo · 24.09.2019, 00:56

Delphi

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.

@DmiMukh · 24.09.2019, 08:26

Не по теме:

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

@eagle nest · 24.09.2019, 08:32

На форуме был уже такой вопрос.
Вот ответ: Разделить число на цифры
А если число будет миллионное, то и код будем переписывать?
Ваш ответ во втором посте.

@Hretgir · 24.09.2019, 09:04

Не по теме:

Сообщение от DmiMukh

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

делали как-то и за меня в этом разделе, так что для меня это просто возврат долга, не больше. потратил какие-то 30 минут может, если не меньше.

@Рита89 0 / 0 / 0 Регистрация: 22.09.2019 Сообщений: 18
		1
	Найти в заданном трехзначном числе количество тысяч, десятков и единиц 23.09.2019, 19:01. Показов 2328. Ответов 8 Метки lazarus (Все метки) Составить алгоритм и программу для решения задачи: Дано трехзначное число. Найти в нем число тысяч, десятков и единиц. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Hretgir 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

@Рита89 0 / 0 / 0 Регистрация: 22.09.2019 Сообщений: 18
	23.09.2019, 20:31 [ТС]	3
	мне код нужен)) 0

@DmiMukh
	24.09.2019, 08:26 #7
	Не по теме: Возможно я когда-нибудь пойму, зачем делать задание ВМЕСТО кого-либо. Самим тратить время впустую на такую фигню не жалко? Да и толк от таких вещей, если те кому требуются задачи, ничего не узнают/делают сами... 0

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

@Hretgir
	24.09.2019, 09:04 Найти в заданном трехзначном числе количество тысяч, десятков и единиц #9
	Не по теме: Сообщение от DmiMukh Возможно я когда-нибудь пойму, зачем делать задание ВМЕСТО кого-либо. Самим тратить время впустую на такую фигню не жалко? Да и толк от таких вещей, если те кому требуются задачи, ничего не узнают/делают сами... делали как-то и за меня в этом разделе, так что для меня это просто возврат долга, не больше. потратил какие-то 30 минут может, если не меньше. 0

Опции темы