Lab5_4B

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program Lab5B;
var
x0, xk, h, metr, angstrem: real;
begin
//writeln('Vvedit x0, xk, h : ');
//read(x0, xk, h);
x0 := 0;
xk := 10;
h := 0.5;
writeln('Tablica perevodu vidstaney:');
writeln('_______________________________');
writeln('| metr | angstrem (1e10)|');
writeln('|____________|_________________|');
metr := x0;
while metr <= xk do begin
angstrem := metr * 1;
writeln('|', metr:12:1, '|', angstrem:17:1, '|');
metr := metr + h;
end;
writeln('|____________|_________________|');
end.