Создать текстовой файл, содержащий изображение умножения "столбиком" двух заданных натуральных чисел

@yurast · Регистрация: 05.07.2016

Author24 — интернет-сервис помощи студентам

Создать текстовой файл, содержащий изображение умножения " столбиком " двух заданных натуральных чисел, например :

Код

    39624
*
     8503
_________
   118872
 198120
316992
_________
336922872

@Cyborg Drone · 12.07.2016, 19:15

В консольном режиме:

Delphi

{$AppType CONSOLE}
 
uses math;
 
procedure ReadlnNatural(s: string; var x: int64);
begin
  repeat
    write(s, ' > 0;  ', s, ' = ');
    readln(x)
  until x > 0
end;
 
var m1, m2, p: int64;
    i, sp, st, d: integer;
    f: textfile;
begin
  ReadlnNatural('m1', m1);
  ReadlnNatural('m2', m2);
  p := m1 * m2;
  sp := trunc(log10(p)) + 1;
  assignfile(f, 'd:\text.txt');
  rewrite(f);
  writeln(f, m1:sp);
  writeln(f, '*');
  writeln(f, m2:sp);
  for i := 1 to sp do write(f, '_');
  writeln(f);
  if m2 mod trunc(power(10, trunc(log10(m2)))) <> 0
    then begin
      st := sp;
      repeat
        d := m2 mod 10;
        if d > 0 then writeln(f, m1 * d:st);
        dec(st);
        m2 := m2 div 10
      until m2 = 0;
      for i := 1 to sp do write(f, '_');
      writeln(f);
    end;
  writeln(f, p);
  closefile(f)
end.

Не оптимизировал.

@yurast 0 / 0 / 0 Регистрация: 05.07.2016 Сообщений: 8
		1
	Создать текстовой файл, содержащий изображение умножения "столбиком" двух заданных натуральных чисел 05.07.2016, 20:01. Показов 1638. Ответов 1 Метки нет (Все метки) Создать текстовой файл, содержащий изображение умножения " столбиком " двух заданных натуральных чисел, например : Код 39624 * 8503 _________ 118872 198120 316992 _________ 336922872 0

	12.07.2016, 19:15

Создать текстовой файл, содержащий изображение умножения "столбиком" двух заданных натуральных чисел

Решение