<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var h := ReadReal('Задайте шаг h:');
var (a, b) := (-3.0, 3.0);
for var i := 0 to Trunc((b - a) / h) do
begin
var d := a + i * h;
var k := 4.3 + Sin(Exp(1 / d) + 2) / (2.1 + d) - 6.7 * d;
Writeln(d:18:15, k:24:15)
end
end.
Из точки А в точку Ж есть 11 путей.
Program qw;
uses crt;
Type
Atlas=Record
country,capital:string;
area,people:real;
end;
ps=File of atlas;
Var f:ps;
z,t:atlas;
Begin
assign(f,'1.dat');
rewrite(f);
z.country:='Латвия'; z.area:=67.7;
z.people:=2.6; z.capital:='Рига';
write(f,z);
z.country:='Литва'; z.area:=65.2;
z.people:=3.4; z.capital:='Вильнюс';
write(f,z);
z.country:='Польша'; z.area:=313;
z.people:=34.8; z.capital:='Варшава';
write(f,z);
z.country:='Украина'; z.area:=603.7;
z.people:=50; z.capital:='Киев';
write(f,z);
z.country:='Россия'; z.area:=17075.4;
z.people:=139; z.capital:='Москва';
write(f,z);
Close(f);
assign(f,'1.dat');
reset(f);
read(f,t);
while not(eof(f)) do
begin
read(f,z);
if t.people/t.area < z.people/z.area then t:=z;
end;
close(f);
writeln('Cтранa с наибольшей плотностью населения:');
writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.
Ответ:
вот
Объяснение:
Книга написана одним из крупнейших зарубежных специалистов в области программирования. Она посвящена фундаментальным вопросам конструирования корректных и изящных программ для ЭВМ. В ней предлагается методика формального вывода программы из математической постановки задачи. При этом прослеживается развитие алгоритмов вплоть до создания программ. Материал излагается в форме остроумных и поучительных задач по программированию. Книга представляет значительный интерес для широкого круга программистов.
Книга вышла в издательстве “Мир” в 1978 году.
<span>45(x)+55(x)=122(x)</span>
4X+5+5X+5=X*X+2X+2
x^2+2x-4x-5x=5+5-2
x^2-7x-8 = 0
по т. Виетта:
x1=8
x2=1 - не подходит по условию задачи.
Ответ: 8