Консультации Портала - Консультация #34293

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 34293

28.01.2006, 17:22

0.00 руб.

0 7 6

Компьютеры Программирование

Здравствуйте,такой вопрос:Как через циклы можно в Memo1 напечатать таблицу умножения 1*1=1 1*2=2....до 9*9=81?

Обсуждение

Неизвестный

28.01.2006, 17:29

общий

это ответ

Здравствуйте, Sassoft!
procedure TForm1.Button1Click(Sender: TObject);
var i: word;
begin
for i:=1 to 9 do
memo1.Lines.Add(IntToStr(i)+‘*‘+IntToStr(i)+‘=‘+IntToStr(i*i));
end;
Удачи в кодинге!

Неизвестный

28.01.2006, 17:44

общий

это ответ

Здравствуйте, Sassoft!
Элементарно!
procedure TForm1.Button1Click(Sender: TObject);
var I,J: Integer;
begin
Memo1.Clear;
for I:=1 to 9 do
for J:=1 to 9 do
Memo1.Lines.Add(IntToStr(I)+‘ * ‘+IntToStr(J)+‘ = ‘+IntToStr(I*J));
end;

Неизвестный

28.01.2006, 17:47

общий

REFERI, прочти ещё раз вопрос. Разве речь идёт о таблице квадратов чисел? ;-)

давно

Вадим Исаев ака sir Henry

Мастер-Эксперт
425
4118

28.01.2006, 19:40

общий

это ответ

Здравствуйте, Sassoft!
Можно использовать что-то типа этого:
var
i, j, s: integer;
st: string;
Begin
For i:=1 To 9 Do
Begin
st:=‘‘;
For j:=1 To 9 Do
Begin
s:=i*j;
st:=st+Format(‘%3d‘, [s]);
End;
Memo1.LinesAdd(st);
End;
End;

Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Неизвестный

28.01.2006, 22:45

общий

это ответ

Здравствуйте, Sassoft!
примерно так

var
s:string;
s:=‘‘;
For i:=1 to 9 do begin
For j:=1 to 9 do s:=s+IntToStr(i)+‘*‘+IntToStr(j)+‘=‘+IntToStr(i*j)+‘ ‘;
Memo1.Lines.Add(s);
s:=‘‘;
end;

Неизвестный

29.01.2006, 06:35

общий

это ответ

Здравствуйте, Sassoft!
В примере показано, как напечатать таблицу в memo так:
1*1=1 1*2=2
2*1=2
И так далее, то есть в форме квадрата.

Приложение:
procedure TForm1.Memo1DblClick(Sender: TObject);var i,j:integer;s:string;beginfor i:=1 to 9 dobegin for j:=1 to 9 do begin s:= s + inttostr(i)+‘*‘+inttostr(j)+‘=‘+inttostr(i*j); case length(inttostr(i*j)) of 1:s:=s+‘ ‘; 2:s:=s+‘ ‘; end; end; memo1.Lines.Add(s); s:=‘‘;end;end;

Неизвестный

29.01.2006, 11:08

общий

это ответ

Здравствуйте, Sassoft!
Напрмер вот так:
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
memo1.clear;
for i:=1 to 9 do
for j:=1 to 9 do
memo1.lines.add(inttostr(i)+‘*‘+inttostr(j)+‘=‘+inttostr(i*j));
end;

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.