Home
О нас
Products
Services
Регистрация
Войти
Поиск
lardimm
@lardimm
November 2021
1
33
Report
Составьте программу(Pascal),которая напечатает букву в центре экрана.
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
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(' *'); пробелы доставь, а то пропали.
More Questions From This User
See All
lardimm
August 2022 | 0 Ответы
Выберите практически осуществимые реакции взаимодействия растворов: 1) Растворов...
Answer
lardimm
August 2022 | 0 Ответы
СРОЧНО! ХИМИЯ! • Процессу восстановления соответствует схема: 1) Cl(-) → Cl(-2) ...
Answer
lardimm
August 2022 | 0 Ответы
• Хлорид-ион образуется при диссоциации: 1) Na2ClO4 2)BaCl2 3)NaClO3 4)KClO3 • С...
Answer
lardimm
August 2022 | 0 Ответы
РЕШИТЕ ПОЖАЛУЙСТА !!!НУЖНО !!!СРОЧНО!!!+20 Б.Запишите все правильные дроби со зн...
Answer
lardimm
August 2022 | 0 Ответы
РЕШИТЕ ПОЖАЛУЙСТА СРОЧНО !!!Докажите что: а) 625 кратно 25 б)36- делитель 396...
Answer
lardimm
August 2022 | 0 Ответы
Цикл, степени, Паскаль...
Answer
lardimm
August 2022 | 0 Ответы
PASCAL. Надо найти 101-й простой (делится только на 1 и на себя) палиндром - это...
Answer
lardimm
July 2022 | 0 Ответы
Завершите 5 диалогов с помощью "could" или "was able to"...
Answer
lardimm
July 2022 | 0 Ответы
В чем разница между этими терминами? Митинг, демонстрация, пикет, забастовка, го...
Answer
lardimm
July 2022 | 0 Ответы
Летучие водородные соединения следующих в-в: B, Al, Ga, In, Tl...
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
о чем должны позаботиться в первую очередь взрослые при организационном вывозе н...
danilarsentev
August 2022 | 0 Ответы
Есть два станка на которых выпускают одинаковые запчасти один производит a запча...
myachina8
August 2022 | 0 Ответы
Найти по графику отношение V3:V1. В ответах написано 9, но нужно решение...
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
Определите Как создавалась и кто создавал арабское государство в крации...
MrZooM222
August 2022 | 0 Ответы
Ч. Айтманов в рассказе "Красное яблоко" использует метод рассказ в рассказе. Опи...
timobila47
August 2022 | 0 Ответы
каково было назначение каждой из частей византийского храма? помогите пожалуйста...
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
Участник Знаний
August 2022 | 0 Ответы
Пожалуйста!!!!!!!!!!!!...
sarvinozwakirjanova
August 2022 | 0 Ответы
помогите пожалусто пж...
×
Report "Составьте программу(Pascal),которая напечатает букву в центре экрана..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
begin
SetWindowSize(200,200);
Window.CenterOnScreen();
TextOut(80,75,'* * *');
TextOut(80,85,'* * *');
TextOut(80,95,'* * *');
TextOut(80,105,'******');
TextOut(80,115,' *');
end.
begin
gotoXY(40,13);writeln('* * *');
gotoXY(40,14);writeln('* * *');
gotoXY(40,15);writeln('* * *');
gotoXY(40,16);writeln('******');
gotoXY(40,17);writeln(' *');
readln;
end.