Арифметическая задачка Опции

[yoon]

Задача:
A=12.6;
B=8,2;
C=6,4;
D=5,7;
F=5,7;
K=2,5
найти x=A*(K+2)*sin(F+2)+Ln(B+2)+D^2/(A^2-B^2)

program zada4a;
var
A,B,C,D,F,K,K:integer;
x:integer;
begin
writeln('Zada4a')'
write('Введите A:');
readln(A);
write('Введите B:');
readln(B);
write('Введите C:');
readln©;
write('Введите D:');
readln(D);
write('Введите F:');
readln(F);
write('Введите K:');
readln(K);
writeln('Решим уравнение:'A*','(K+2)*','sin(F+2)+','ln(B+2)+','D*D/(A*A-B*B)');
if B=>2 then
begin
write('ln(B+2)=>0');
readln;
halt;
end;
x:=A*(K+2)*sin(F+2)+ln(B+2)+D*D/(A*A-B*B);
writeln(x);
readln;
end.

И чего то не получается, помогите пожал с решением или киньте ссылки на подобное
зарание благодарен

[GoodWind]

integer -это целые числа... используй real:

program zada4a;
var
A,B,C,D,F,K,K:real;
x:real;
begin
writeln('Zada4a')'
write('Введите A:');
readln(A);
write('Введите B:');
readln(B);
write('Введите C:');
readln (c );
write('Введите D:');
readln(D);
write('Введите F:');
readln(F);
write('Введите K:');
readln(K);
writeln('Решим уравнение:'A*(K+2)*sin(F+2)+ln(B+2)+D*D/(A*A-B*B)');
if B=>2 then
begin
write('ln(B+2)=>0');
readln;
halt;
end;
x:=A*(K+2)*sin(F+2)+ln(B+2)+D*D/(A*A-B*B);
writeln(x);
readln;
end.

Сообщение отредактировано: volvo - 7.11.2006 21:10

[FIAT]

yoon,
здесь:

writeln('Решим уравнение:'A*','(K+2)*','sin(F+2)+','ln(B+2)+','D*D/(A*A-B*B)');

у тебя неправильно расставлены апострофы, программа не будет компилироваться...

[yoon]

пасиб, пошло)

program zada4a;
var
A,B,C,D,F,K,:real;
x:real;
begin
writeln('Zada4a');
write('Введите A:');
readln(A);
write('Введите B:');
readln(B);
write('Введите C:');
readln (c );
write('Введите D:');
readln(D);
write('Введите F:');
readln(F);
write('Введите K:');
readln(K);
writeln('Решим уравнение:','A*(K+2)*sin(F+2)+ln(B+2)+D*D/(A*A-B*B)=');
x:=A*(K+2)*sin(F+2)+ln(B+2)+D*D/(A*A-B*B);
writeln(x);
readln;
end.

Сообщение отредактировано: volvo - 7.11.2006 21:11