СОСТАВТЕ ПРОГРАМУ РИСОВАНИЯ ЗАМКА В PASCAL ABC 7 КЛАСС

Знания

Информатика

2 ответа:

Toli 564 года назад

0 0

Program zad1_11; uses graphabc; var i,j:integer;a:string; begin SetWindowSize(500,500); ClearWindow(clBlack); SetPenColor(clGray); setbrushcolor(clwhite); Line (150,150,175,125); Line (200,150,175,125); Line (150,150,150,300); Line (200,150,200,200); Line (200,200,300,200); Line (350,150,325,125); Line (300,150,325,125); Line (300,150,300,200); Line (350,150,350,300); Line (150,300,350,300); SetBrushColor(clwhite); Rectangle(165,230,185,250); Rectangle(225,230,245,250); Rectangle(255,230,275,250); Rectangle(165,165,185,185); Rectangle(315,230,335,250); Rectangle(315,165,335,185); for i:=1 to 1000 do begin floodfill(165,230,clblack); floodfill(225,230,clblack); floodfill(256,231,clblack); floodfill(165,165,clblack); floodfill(315,230,clblack); floodfill(315,165,clblack); end; end.

Макс Петелин4 года назад

0 0

По такому-же принцепу сделайте замок(Pscal ABC)

Читайте также

Задание 5 Запишите значение переменной s, полученное в результате работы следующей программы Var s,k: integer; Begin s :=5; for

war10ck [5]

Ответ: s=225 )))))))

0 0

4 года назад

Помогите с Паскалем, БЫСТРЕЕЙ! Составьте словесный алгоритм, блок-схему и код для программы. Ввести одно число, вычислить куб эт

colibry

Ну на паскале я тебе вот набросал а остальное никто за столько баллов делать точно не возьмется :

program z;
var i3,i:integer;beginread(i);i3:=i*i*i;i:=i3-(3*i);writeln(i);end.

0 0

4 года назад

Какие документы называют гипертекстовыми??

bito

Гипертекстовым называют документ, который использует внутри себя ссылки на другие документы или сайты. Другими словами это текстовый документ, в котором имеются специальные метки теги. Они используются и распознаются всеми браузерами как переход на другую страницу или документ, тем самым кликнув на ссылку, мы автоматически перенесемся по указанной ссылке на сайт, который указан в ссылке под тегом.

0 0

3 года назад

Перевести на язык программирования PascalABC данные математические выражения.

Дейя [31]

<h2>Задание 1</h2>

var
firstNumber, secondNumber: integer;
begin
Write('Введите два числа: ');
Read(firstNumber);
Read(secondNumber);
Writeln('Среднее значение чисел ', firstNumber, ' и ', secondNumber, ' = ', (firstNumber + secondNumber) / 2);
end.

<h2>Задание 2</h2>

var
x, a, b, y: real; { значение переменных }
begin
Writeln('a) y = 2 * x^2 - 5 * x + 7');
Write('Введите x: ');
Read(x);
Writeln('y = ', 2 * Power(x, 2.0) - 5 * x + 7);
Writeln('б) c = (a + b)^2 - 2 * a^2 * b');
Write('Введите a, b: ');
Read(a, b);
Writeln('c = ', Power(a + b, 2.0) - 2 * Power(a, 2.0) * b);
Writeln('в) z = | x - y^2 | + x * sqrt(x)');
Write('Введите x, y: ');
Read(x, y);
Writeln('z = ', Abs(x - Power(y, 2.0)) + x * Sqrt(x));
end.

0 0

4 года назад

Помогите срочно информатика дам 22 бала

ПавлинаТараторина

Ответ:

Объяснение:

1) {а,б}

2) []

3) {г,и,д}

4) {а,б,в,г,д,и}

5) {а,б,в,г,д,и}

6) {а,б,г,д,и}

7) {а,б}

8) {а,б,в}

0 0

3 года назад