Создать массивом перемножение числе в Паскале

[Novenkaja]

Добрый вечер. Вот такое задание.
С клавиатуры ввести два любых числа до 15 цифр и отпечать перемножение чисел c использованием массива

примерный код есть,его надо только изменить на данное условие

program массив;
uses crt;
procedure умножение(n:byte; a,b:mt1; var c:mt2);
var i,j:byte;
     s:integer;
     sk_sist:integer;   {sk_sist- это числовая система}
begin
clrscr;
  sk_sist:=2;
  s:=0;
  for j:=0 to 2*n-1 do
     begin
       for i:=0 to n-1 do
        if (0<=j-i) and (j-i<=n-1)
            then s:=s+a[i]*b[j-i];
        [j]:=s mod sk_sist
    end
end;

код может быть не доделан и некомпилироваться,но я переписала с конспекта то,что написал для нас студентов препод.

ПС:Очень нужно до 24:00 по московскому времени.
Заранее спасибо тем,кто поможет)))

[3BEPOBOY]

уточните что это значит

отпечать перемножение чисел c использованием массива

ваш код если честно не понял что делает

[Novenkaja]

так переводится с латышского то словочто в задании
как я понимаю-отпечать-это значит реализовать

если минутку подождёте,я сфотографирую как выглядит этот код в конспекте,там ещё и рисунок есть,может попроще станет
для начала его нужно ещё дописать,т.к. нет тут не type mas=array... и не компилируется

[3BEPOBOY]

"отпечать" то бог с ним. Мне бы знать зачем массив. Я сути задания не понял.

[Mad_Cat]

зачем массив Я сути задания не понял

это длинная арифметика) просто 30 значащих цифр не влезут в стандартные типы паскаля вроде как) для этого и юзают длинную арифметику)

const base=2;
      maxn=30;
type Tlong=record
 n:longint;
 a:array[1..maxn]of longint;
end;
var x,y,z:Tlong;
m:Integer;


procedure multLong(var c:Tlong; a,b:Tlong);
 var i,j:longint;
 begin
  fillchar(c,sizeof(c),0);
  c.n:=a.n+b.n+2;
  for i:=1 to a.n do
  for j:=1 to b.n do
   inc(c.a[i+j-1],a.a[i]*b.a[j]);
  for i:=1 to c.n-1 do
   if(c.a[i]>9)then begin
    inc(c.a[i+1],c.a[i] div 10);
    c.a[i]:=c.a[i] mod 10;
   end;
  while(c.n>1)and(c.a[c.n]=0)do dec(c.n);
 end;
begin
Writeln('input length 1 number');
read(x.n);
Writeln('input digits 1 number');
for m:=1 to x.n do read (x.a[m]);
Writeln('input length 2 number');
read(y.n);
Writeln('input digits 2 number');
for m:=1 to y.n do read (y.a[m]);
multlong(z,x,y);
for m:=1 to z.n do write(z.a[m]);
Readln;
readln;
end.

[Novenkaja]

можно на ты?

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

у меня иное задание

мзначально прогрумма мне выдаёт уже ошибку и говорит,что identifier not found mt1,mt2.
я уже добавила строки
program
uses crt
const n=15 15 я так понимаю из-за того,что по заданию сказано до 15 чисел
type mas=array [1..n] of integer

[3BEPOBOY]

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

это длинная арифметика) просто 30 значащих цифр не влезут в стандартные типы паскаля вроде как) для этого и юзают длинную арифметику)

точно, припоминаю) В школе классе в 9-10 что-то подобное на мигающем турбопаскале делали. У integer тысяч 50 вроде всего в каждую сторону.

А как делать? дробить на классы, перемножать, а потом ответ через string склеивать?

[Novenkaja]

не знаю,я написала всё что есть-формулировку задания,часть кода,которую надо доизменить и саму картинку,где на рисунке есть пример,что должно быть и как работает

[3BEPOBOY]

Novenkaja
можно на ТЫ)
ох... тут двоичная система смотрю...

identifier not found mt1,mt2

конечно, никто не знает что это такое)))

Я так понимаю тебе нужно перевести эти числа в двоичную систему, перемножить и обратно?

из десятиричной в двоичную так:

x = int(input("Введите натуральное число: "))
n = ""
 
while x > 0:
    y = str(x % 2)
    n = y + n
    x = int(x / 2)
 
print (n)

[Novenkaja]

Сообщение от 3BEPOBOY

Novenkaja
можно на ТЫ)
ох... тут двоичная система смотрю...

identifier not found mt1,mt2

конечно, никто не знает что это такое)))

Я так понимаю тебе нужно перевести эти числа в двоичную систему, перемножить и обратно?

спасибо,тогда на ты)

да, я тоже заметила,что двоичная система

незнаю,я как поняла,надо чтобы ран выдавал перемножение числе именно тем способом,что на файле,который я приложила

учитывая ещё то условие,что с клавиатуры вводить 2 любых числа до 15 цифр