Таблица квадратов

[Татьана]

Напечатать таблицу квадратов двухзначных чисел.

[NetSpace]

Вывод на экран ('число', '    ', 'квадрат')
цикл по всем K от 10 до 99 с шагом 1
начало
   Вывод на экран (K, '     ',K*K);
конец

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

[Татьана]

Я запуталась с этой программой...
Что-то попыталась сделать:
Uses crt;
Var i,j,c,a,b:integer;
ar: array [1..10,1..10] of integer;
Begin Clrscr;
For a:=-1 to 9 do Begin
Write (a,' '); End;
For b:=0 to 9 do Begin
Writeln (b,' '); End;

For i:=1 to 10 do
For j:=1 to 10 do Begin
ar[i,j]:=sqr(ar[i+1,1]*10+ar[1,j+1]);
End;
For i:=2 to 10 do begin
For j:=2 to 10 do begin
write (ar[i,j]);
End;writeln;end;
Readkey;
End.

[NetSpace]

так, числа двузначные, значит, от 10 до 99.
язык Паскаль.

program table;
uses crt;
var a:array[1..10,1..9] of Integer;
     j, k:Integer;
begin
   for k:=0 to 9 do for j:=1 to 9 do a[k, j]:=(10*j)+k;//заполняем массив квадратами
   //
   //выводим массив на экран
   for k:=0 to 9 do//по всем единицам
   begin
      for j:=1 to 9 do//по всем десяткам
      begin
         Write(a[k,j]);
         Write('  ');
      end;
      WriteLn(' ');//переходим на новую строку.
   end;
   Read;
end.

[Татьана]

Она неправильно работает

[NetSpace]

а я и не писал, что она правильно работает. просто её МОЖНО немного доработать. хоть чуток ВАШЕГО труда должно же быть...


ладнось, посмотрите, где идёт заполнение массива a[j,k].

a[k, j]:=(10*j)+k;

вам же надо возвести в квадраты чисел. вот и возведите выражение ((10*j)+k) во воторую степень.

[TinMan]

Мне непонятны две вещи..
1. Зачем в разделе Паскаль спрашивать, какой язык?
2. Зачем городить массив, когда без него можно прекрасно обойтись? В условии про него ничего нет.

var
  i,j: integer;
begin
  for i:=1 to 9 do begin
    for j:=0 to 9 do write(Sqr(i*10+j):5);
    writeln
  end
end.

[NetSpace]

первый вопрос - просто контрольный, он ничего не решает.
второе: ну у неё же в программе используется массив, вот я и предположил, что возможно эту программу она потом будет как-то дорабатывать, используя полученные даные в массиве. нет, упростить всё до минимума можно, тут я согласен. но раз она РЕШИЛА делать через массив, то лучше не пихать ей другое решние, а лишь доработать её вариацию... лан, уже всё равно