Лабораторная работа №9
Вариант – 6
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{********************************************************}
{Программа:Image,Лабораторная работа #9,Вариант 6 }
{Цель:'Наpисовать'фигуpу }
{Описание параметров и переменных: }
{i-паpаметp цикла }
{k,k1,k2-пpомежуточное значение }
{n-вспомогательная пеpеменная }
{p-константа }
{Программист:Юняев А.А.,гр.243 }
{Проверил:профессор Новичков В.С.,кафедра ВПМ }
{Дата написания:13.11.2002 год }
{********************************************************}
Program Image;
Const
p=' ';
Var
i,k,k1,k2,n:Integer;
Begin
Writeln('Введите значение k:');
Read(k);
Writeln('k=',k);
k1:=k-1;
k2:=k1;
n:=1;
Writeln(p:k1,k,p:k1);
For i:=1 to k1-1 do
Begin
Writeln(p:(k1-i),k2,p:n,k2,p:(k1-i));
k2:=k2-1;
n:=n+2;
End;
Writeln('1',p:n,'1');
End.
|