Программа движения окружности сверху вниз

var
x, y: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
x: =225;
Timer1.Enabled: =true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
repaint;
y: =y+2;
Form1.Canvas.Pen.Color: =clred;
Form1.Canvas.Ellipse(x, y, x+50, y+50);
if y> =475 then y: =0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled: =false;
end; end.

19. Программа игра " Угадай число"
var
a, b: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
b: =StrToInt(Edit1.Text);
if b> a then Label1.Caption: ='Меньше';
if b
if b=a then Label1.Caption: ='Угадал';
Edit1.Text: ='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Randomize;
a: =random(100)+1;
end;
end.

20. Программа определния русских букв во введеной строке
var s: String; i, k: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
s: =Edit1.Text; k: =0;
for i: =1 to length(s) do
if (s[i]> ='а') and (s[i]< ='Я')then k: =k+1;
if k> 0 then Memo1.Lines.Add('Русские буквы содержаться') else
Memo1.Lines.Add('Русские буквы не содержаться');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
end.

21. Программа замены во введеной строке имя " Евгений" на имя " Олег". Слова разделены одиночными пробелами

var s: String; i: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
s: =Edit1.Text;
s: =' '+s+' ';
for i: =1 to length(s) do
if copy (s, i, 9)=' Евгений ' then
begin
delete(s, i+1, 7);
insert ('Олег', s, i+1);
end;
delete(s, 1, 1);
delete(s, length(s), 1);
Edit2.Text: =s;
end;
end.

22. Программа, позволяющая рисовать
var
drag: boolean=False;
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Canvas.FillRect(clientRect);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.Canvas.FillRect(clientRect)
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
drag: =true;
image1.Canvas.MoveTo(x, y);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if drag then Image1.Canvas.LineTo(x, y);
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
drag: =False;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if SaveDialog1.Execute then Image1.Picture.SaveToFile(SaveDialog1.FileName);
end; end.

23. Программа, отображающая код выбранного цвета
var red, green, blue, c: Integer;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
red: =ScrollBar1.Position;
green: =ScrollBar2.Position;
blue: =ScrollBar3.Position;
Edit1.Text: =IntToStr(red);
Edit2.Text: =IntToStr(green);
Edit3.Text: =IntToStr(blue);
c: =RGB(red, green, blue);
Form1.Color: =c;
Form1.Caption: ='Код цвета: '+IntToStr(c); end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
red: =ScrollBar1.Position;
green: =ScrollBar2.Position;
blue: =ScrollBar3.Position;
Edit1.Text: =IntToStr(red);
Edit2.Text: =IntToStr(green);
Edit3.Text: =IntToStr(blue);
c: =RGB(red, green, blue);
Form1.Color: =c;
Form1.Caption: ='Код цвета: '+IntToStr(c); end;
procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
red: =ScrollBar1.Position;
green: =ScrollBar2.Position;
blue: =ScrollBar3.Position;
Edit1.Text: =IntToStr(red);
Edit2.Text: =IntToStr(green);
Edit3.Text: =IntToStr(blue);
c: =RGB(red, green, blue);
Form1.Color: =c;
Form1.Caption: ='Код цвета: '+IntToStr(c);
end; end.

24. Программа вывода квадрата суммы двух чисел
procedure TForm1.Button1Click(Sender: TObject);
var m, s, n, k, x: Integer;
begin;
n: =StrToInt(Edit1.Text);
m: =StrToInt(Edit2.Text);
x: =n+m;
k: =x*x;
Label3.Caption: =IntToStr(k)
end;
end.

25. Программа подсчета количества цифр во введенной строке
var
s: String; i, k: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
s: =Edit1.Text;
k: =0;
for i: =1 to length (s) do
if (s[i]> ='0') and (s[i]< ='9') then k: =k+1;
Label1.Caption: =IntToStr(k);
end;
end.

26. Программа нахождения и подсчета в предложении слов с четным количеством букв
var
s: String; i, k, n: Integer; m: array [1..100] of string [20];
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
s: =Edit1.Text;
s: =s+ ' ';
k: =1;
Repeat
i: =1;
while s[i]< > ' ' do i: =i+1;
m[k]: =copy(s, 1, i-1);
k: =k+1;
delete(s, 1, i);
until length(s)=0;
k: =k-1;
n: =0;
for i: =1 to k do
begin
Memo1.Lines.Add(m[i]);
Memo1.Lines.Add(inttostr (length(m[i])));
if length (m[i]) mod 2=0 then n: =n+1;
Label1.Caption: =IntToStr(n);
end;
end;
end.

