Для заливки замкнутого контура используется процедура

Знания

Информатика

1 ответ:

ugq [50]4 года назад

0 0

На каком языке? Turbo Pascal?

 FloodFill();
procedure FloodFill( x: SmallInt; y: SmallInt; Border: Word);

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

Составить блок схему алгоритма из 100 чисел для сортировки в порядке возрастания

ABV7

1) на Pascal:
var
t,i,j:integer;
a:array[1..4]of integer;
begin
for i:=1 to 4 do
begin
write('Vvedite ',i,'-i 4islo: ');
readln(a);
end;
for i:=2 to 4 do
for j:=4 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end;
writeln('Raspolagaem 4isla v poryadke vozrastaniya:');
for i:=1 to 4 do
writeln(a);
readln;
end.

2) на С:
#include <stdio.h>
#include <conio.h>
void main(void){
int n,a,b,c,d;
printf("\nVvedite 4x-znachnoe chislo n: ");
scanf("%i", &n);
a=n/1000;
b=(n-a*1000)/100;
c=(n-a*1000-b*100)/10;
d=n-a*1000-b*100-c*10;
if (a+b==c+d) printf("true");
else printf("false");
getch();

0 0

1 год назад

Дано трехзначное число. Напишите программу, которая определяет: является ли число "перевертышем", т.е. числом, десятичная запись

ЮлияМах

var

n:integer;

begin

write('n = '); readln(n);

if (n div 100) = (n mod 10) then

writeln('Перевертыш')

else

writeln('Нет');

readln;

end.

0 0

4 года назад

Ребус зашифровывающий любое слово по уроку информатики

Marines-Evgen

Вот ребусы на информатику

0 0

4 года назад

После отключения питания компьютера вся информация стирается,находящаяся : 1) во внешней памяти 2)в процессоре 3)в оперативной

Pypka228 [52]

3) в оперативной памяти

0 0

4 года назад

Прочитать ещё 2 ответа

Помоги-те пожалуйста соч по информатике 6 класс казахский

Евгения1981 [7]

СОЧ-1 задание составить из 5 слов продложение-шужык,газыр и тд,2 задание:вставитьбуквы-с_ка,м-т и тд.....всё....

0 0

4 года назад