Код
program cycle1;
var
t,x:real;
k,m:integer;
begin
writeln('x, m');
readln(x, m);
{k:=1; эта строчка не нужна, переменная паскалевского for'а инициализируется в самой конструкции цикла}
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.
var
t,x:real;
k,m:integer;
begin
writeln('x, m');
readln(x, m);
{k:=1; эта строчка не нужна, переменная паскалевского for'а инициализируется в самой конструкции цикла}
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 prg123; {не помню, подчиняется ли имя программы правилам именования идентификаторов, но лучше не начинать имена с цифр}
uses crt;
var
k, x: real;
begin
clrscr;
k:=1;
{ x:=30; эта переменная нигде не используется}
while k<=10 do
begin
{тут на первый взгляд ошибки не видно. Если все-таки не работает,
единственное в чем у меня сомнение - это в форматировании строки вывода, попробуйте переписать так:
x := -2.4*sqr(k)+5*k-3;
writeln('T=', x:5:1);}
writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
k:=k+0.5;
end;
readln;
end.