1. Определить силу притяжения F между телами массы m1 и m2, нахо-дящимися на расстоянии r друг от друга:
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| procedure TForm1.Button1Click(Sender: TObject);
var
G:real;//Гравитационная постоянная
m1,m2,R:real;//m1 тела1,m2 тела1,R-расстояние м/у телами.
F:real;//сила притяжения.
begin
G:=6.67;
m1:=StrToFloat(Edit1.Text);
m2:=StrToFloat(Edit2.Text);
R:=StrToFloat(Edit3.Text);
begin
F:=G*(m1*m2)/sqr(R);
end;
Edit4.Text:='Сила притяжения равна = '+FloatToStr(F) + '* 10^11';
end;
end. |
|
2. Даны действительные числа a, b, c, d.
Если a <= b <= c <= d, то каждое число заменить наибольшим из них;
если a > b > c > d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..4] of real;
max:real;
i:integer;
begin
a:=StrToFloat(StringGrid1.Cells[i-1,0]);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=StrToFloat(Edit4.Text);
if(a<=b) and (b<=c) and (c<=d) then
begin
max:=a;
for i:=2 to 4 do if (max<=a[i]) then max:=a[i];
for i:=1 to 4 do a[i]:=max;
end else
if (a>b) and (b>c) and (c>d) then goto 1
else
for i:=1 to 4 do a[i]:=a[i]*a[i];
for i:=1 to 4 do
Memo1.Cells:=FloatToStr(a[i])+#13;
end;
end. |
|
3. Даны натуральные числа m и n . Найти такие натуральные p и g , не имеющие общих делителей, что p/g = m/n .
| Delphi |
1
2
3
4
5
6
7
8
9
| procedure TForm1.Button1Click(Sender: TObject);
var
m,n,p,g:integer;
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
end;
Label3.Caption:=IntToStrF('Натуральные p и g' = ' p/g = m/n')+#13;
end. |
|
4. Одномерные массивы.
Составить таблицу стоимости порций сыра весом 50, 100, 150, ..., 1000 г (цена 1 кг 3 руб.).
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
x:array[1..10] of integer;
cena:real;//цена за 1 кг=1000г.
begin
cena:=3;
x[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
For i:=1 to 10 do
begin
StringGrid2.Cells[i-1,0]:=IntToStr('Цена за',x[i],'г сыра = ',cena*x[i]/1000');
inc(x[i],50);
end;
end;
end. |
|
(
