Помогите решить в Паскале
Приложения:
Ответы на вопрос
Ответил Аноним
0
PascalABC.NET 3.3, сборка 1540 от 16.09.2017
Внимание! Если программа не работает, обновите версию!
1. Школьный вариант
var
i,j:integer;
s,p:real;
begin
s:=0;
for i:=1 to 100 do begin
p:=1;
for j:=1 to 20 do p:=p/(i*i+j*j);
s:=s+i*i*p
end;
Writeln(s)
end.
Результат
7.16965901888604E-38
2. Современный вариант
begin
var s:=0.0;
for var i:=1 to 100 do begin
var p:=1.0;
for var j:=1 to 20 do p*=1/(i*i+j*j);
s+=i*i*p
end;
Writeln(s)
end.
Внимание! Если программа не работает, обновите версию!
1. Школьный вариант
var
i,j:integer;
s,p:real;
begin
s:=0;
for i:=1 to 100 do begin
p:=1;
for j:=1 to 20 do p:=p/(i*i+j*j);
s:=s+i*i*p
end;
Writeln(s)
end.
Результат
7.16965901888604E-38
2. Современный вариант
begin
var s:=0.0;
for var i:=1 to 100 do begin
var p:=1.0;
for var j:=1 to 20 do p*=1/(i*i+j*j);
s+=i*i*p
end;
Writeln(s)
end.
Ответил Simba2017
0
в современном варианте тип данных не описывается?
Ответил Аноним
0
Ну почему же? var остались... только объекты в программе описываются перед тем, как они непосредственно требуются.
Ответил Аноним
0
Этот стиль сейчас применяется во всех современных языках программирования.
Ответил Simba2017
0
спасибо!
Ответил Аноним
0
пожалуйста
Новые вопросы