27. Программа замены во введенной строке маленьких букв «н» на большие
var s: string; i: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
s: =Edit1.Text;
s: =' '+s+' ';
for i: =1 to length(s) do
if copy(s, i, 1)='н' then
begin
delete(s, i, 1);
insert('Н', s, i);
end;
delete(s, 1, 1);
delete(s, length(s), 1);
Edit2.Text: =s;
end; end.

28. Программа подсчета количества цифр во введенной строке
var s: String; i, k: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
s: =Edit1.Text;
k: =0;
for i: =1 to length (s) do
if (s[i]> =#48) and (s[i]< =#57) then k: =k+1;
Label1.Caption: =IntToStr(k);
end;
end.

29. Программа описания данных на учеников (фамилия, улица, дом, квартира) используя структуру данных
записи. Программа определяет, сколько учеников живет на данной улице
type
TS=record
fam: string[30];
ul: string[30];
dom: integer;
kv: integer;
nd;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var uchen: array[1..100] of TS;
iul: string[30];
i, n: integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
n: =0; end;
procedure TForm1.Button1Click(Sender: TObject);
begin
n: =n+1;
uchen[n].fam: =Edit1.Text;
uchen[n].ul: =Edit2.Text;
uchen[n].dom: =StrToInt(Edit3.Text);
uchen[n].kv: =StrToInt(Edit4.Text);
Edit1.Text: ='';
Edit2.Text: ='';
Edit3.Text: ='';
Edit4.Text: ='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
iul: =Edit5.Text;
Memo1.lines.add(iul+': ');
for i: =1 to n do if iul=uchen[i].ul then
Memo1.lines.add(uchen[i].fam+': '+'Дом: '+IntToStr(uchen[i].dom)+',
'+'Квартира '+IntToStr(uchen[i].kv)+'; ');
end; end.

30. Программа отображения часов при наведении курсора на форму
procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime: TDateTime;
begin
DateTime: =Time;
Label1.Caption: =TimeToStr(DateTime);
end;
end.

31. Программа отображения (скрытия) на форме надписи " Привет! "
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Visible: =False;
Label1.Visible: =False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible: =False;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Visible: =True;
Label1.Visible: =True;
end;
end.

32. Программа деления на три всех элементов массива кратных трем. Массив заполнен из StringGrid
var a: array [1..10, 1..10] of Integer;
n, m, i, j: Integer;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
n: =StrToInt(Edit1.Text);
m: =StrToInt(Edit2.Text);
StringGrid1.RowCount: =n;
StringGrid1.ColCount: =m;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for i: =1 to n do
for j: =1 to m do
a[i, j]: =StrToInt(StringGrid1.Cells[j-1, i-1]);
for i: =1 to n do
for j: =1 to m do if a[i, j] mod 3=0 then a[i, j]: =Round(a[i, j]/3);
StringGrid1.RowCount: =n;
StringGrid1.ColCount: =m;
For i: =1 to n do
for j: =1 to m do
StringGrid1.Cells[j-1, i-1]: =IntToStr(a[i, j]);
end; end.

33. Программа деления на три всех элементов массива кратных трем. Массив заполнен из StringGrid
var a: array [1..10, 1..10] of Integer;
n, m, i, j: Integer;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
n: =StrToInt(Edit1.Text);
m: =StrToInt(Edit2.Text);
StringGrid1.RowCount: =n;
StringGrid1.ColCount: =m;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for i: =1 to n do
for j: =1 to m do
a[i, j]: =StrToInt(StringGrid1.Cells[j-1, i-1]);
for i: =1 to n do
for j: =1 to m do if a[i, j] mod 3=0 then a[i, j]: =Round(a[i, j]/3);
StringGrid1.RowCount: =n;
StringGrid1.ColCount: =m;
For i: =1 to n do
for j: =1 to m do
StringGrid1.Cells[j-1, i-1]: =IntToStr(a[i, j]);
end; end.

34. Программа вывода текста в новом диалоговом окне по нажатию кнопки Button
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Да');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Нет');
end;
end.

35. Программа «Конвертер». Позволяет перевести длину из километров в метры, дециметры, сантиметры, миллиметры
var n, m, dm, sm, mm: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
n: =StrToInt(Edit1.Text);
m: =n*1000;
label2.Caption: =(IntToStr(m))+' Метров';
dm: =n*10000;
label3.Caption: =(IntToStr(dm))+' Дециметров';
sm: =n*100000;
label4.Caption: =(IntToStr(sm))+' Сантиметров';
mm: =n*1000000;
label5.Caption: =(IntToStr(mm))+' Миллиметров';
label6.Caption: ='В '+(IntToStr(n))+' км: ';
end;
end.