004.421, 004.432
: / : .., .., .. : - , 2009 95 .
230301 - .
Turbo Pascal, , . , , , .
: ..., ..
-
- , 2009 .
1. ... 3
1.1. .. 3
1.2. . 7
1.3. .. 8
2. .. 11
2.1. .. 11
2.2. . 15
2.3. .. 17
3. .. 20
3.1. .. 20
3.2. . 28
3.3. .. 29
4. ... 32
4.1. .. 32
4.2. . 44
4.3. .. 45
5. ... 50
5.1. .. 50
5.2. . 56
5.3. .. 57
6. .. 61
6.1. .. 62
6.2. . 66
6.3. .. 66
7. ... 70
7.1. .. 71
7.2. . 75
7.3. .. 75
8. .. 78
8.1. .. 79
8.2. . 85
8.3. .. 86
9. .. 93
.. 95
1. :
:
a b, . , . 1.1:
. 1.1. 1
|
|
Turbo Pascal :
Program Primer1;
Var a,b: Double; { }
Begin
{ }
a:=(7-6.35)/6.5+9.9;
{}
b:=(1.2/36+1.2/0.25-21/16)/(7+1/24);
Write (a/b);
ReadLn;
End.
2. . x, y, z. a b, :
,
:
, . 1.2.
Turbo Pascal :
Program Primer2;
Var a,b,x,y,z: Extended;
Begin
Write(' x, y z ');
ReadLn(x,,z);
a:=(Sqrt(Abs(x-l))-Exp(Ln(Abs(y)/3)))/ (1+Sqr(x)/2+Sqr(y)/4);
b:= x*(ArcTan(z)+Exp(-x-3));
WriteLn('a = ',a,'; b = ',b); ReadLn;
End.
. 1.2. - 2
3. .
:
, . 1.3.
Turbo Pascal :
Program valuta;
Const
kurs_dollar = 29.8;
kurs_euro = 36.6;
Var
sum_rub, sum_dollar, sum_euro: real;
Begin
Writeln (' : ');
Readln (sum_rub);
sum_dollar:= sum_rub / kurs_dollar;
sum_euro:= sum_rub / kurs_euro;
Writeln(': ',sum_rub:8:2,
' : ',sum_dollar:7:2,
' :',sum_euro:7:2);
Readln;
End;
. 1.3. - 3
1. . R1, R2 R3 . :
2. , ( ). .
3. , 20, - r (r >20):
4. . :
:
:
5. , , 4 , .