подскажите решение проблемы Опции

[Dorash87]

Подскажите как зделать. Вот простая задача:

Program 1
var
x: integer;
a,b,c,d,e,f: real;
begin
write('x=');
read(x);
a:=......
b:=......
c:=......
d:=......
begin
if x<740 then
e:=......
if x>=740 then
e:=.....
end;
f:=....
writeln ('a=',.....)
writeln ('b=',.....)
writeln ('c=',.....)
writeln ('d=',.....)
writeln ('e=',.....)
writeln ('e=',.....)
writeln ('f=',.....)
end.

При вводе значения х надо вывести вычисления a,b,c,d,e,f но не получаеться с значением e подскажите как зделать!

[Человек_Без_Имени]

если правильно понял, то в зависимости от х е будет вычислятся по разным формулам? тогда лучше используй конструкцию if x<740 then e:=f(x) else e:=g(x);

[Sozialist]

А чего не получается? Расставь везде ";", внутренние begin end не нужны. Ну и перед завершающим END, как я понимаю, надо readln добавить.

[Адель]

вместо этого

write('x=');
read(x);

попробуй

write('x=');
readдт(x);

а также:

writeln ('a=',.....);
writeln ('b=',.....);
writeln ('c=',.....);
writeln ('d=',.....);
writeln ('e=',.....);
writeln ('f=',.....);

и begin\end при выпоре "е" вродь как не нужен

Сообщение отредактировано: Адель - 22.03.2007 2:34

[Dorash87]

to человек без имени ты правильно понял только как это в этой програме записать?

[Человек_Без_Имени]

примерно так

 
Program 1
var
x: integer;
a,b,c,d,e,f: real;
begin
write('x=');
read(x);
a:=......;
b:=......;
c:=......;
d:=......;
if x<740 then e:=......
  else e:=.....;
f:=....;
writeln ('a=',.....);
writeln ('b=',.....);
writeln ('c=',.....);
writeln ('d=',.....);
writeln ('e=',.....);
writeln ('e=',.....);
writeln ('f=',.....);
readln;
end.

заметь, что перед else точка с запятой не нужна

Сообщение отредактировано: Человек_Без_Имени - 22.03.2007 2:42

[Sozialist]

To Адель
Посты набиваем?

Сообщение отредактировано: Sozialist - 22.03.2007 2:47

[Dorash87]

спасибо но програма все равно считает е по первой формуле даже когда значение х больше 740 в чем ошибка?

[Sozialist]

спасибо но програма все равно считает е по первой формуле даже когда значение х больше 740 в чем ошибка?

Ошибок нет, давай полное условие, напишем за 5 мин, если есть желание

[Гость]

Sozialist, почувстовоал себя модератором? (я про пост №7)? Напрасно...

[Dorash87]

там нет условия мне просто надо что бы програма вычисляла все эти значения но почемуто не могу зделать чтобы е вычислялось по второй формуле когда параметр х выше 740 в этом и вся проблема

[Sozialist]

Т.е. ты пишешь, сама не зная чего, раз нет условия. Все верно.

[Dorash87]

ну во первых я он а во вторых я знаю что пишу я не могу понять почему е не вычесляеться по другой формуле

[Адель]

все же попробуй сдлатб, что я тебе написала...у меня все нормально работает.
или же привиди полный код без "......."

[Dorash87]

Адель ты же вроде написала все как у меня или я чигото не понял

[Tan]

Дораш, приведи условие задачи, тогда тебя и тебе будет проще понять !

[Человек_Без_Имени]

спасибо но програма все равно считает е по первой формуле

выложи этот код, в нем возможно есть другие ошибки, или дай условие(если конкретного нет-сочини сам).

[Dorash87]

 if x<740 then
e:=(d-200)*0.0015
else
e:=d*0.005;

[Tan]

В этом отрывке всё верно, ты можешь свой код выложить полностью или дать условие ? а то вслепую не очень.

[Dorash87]

Нашел в чем ошибка в строчке writeln('e=',.......) как правильно записать вывод информации?

Program 1
var 
x:integer;
a,b,c,d,e,f:real;
begin
write('x=');
readln (x);
a:=(525*0.005)+(x-525)*0.02;
b:=x*0.005;
c:=x*0.01;
d:=x-a-b-c;
if x<740 then 
e:=(d-200)*0.0015
else e:=d*0.005;
f:=d-e;
writeln('a=',(525*0.005)+(x-525)*0.02);
writeln('b=',(x*0.005);
writeln('c=',(x*0.01);
writeln('d=',(d:=x-a-b-c);
writeln('e=',(d-200)*0.0015); 
writeln('f=',(d-e);
end.