{ Пример программы для процедуры FloodFill } Uses Graph,Crt; Var Gd, Gm : Integer; Begin Gd:=Detect; InitGraph(Gd, Gm, ''); If GraphResult <> grOk Then Halt(1); SetColor(GetMaxColor); Circle(50, 50, 20); FloodFill(50, 50, GetMaxColor); Readkey; CloseGraph; End.
Procedure FloodFill(X, Y : Integer; Border : Word); Закрашивает замкнутую область, используя текущие стиль и цвет закраски.
Procedure SetFillStyle(Pattern : Word; Color : Word); Устанавливает цвет и стиль закраски.
Программа на Pascal var Age : integer; begin Repeat Write('Введите Ваш возраст: '); Readln(Age); until Age in [1..99]; if Age in [10..20] then Writeln('Мне ', Age, ' лет') else case Age mod 10 of 1: Writeln('Мне ', Age, ' год'); 2, 3, 4 : Writeln('Мне ', Age, ' года'); 0, 5..9 : Writeln('Мне ', Age, ' лет'); end; end. программа на C++ #include <iostream> using namespace std; int main() { setlocale(LC_ALL,"rus"); int k; cin>>k; if(k >0 && k<100) cout<<"Мне "<< k <<" лет"; system("pause >> void"); }
Uses Graph,Crt;
Var Gd, Gm : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
SetColor(GetMaxColor);
Circle(50, 50, 20);
FloodFill(50, 50, GetMaxColor);
Readkey;
CloseGraph;
End.
Procedure FloodFill(X, Y : Integer; Border : Word);
Закрашивает замкнутую область, используя текущие стиль и цвет закраски.
Procedure SetFillStyle(Pattern : Word; Color : Word);
Устанавливает цвет и стиль закраски.
Procedure SetColor(Color : Word)
устанавливает текущий цвет,
var Age : integer;
begin Repeat Write('Введите Ваш возраст: ');
Readln(Age); until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет')
else case Age mod 10 of 1: Writeln('Мне ', Age, ' год');
2, 3, 4 : Writeln('Мне ', Age, ' года');
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
программа на C++
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"rus");
int k;
cin>>k;
if(k >0 && k<100)
cout<<"Мне "<< k <<" лет";
system("pause >> void");
}