Войти Регистрация Спроси ai-bota

Нарисуйте точечный рисунок в pascal abc

Ответ:

kurotetsu666

07.07.2020 08:00

uses
GraphABC;

begin
var i, j: integer;
for i := 50 to 150 do
for j := 50 to 150 do
putpixel(i, j, clBlack);
Window.save('1.bmp');
end.

0,0(0 оценок)

Популярные вопросы: Информатика

natnet1

07.05.2022 00:59

Определите результат выполнения нижеследующего псевдокода, если n = 10 алг Сумма квадратов (арг цел n, рез цел S) дано | n 0 надо | S = 1*1+2*2 + 3*3 + ... + n*n нач...

запахи

18.12.2021 03:53

Вывести на экран нечётные целые числа,их сумму, а также их квадраты и кубы нечётных целых чисел от 1 до 9...

neliakunik

25.04.2023 01:21

Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99 . найти сумму десятков( пример: первых чисел из 19 и 23 найти сумму 1 и 2)...

Наночкка

25.04.2023 01:21

Перечислите чаще всего используемые виды сортировки информации....

tyahoo

25.04.2023 01:21

Дан фрагмент программы (использующий цикл с предусловием): k: =0; while k 10 do begin k: = k+1; p: =k*k; writeln(p); end что выводится на экран в результате выполнения...

tyunchik2009

07.04.2020 05:11

Синквейн на тему обработка информации...

Azaleika

07.04.2020 05:11

1)запишите по правилам языка pascal а) б) 3х3+2х2+4 2)найдите ошибки в программеprogram zadacha1; var x,y,z: integer; begin x: =5 y: =7; z=x+y; writeln(z=x+y,z); end...

MashaTears1

01.12.2021 19:50

Задание на языке Pascal Выполнить через whileДля функции F(x)= найти минимальное значение на отрезке [-1,1,5] (шаг +0,2)...

спаситепомогите111

01.12.2021 19:50

Задача на языке Pascal. Выполнить через whileДля функции F(x)= найти и вывести на экран все значения в интервале [-1,8,+2,1] (шаг +0,1) [-1,+1] (шаг +0,05)...

trolz666

02.09.2020 09:17

Что хранится в файле БД interBase? Из ниже перечисленного большое...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку