Предмет: Информатика,
автор: Аноним
Как нарисовать букву "И" в Free Pascal !
Ответы
Автор ответа:
0
Во free pascal?
Если хоче порисовать то скачай Basic
Если хоче порисовать то скачай Basic
Автор ответа:
0
ну мне надо по координатам !!! Например вот буква Н uses crt;
var i,j:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(11,i);
write('*');
end;
gotoXY(2,4);
for i:=1 to 9 do
write('*');
readln
end. а мне нужно И
var i,j:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(11,i);
write('*');
end;
gotoXY(2,4);
for i:=1 to 9 do
write('*');
readln
end. а мне нужно И
Похожие вопросы
Предмет: Математика,
автор: katie92
Предмет: Қазақ тiлi,
автор: emamadalieva296
Предмет: Английский язык,
автор: probnyjakk04
Предмет: Алгебра,
автор: VoodooDoll