write(a); -
writeln(); -
writeln; -
write(x:8:4) - (8- - , 4- )
: : :=2;
Write(a); 2
Writeln(a); 2
Write(a=,a); a=2
Write(a=,a, ); a=2
Write(Y=, 4+6); Y=10
Write(S=,a,*,3,=,a*3); S=2*3=6, a=2
Write(z=,z:8:4); z=135.6432, z=1,356432223e02
Writeln();
Writeln();
Write( );
Writeln();
Write GotoXY(C,R); C R. Turbo Pascal 7.0 8025. 80- , 25- .
, C 1 80, R 1 25 ( !).
: GotoXY(38,12); Write(Hello); - Hello .
:
1. : { :}
Program Primer; uses crt; { - 'Primer'. crt}
Begin { - }
Clrscr; { - }
write('Y=', 6+3); readkey; { - Y=9.}
End. { - }
2. () { - Ctrl+F9}
3. : 17+34; 24,7+56; 24:3; 5-6; │-9│; 12/3/4; .
4. : : -3.941621
: ( 4.1)
: -0.2496655
5. : .
, , .
:= - ;
x:=3.4 - ( 3.4).
readln(); -
:
1. S=a*b.
Uses crt; readkey: readln;
Program Area; Uses crt; { (. )}
var a,b,s: real; { . }
Begin { S }
ClrScr; { . . CLeaR SCReen }
write('a='); readln(a); { }
write('b='); readln(b); { }
s:=a*b; { }
write('S=',s); { }
readkey; { }
End. { Area }
. .
2.
|
|
(: = S=).
3. :
4. :
1) ;
2) ;
3) ;
4)
5) , .
5. : Y=Sin(a+b/2)
a=15, b=30 ().
:
- ;
- ;
- , . ;
- ;
- ;
- .
- : G=g, =.
:
Program Ff; Uses crt;
const g=6.672E-11; { }
var m1,m2, { }
r, { }
f: real; { }
Begin
ClrScr;
write(' m1='); readln(m1);
write(' m2='); readln(m2);
write(' r='); readln(r);
f:=g*m1*m2/(r*r);
writeln; { }
write(' F=',f:8:4,' ');
readkey;
End.
:
1. .
m1=m2=50 r=1 . .
2.
3. .