Предмет: Информатика,
автор: Аноним
Как нарисовать букву "И" в 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. а мне нужно И
Похожие вопросы
Предмет: История,
автор: Wildar3000
Предмет: Математика,
автор: evelina38462
Предмет: Литература,
автор: Аноним
Предмет: Алгебра,
автор: VoodooDoll