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

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

lardimm @lardimm

November 2021 1 25 Report

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

Answers & Comments

pacixor

Verified answer

//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.

1 votes Thanks 0

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

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

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

pacixor ...

pacixor астраумно

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

pacixor 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.

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

Answers & Comments

Verified answer

vyberite prakticheski osushestvimye reakcii vzaimodejstviya rastvorov 1 rastvorov

srochno himiya processu vosstanovleniya sootvetstvuet shema 1 cl cl 2

hlorid ion obrazuetsya pri dissociacii 1 na2clo4 2bacl2 3naclo3 4kclo3 s

reshite pozhalujsta nuzhno srochno20 bzapishite vse pravilnye drobi so zn

reshite pozhalujsta srochno dokazhite chto a 625 kratno 25 b36 delitel396

cikl stepeni paskal

pascal nado najti 101 j prostoj delitsya tolko na 1 i na sebya palindrom eto

zavershite 5 dialogov s pomoshyu could ili was able to

v chem raznica mezhdu etimi terminami miting demonstraciya piket zabastovka go

letuchie vodorodnye soedineniya sleduyushih v v b al ga in tl

рекомендуемые вопросы

Helpful Links

Helpful Social