1
: Turbo Pascal; ; .
, . (. ). : . (F7). , . .
write writeln. . , writeln . :
write (v1 [, v2, v3, , vn]);
writeln (v1 [, v2, v3, , vn]);
v, . , , . , ,
v:k
k , . , . k , .
(a b , ):
writeln(How do you do?);
writeln(How do you do?:40);
writeln(a);
writeln(a,b);
writeln(a:5);
writeln(How do you do?:40, a, b:10);
, v:k:l. l . 0, . k l, .
. :
write;
writeln;
writeln , write .
TRUE FALSE.
1)
2) .
3) ( )
4) ( , 4 , a b )
5)
|
|
6) , ( ), .
: , a =2.4, b = 2,5
:
begin
end.
.
var a,b,y: real;
:
a:=2.4;
b:=2.5;
b , :
y:=b;
, , ( ): b:=a/(a+b);
, , . , : b=a(a+b), : b:=a*(a+b);. (a*a).
writeln, . , , :
writeln(a);
writeln('b = --------- = ',b);
writeln(a,' + ',y);
readln, . , .
, . :
program numberOne_v1;
var a,b,y: real;
begin
a:=2.4;
b:=2.5;
y:=b;
b:=a/(a+b);
writeln(a);
writeln('b = --------- = ',b);
writeln(a,' + ',y);
readln;
end.
:
. . .
:
program numberOne_v2;
var a,b,y: real;
begin
a:=2.4;
b:=2.5;
y:=b;
b:=a/(a+b);
writeln(a:10:1);
writeln('b = ----------- = ',b:3:4);
writeln(a:8:1,' + ',y:1:1);
readln;
end.
:
, watch ( window). , ins.
, F7. . .
:
1)
2)
3)
|
|
4) ( )
5)
6) ( )
7)
a =2.4, b=2.5.