У меня 2 вопроса:1. Найти сумму целых положительных чисел, кратных 3 и меньших 200. Вот, что у меня получилось:
Код
program lab;
var sum,i,n:integer;
begin
sum:=0;
n:=1;
for i:=1 to 199 do
if i/3=0 then
begin
sum:=sum+i;
n:=n+1;
writeln('number of elements is=',n);
readln(n);
end;
writeln('Summa is=',sum:7:6);
readln;
end.
var sum,i,n:integer;
begin
sum:=0;
n:=1;
for i:=1 to 199 do
if i/3=0 then
begin
sum:=sum+i;
n:=n+1;
writeln('number of elements is=',n);
readln(n);
end;
writeln('Summa is=',sum:7:6);
readln;
end.
Естественно, сумма не может=0, а у меня в результате получается, что она=0, к тому же, комп не считает количество чисел. Не понимаю, в чём проблема...
2.Требуется найти корень уравнения: 3sin(sqrt(x))+0.35x-3.8=0 c точностью е=1/10000. Корень уравнения находится на отрезке [2;3]. Точное значение коня=2.2985. Использовать метод итераций. На печать вывести вычисленное значение корня и для сравнения точное значение корня.
У меня получилось следующее:
Код
program lab;
uses crt;
var x0,x1,x,a,b,e:real;
iteraz:integer;
function fun(x:real):real;
begin
fun:=(3.8-(3*sin(sqrt(x))))/0.35;
end;
begin
clrscr;
write('x0=2.2');
readln(x1);
write('e=0.001');
readln(e);
iteraz:=0;
repeat
iteraz:=iteraz+1;
x0:=x1;
x1:=fun(x0);
until(abs(x1-x0)<=e);
writeln('ђҐиҐЁҐ га ўҐЁп......fun=');
writeln('’®з®Ґ § 票Ґ Є®ап......2.2985');
writeln('‚лзЁб«Ґ®Ґ § 票Ґ Є®ап x=',x1:6:5);
readln(x);
writeln('—Ёб«® ЁвҐа жЁ©',iteraz);
readln(iteraz);
writeln('Џа®Ја § ўҐаиҐ , ¦ЁвҐ ENTER');
readln;
end.
В чём здесь ошибка?uses crt;
var x0,x1,x,a,b,e:real;
iteraz:integer;
function fun(x:real):real;
begin
fun:=(3.8-(3*sin(sqrt(x))))/0.35;
end;
begin
clrscr;
write('x0=2.2');
readln(x1);
write('e=0.001');
readln(e);
iteraz:=0;
repeat
iteraz:=iteraz+1;
x0:=x1;
x1:=fun(x0);
until(abs(x1-x0)<=e);
writeln('ђҐиҐЁҐ га ўҐЁп......fun=');
writeln('’®з®Ґ § 票Ґ Є®ап......2.2985');
writeln('‚лзЁб«Ґ®Ґ § 票Ґ Є®ап x=',x1:6:5);
readln(x);
writeln('—Ёб«® ЁвҐа жЁ©',iteraz);
readln(iteraz);
writeln('Џа®Ја § ўҐаиҐ , ¦ЁвҐ ENTER');
readln;
end.
Очень прошу помочь мне ответить на эти вопросы.
Заранее спасибо.
за подсказку!