Предмет: Информатика,
автор: Аноним
Как нарисовать букву "И" в 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. а мне нужно И
Интересные вопросы
Предмет: Русский язык,
автор: Janjol
Предмет: Қазақ тiлi,
автор: ma9607061
Предмет: Русский язык,
автор: catsuperytporunov
Предмет: Литература,
автор: nikeee