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.

Answer 2

...

Answer 3

астраумно

Answer 4

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

Answer 5

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.

Answer 6

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