Составьте программу(Pascal),которая напечатает букву в центре экрана.

Question

Составьте программу(Pascal),которая напечатает букву в центре экрана.

---

Answer 1

//Free Pascal
//При стандартных размерах окна
uses crt;
begin
clrscr;
gotoXY(40,13);writeln('* * *');
gotoXY(40,14);writeln('* * *');
gotoXY(40,15);writeln('* * *');
gotoXY(40,16);writeln('******');
gotoXY(40,17);writeln('     *');
readln;
end.


//PascalABC.NET
uses GraphABC;
begin
SetWindowSize(200,200);
Window.CenterOnScreen();
TextOut(80,75,'* * *');
TextOut(80,85,'* * *');
TextOut(80,95,'* * *');
TextOut(80,105,'******');
TextOut(80,115,'     *');
end.


//Pascal обычный вывод
begin
writeln('* * *');
writeln('* * *');
writeln('* * *');
writeln('******');
writeln('     *');
end.

---

Comments

И это разве центр? -_-

---

Если подвинуть окно с результатом в центр, то будет центр. Какое задание, такое и решение :/

---

Как астроумно, боже мой.. -_-

---

...

---

астраумно

---

uses GraphABC;
begin
SetWindowSize(200,200);
Window.CenterOnScreen();
TextOut(80,75,'* * *');
TextOut(80,85,'* * *');
TextOut(80,95,'* * *');
TextOut(80,105,'******');
TextOut(80,115,' *');
end.

---

uses crt;
begin
gotoXY(40,13);writeln('* * *');
gotoXY(40,14);writeln('* * *');
gotoXY(40,15);writeln('* * *');
gotoXY(40,16);writeln('******');
gotoXY(40,17);writeln(' *');
readln;
end.

---

gotoXY(40,17);writeln(' *'); пробелы доставь, а то пропали.