умножние столбиком 2-ух натуральных чисел в графическом режиме

06.05.2011, 18:53. **Показов** 1197. **Ответов** 2

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

Ребят помогите пожалуйста с программой (умножение столбиком 2-ух введённых натуральных чиселв графическом режиме).

@Puporev · 06.05.2011, 21:13

Так пойдет?

Pascal

uses crt,graph;
var a,b,c,d:real;
    xc,yc,x,y,l,i,k,cd:integer;
    s1,s2,s:string;
begin
clrscr;
write('1 chislo=');
readln(a);
write('2 chislo=');
readln(b);
x:=0;
initgraph(x,y,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
str(a:0:0,s1);
str(b:0:0,s2);
if a>b then l:=length(s1) else l:=length(s2);
outtextXY(xc-length(s1)*8,10,s1);
outtextXY(xc-l*8-8,20,'x');
outtextXY(xc-length(s2)*8,30,s2);
line(xc-l*8,40,xc,40);
for i:=1 to length(s2) do
 begin
  val(s2[length(s2)-i+1],k,cd);
  c:=a*k;
  str(c:0:0,s);
  outtextXY(xc-length(s)*8-(i-1)*8,40+10*i,s);
 end;
line(xc-(length(s)+i)*8,40+10*(i+1),xc,40+10*(i+1));
c:=a*b;
str(c:0:0,s);
outtextXY(xc-length(s)*8,40+10*(i+2),s);
readln
end.

06.05.2011, 22:31

огромное спасибо! .программа отличная! честь и хвала вам!!!

ultimate11
		1
	умножние столбиком 2-ух натуральных чисел в графическом режиме 06.05.2011, 18:53. Показов 1197. Ответов 2 Метки нет (Все метки) Ребят помогите пожалуйста с программой (умножение столбиком 2-ух введённых натуральных чиселв графическом режиме).

ultimate11
	06.05.2011, 22:31	3
	огромное спасибо! .программа отличная! честь и хвала вам!!!

Опции темы

умножние столбиком 2-ух натуральных чисел в графическом режиме

Решение