Проверте пожайлуста написания програмы
Проверте пожайлуста правильно ли я написал програму на Паскале
которая з точностю 0.01 % ищет суму ряда
(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+...
Program Sr;
Uses crt;
var
t:real;
s:real;
i:longint;
begin
clrscr;
t:=0.0001;
i:=1;
s:=0;
repeat
s:=s+( 1/sqr(i ));
inc(i)
until ( 1/(sqr(i )))<t;
writeln('Summa rady = ',s:12:9);
writeln('Pods4utano ',i,' chlenov v rady');
readln;
END.
которая з точностю 0.01 % ищет суму ряда
(1/sqr(2))*(1/sqr(3))*(1/sqr(4))+...
Program Sr;
Uses crt;
var
t:real;
s:real;
i:longint;
begin
clrscr;
t:=0.0001;
i:=1;
s:=0;
repeat
s:=s+( 1/sqr(i ));
inc(i)
until ( 1/(sqr(i )))<t;
writeln('Summa rady = ',s:12:9);
writeln('Pods4utano ',i,' chlenov v rady');
readln;
END.
ты формулу перепроверь.
У тебя между первой и второй, второй и третьей скобкой знак умножить или знак сложения?
Если знак умножения стоит, то неправильно, если знак сложения - правильно!
У тебя между первой и второй, второй и третьей скобкой знак умножить или знак сложения?
Если знак умножения стоит, то неправильно, если знак сложения - правильно!
Цитата: Serj123
ты формулу перепроверь.
У тебя между первой и второй, второй и третьей скобкой знак умножить или знак сложения?
Если знак умножения стоит, то неправильно, если знак сложения - правильно!
У тебя между первой и второй, второй и третьей скобкой знак умножить или знак сложения?
Если знак умножения стоит, то неправильно, если знак сложения - правильно!
Cкажите пожайлуста как з знаком умножения сделать???
М-дддяяяя!!!:D
Знак умножения: *(звездочка):D
Знак умножения: *(звездочка):D
Цитата: CilCatblack
М-дддяяяя!!!:D
Знак умножения: *(звездочка):D
Знак умножения: *(звездочка):D
посмотрите пожайлуста внимательно на условие видите в конце стоит знак плюс потому знак умножения прсто так не прокатит
Народ, помогите найти ошибку:
program stroki;
uses crt;
const d=60;
var s:string[d];
i,k,m,n:integer;
begin
clrscr;
writeln('vvedite stroku');readln(s);
writeln('vvedite novuy dlinu stroki');readln(k);
m:=0;
while k+m<=length(s) do
begin
for i:=k+m downto 1+m do
if s=' ' then
begin
n:=m;
m:=i;
end;
for i:=n+1 to m do write(s);
writeln;
end;
for i:=m+1 to length(s) do write(s);
readkey
end.
Вывести на экран строку, задав с консоли его новую длину (менее 60 символов). Разрыв слов при вводе не допускается.
Заранее спасибо!
program stroki;
uses crt;
const d=60;
var s:string[d];
i,k,m,n:integer;
begin
clrscr;
writeln('vvedite stroku');readln(s);
writeln('vvedite novuy dlinu stroki');readln(k);
m:=0;
while k+m<=length(s) do
begin
for i:=k+m downto 1+m do
if s=' ' then
begin
n:=m;
m:=i;
end;
for i:=n+1 to m do write(s);
writeln;
end;
for i:=m+1 to length(s) do write(s);
readkey
end.
Вывести на экран строку, задав с консоли его новую длину (менее 60 символов). Разрыв слов при вводе не допускается.
Заранее спасибо!