3. Алгоритм решения задачи (блок-схема, выполненная согласно нормативным документам)
4. Листинг программы
Program Pr003;
uses crt;
var i,j,k,x,n:integer;a:array[1..30]of integer;
Procedure Nul;{Процедура нуль}
begin
gotoxy(n+1,10);writeln('***');
for i:=1 to 5 do
begin gotoxy(n,10+i);writeln('* *');
end;{3 пробела}
gotoxy(n+1,11+i);writeln('***');
end;
Procedure Edin;{Единица}
begin
gotoxy(n+3,10);writeln('*');
gotoxy(n+2,11);writeln('**');
gotoxy(n+1,12);writeln('* *');
gotoxy(n,13);writeln('* *');{2 пробела}
gotoxy(n+3,14);writeln('*');
gotoxy(n+3,15);writeln('*');
gotoxy(n+1,16);writeln('****');
end;
Procedure Dwa;{два}
begin
gotoxy(n+1,10);writeln('***');
gotoxy(n,11);writeln('* *');{3 пробела}
gotoxy(n+4,12);writeln('*');
gotoxy(n+3,13);writeln('*');
gotoxy(n+2,14);writeln('*');
gotoxy(n+1,15);writeln('*');
gotoxy(n,16);writeln('*****');
end;
Procedure Tri;{три}
begin
gotoxy(n,10);writeln('*****');
gotoxy(n+3,11);writeln('*');
gotoxy(n+2,12);writeln('*');
gotoxy(n+3,13);writeln('*');
gotoxy(n+4,14);writeln('*');
gotoxy(n,15);writeln('* *');{три пробела}
gotoxy(n+1,16);writeln('***');
end;
Procedure Chet;{четыре}
begin
gotoxy(n+4,10);writeln('*');
gotoxy(n+3,11);writeln('**');
gotoxy(n+2,12);writeln('* *');
gotoxy(n+1,13);writeln('* *');
gotoxy(n,14);writeln('* *');{3 пробела}
gotoxy(n,15);writeln('*****');
gotoxy(n+4,16);writeln('*');
end;
Procedure Pjat;{пять}
begin
gotoxy(n,10);writeln('*****');
gotoxy(n,11);writeln('*');
gotoxy(n,12);writeln('****');
gotoxy(n+4,13);writeln('*');
gotoxy(n+4,14);writeln('*');
gotoxy(n,15);writeln('* *');{3пробела}
gotoxy(n+1,16);writeln('***');
end;
Procedure Shes;{шесть}
begin
gotoxy(n+1,10);writeln('***');
gotoxy(n,11);writeln('*');
gotoxy(n,12);writeln('****');
for i:=1 to 3 do
begin gotoxy(n,12+i);writeln('* *');{3пробела}end;
gotoxy(n+1,16);writeln('***');
end;
Procedure Sem;{семь}
begin
gotoxy(n,10);writeln('*****');
gotoxy(n,11);writeln('* *');{3пробела}
for i:=1 to 4 do
begin gotoxy(n+4-i,11+i);writeln('*');end;
gotoxy(n,16);writeln('*');
end;
Procedure Wos;{восемь}
begin
gotoxy(n+1,10);writeln('***');
gotoxy(n,11);writeln('* *');{3пробела}
gotoxy(n+1,12);writeln('* *');
gotoxy(n+2,13);writeln('*');
gotoxy(n+1,14);writeln('* *');
gotoxy(n,15);writeln('* *');
gotoxy(n+1,16);writeln('***');
end;
Procedure Dew;{девять}
begin
gotoxy(n+1,10);writeln('***');
for i:=1 to 3 do
begin gotoxy (n,10+i);writeln('* *');end;
gotoxy(n+1,14);writeln('****');
gotoxy(n+4,15);writeln('*');
gotoxy(n+1,16);writeln('***');
end;
Begin
ClrScr;
write('введите натуральное число');readln(x);
j:=0;
Repeat
j:=j+1;a[j]:=(x mod 10);{последняя цифра}
x:=(x div 10);
Until(x=0);
n:=8;
for k:=j downto 1 do
begin
case a[k]of
0:nul;
1:edin;
2:dwa;
3:tri;
4:chet;
5:pjat;
6:shes;
7:sem;
8:wos;
9:dew;
end;
n:=n+7;
end;
readln;
End.
5. Результаты тестирования программы