помогите пожалуйста нужен алгоритм и программа!
http://lampert.ya.ru/replies.xml?item_no=3
Эскизы прикрепленных изображений
В чём проблема-то?Где собственные наработки?
program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=0;
repeat
t:=t+((sin(x)/cos(x)+k)/2*k*x);
k:=k+1
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end.
program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=0;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=1,k:=2...k:=m
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end.
помогите пожалуйста я же девушка
щас попробую
проверьте пожалуйста
program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=1;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=1; k:=2; k:=m
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end
как же записать k:=k+1
пока k не будет равно m
или как быть с ручным вводом k:=1,k:=2...
что верно то...
информатика только в школе была
Ну так и запишите, k:=k+1.
А что это за число m,где оно у Вас вообще определено?
program my;
uses crt;
var t,x:real; k,m:integer;
begin readln(x);
k:=1; t:=1;
repeat
t:=t*((sin(x)/cos(x)+k)/2*k*x);
k:=k+1
until abs((sin(x)/cos(x)+k)/2*k*x)>=m;
writeln('t=',t:10:5);
readln;
end
так вроде?
Если я правильно понял условие, нужно найти произведение первых m множителей, так? Тогда, во-первых, число m нужно либо вводить с клавиатуры,либо оно должно быть задано в самОм коде программы. Во-вторых, у Вас неправильно записано условие, Вам же нужно,чтобы у Вас номер k-того множителя не превышал m, а в коде Вы сравниваете почему-то (k+1)-й множитель с m.
цикл должен повторяться m раз вроде
и поэтому такое условие until модуль>=m
?
условием выхода из цикла является достижение заданной точности вычисления модуля постановленной задачи.
и как же условие тогда поставить?
может быть until abs(...)
дальше пока не знаю
По-моему,проще сделать while'ом, примерно так:
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;
тоже так думала
с while'ом
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;
в ответе постоянно получается 1.
что это значит?
да верно. m не задавала.
как же задавать, тоже 1?
program;
uses crt;
var t,x:real; k,m:integer;
begin
writeln('x,m'); readln(x,m);
k:=1;
t:=1;
while (k<=m) do
begin
t:=t*{...}
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end.
так вроде
для начала это не циклическая программа..почитайте про циклы сначало
http://school87.kubannet.ru/pascal/5.html
t:=1;
while (k<=m) do
вообще не понятно к чему обе строчки, притом нигде не фиксируется чему равна переменная М, а Т не может равняться 1
program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
repeat t:=t*{...}
k:=k+1
until k>m;
writeln('t=',t:10:4);
readln;
end. rolleyes.gif
так може
может так лучше?
program 123;
uses crt;
var j:real;
begin
clrscr;
k:=1;
while j<=10 do
begin
writeln('T=',-2.4*sqr(j)+5*j-3:5:1);
k:=k+0.5;
end;
readkey;
end.
не получается что-то по вашему
а так???
program 123;
uses crt;
var k, x:real;
begin
clrscr;
k:=1;
x:=30;
while k<=10 do
begin
writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
k:=k+0.5;
end;
readkey;
end.
если что-то не получается делайте скриншот ошибки и выставляйте сюда)так легче решить проблему)
http://lampert.ya.ru/replies.xml?item_no=3
а можно приближенно к моему примеру
1
program;
var t,x:real; k,m:integer;
begin writeln('x,m'); readln(x,m);
k:=1; t:=1;
for k:=1 to m do begin
t:=t*((sin(x)/cos(x)+k)/(2*k*x));
k:=k+1;
end;
writeln('t=',t:10:4);
readln;
end.
2
program 123;
uses crt;
var k, x:real; begin clrscr;
k:=1; x:=30;
while k<=10 do begin
writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
k:=k+0.5;
end;
readkey;
end.
почему не вводите значение 'M'?
зачем задавать фиксированное значение k, когда оно должно вводиться с клавиатуры?
и что это еще за условие "while k<=10 do begin"?
еще вроде нужно задавать в начале цикла значение Т, ведь это нужно для отсчета цикла,
поэтому произвольно задаю 1.
подробней отвечайте пожалуйста.
зачем задавать фиксированное значение 'X', когда оно должно вводиться с клавиатуры?
1
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)