Умножение столбиком

[Stas)))]

Доброго всем времени суток! ктонить может подсказать как вообще реализовать это умножение (столбиком)! (Delphi)

[SeRhy]

Напишы код для простого умножения (c:=a+b) просто визуально оформи как умножение в столбец

[Stilet]

Вот например можно сделать видимость умножения в столбик:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zpt,i:integer; k,e,s:string; a,b,c:real;
begin
ListBox1.Items.Clear;
 a:=StrToFloat(Edit1.Text);e:='';
 c:=StrToFloat(Edit2.Text);c:=a*c;
 k:=Edit2.Text ;           zpt:=0;
 ListBox1.Items.Append(Edit1.Text);
 ListBox1.Items.Append(Edit2.Text);
 ListBox1.Items.Append('------------------');
 for i:=1 to length(Edit1.text) do e:=e+' ';
 i:=Length(Edit2.Text);
 while  i>0 do begin
 if k[i]='.' then begin dec(i);zpt:=i; end;
  b:=StrToFloat(k[i]);
  s:=floattostr(a*b);
  if zpt<>0 then Insert(',',s,zpt);
  ListBox1.Items.append(e+s); delete(e,1,1);
 dec(i);
 end;
 ListBox1.Items.Append('------------------');
 ListBox1.Items.Append(' '+e+floattostr(c));

end;

end.

В Эдиты вводатся два числа которые перемножаются
В мемо умножение расписывается (корявать правда) в столбик

[Tayfun]

Эх... Давно делал... Когда задали в университете вычислить 100!
forForum.rar

[zetrix]

Класс Tayfun, в архиве только project1.dpr, a Unit1.pas где? )) Забыл? Я думал приложение консольное, открыл - а там шишь

[Tayfun]

Класс Tayfun, в архиве только project1.dpr, a Unit1.pas где? )) Забыл? Я думал приложение консольное, открыл - а там шишь

Извиняюсь...
Mod.rar

[puporev]

Уже лучше, но мы так и не заслушали начальника транспортного цеха.

[zetrix]

Tayfun, вот содержание архива:
.Txt //пустой файл для вывода результатов
Project1.cfg
Project1.dof
Project1.exe
Project1.res
Project1.dpr
Содержание Project1.dpr:

program Project1;

uses
  Forms,
  Unit1 in '..\Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Теперь по теме. Скорее всего нужно не создавать эмуляцию умножения в столбик, а приводить её полностью - по шагам. Чтоб как мы на листочке в столбик решаем, так и на экране отобразилось.

[Tayfun]

Теперь по теме. Скорее всего нужно не создавать эмуляцию умножения в столбик, а приводить её полностью - по шагам. Чтоб как мы на листочке в столбик решаем, так и на экране отобразилось.

Согласен что все несовсем красиво(равнение по левую сторону, а не по правую)... Но дело в том, что там действительно показываеться умножение столбиком по шагам...
Даны два числа:
1234
4321
Потом
1234*1
+
1234*2*10
+
1234*3*10^2
+
1234*4*10^3
------------------
ответ...
Параллельно все записываеться в текстовый файл, где все без сокращений (10e4->10^4)

[puporev]

Вот вроде решил. Код на Паскале. У меня работает.

program umn_st;
uses crt;
var s1,s2,u,m:string;
    iu,p,sum:longint;i,k,r,nu,nm,im:integer;
    mas:array[1..100] of longint;
function St10(a:longint;b:integer):longint; Умножить на 10 в степени b.
   var i,n:integer;
begin
   for i:=1 to b do
     a:=a*10;
     St10:=a;
end;

begin
   clrscr;
   write('chislo1=');readln(s1);
   write('chislo2=');readln(s2);
   writeln;

   if length(s1)>=length(s2)   Первый множитель, который длиннее
     then u:=s1
       else u:=s2;
   nu:=length(u);

   if length(s1)<length(s2)    Второй множитель
     then m:=s1
       else m:=s2;
   nm:=length(m);

   r:=nu+nm;                  Отступ
   writeln(u:r);     
   writeln('*':nm);          Знак умножения
   writeln(m:r);

   for i:=1 to r do
      write('-');                 Черта
   writeln;
   
   val(u,iu,k);
   for i:=nm downto 1 do
      begin
        val(m[i],im,k);
        p:=iu*im;
        writeln(p:(nu+i));mas[i]:=p;  Выводим построчно результат умножения
      end;

   for i:=1 to r do                      Черта
      write('-');
      writeln;

   sum:=0;
   for i:=1 to nm do                   Результат
     sum:=sum+St10(mas[i],nm-i);
    writeln(sum:r);readln;
end.