значение квадратов целых чисел в таблицу Pascal ABC

[программирование]

здраствуйте, уважаемые программисты. помогите, пожалуйста, написать программу (полностью) на Pascal ABC.

написать программу, которая выводит в таблицу значение квадратных корней из целых чисел n (n=1...10). Включая в программу процедуру пользователя, которая строит горизонтальные линии таблици заданной длинны и заданым стилем(символом).

заранее, всем спасибо.

[программирование]

program zd;
uses crt;
Const
m=[1..10];
Var
i: Byte;
x: Real;
BEGIN
For i:=1 to 10 do
begin
x:=Frac(Sqrt(i));
If (i in m) and (x=0) Then Write(i,' ');
end;
Readln
END.

только нужно оформить эту программу в виде Procedure, вывести в виде таблици и написать главную программу, где нужно построить горизонтальные линии таблици заданной длинны и заданым стилем (символом).


программа поиска квадратов целых чисел в промежутки от 1 до 10 пишет ответ, только 1,4, 9 - это правильно?

заранее спасибо!!!

[программирование]

program zd;
uses crt;
var z,i:integer;
procedure sh (x:real);
Const
m=[1..10];
Var
i: Byte;

BEGIN
For i:=1 to 10 do
begin
x:=Frac(Sqrt(i));
If (i in m) and (x=0) Then Write(i,' ');
end;
Readln
END;
begin
clrscr;
writeln('------------------------');
for i:=1 to 5 do
begin
writeln('*');
END;
writeln('-----------------------');
z:=sh(x,i);

readln;
end.


пишет "Ошибка: неизвестный идентификатор x " в строке z:=sh(x,i);(Pascal ABC).

[GetMax]

"Смешались в кучу кони, люди...."(с)
программирование, это про ваш код и про ваши темы.

написать программу, которая выводит в таблицу значение квадратных корней из целых чисел n (n=1...10)

for i := 1 to 10 do
Begin
   Writeln('i = ', i,' Sqrt(i) = ', sqrt(i));
   PrintHorizontalLine("-", 10);
   Writeln
End;

Включая в программу процедуру пользователя, которая строит горизонтальные линии таблици заданной длинны и заданым стилем(символом).

procedure PrintHorizontaLine(ch : char; count : byte)
Var
  i : Byte;
Begin
  for i :=1 to count do
    Wriite(ch)
End;

Писал на ходу и код не проверял.

P.s. Советую все же обзавестись книгой по паскалю и потратить некоторое время на изучение хотя бы теории.

[программирование]

program zd;
uses crt;
var i,z:integer;
procedure PrintHorizontaLine(ch : char; count : byte);
Var
i : Byte;
Begin
for i :=1 to count do
Write(ch);
End;
begin
for i := 1 to 10 do
Begin
Writeln('i = ', i,' Sqrt(i) = ', sqrt(i));
PrintHorizontalLine("-", 10);
Writeln
End;
end.

пишет "Ошибка: неизвестный идентификатор PrintHorizontalLine". Pascal ABC.

[Poma][a]

procedure PrintHorizontaLine(ch : char; count : byte);
PrintHorizontalLine("-", 10);

[программирование]

огромное спасибо, программа работает праильно!!!