case

[Кирилл17]

помогите сиправить программу. блок схема и задание в файле

[Кирилл17]

вот программа только с ней что не то

program p1;
uses crt;
var a,b,c:real;
i:integer;
begin;
write('vvedite a,b,c');
readln(a,b,c);
write('vvedite i');
readln(i);
case i of
-3:a:=(i*i-exp(i)/3);
-2:b:=(i-ln(a))/2;
-1:c:=abs(ln(a)-sin(b)/cos(b));
end;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end.

[Sazary]

Кирилл17 Сделал так, как понял блок-схему.
Там сказано: "Составить программу, обеспечивающую изменение параметра I от -3 до 0". Я думаю, что имеется в виду не ручной ввод.
Собственно, вот:

program p1;
uses crt;
var a,b,c:real;
i:integer;
begin
clrscr;
i:=-4;
repeat
 i:=i+1;
 case i of
 -3: begin
     a:=(i*i-exp(i)/3);
     writeln('a=',a);
     end;
 -2: begin
     b:=(i-ln(a))/2;
     writeln('b=',b);
     end;
 -1: begin
     c:=abs(ln(a)-sin(b)/cos(b));
     writeln('c=',c);
     end;
  0 : writeln('Ishodnyj parametr raven 0');
 end;
until i=0;
readln;
end.

[Кирилл17]

ну помогите кто нибудь решить задачу? она же не сложная! блок схема исправлена.она во втором вложении. программа вроде правильно написана но постоянно выдаёт что Исходный параметр равен 0. а должна выдавать конкретные значения т.к. числа уже в ней заданы.

[Sazary]

Кирилл17 Согласно блок-схеме, нельзя посчитать b, не посчитав a.
Чем вам не нравится мой вариант?
И еще:

программа вроде правильно написана но постоянно выдаёт что Исходный параметр равен 0. а должна выдавать конкретные значения т.к. числа уже в ней заданы.

Так вы покажите вашу программу. Будет намного проще вас понять.

[Кирилл17]

program p1;
uses crt;
var a,b,c:real;
i:integer;
begin
case i of
-3:begin
a:= (i*i-exp(i))/3;
writeln('a=',a);
end;
-2:begin
b:=(i-ln(a))/2;
writeln('B=',B);
end;
-1:begin
c:=abs(ln(a)-sin(b)/cos(b));
writeln('c=',c);
end;
0:writeln('isxodnii parametr 0');
end;
end.


программа постоянно выдает что исходый параметр 0

[Sm1Le]

а ты хоть раз изменил "i" а ? или кому надо ? в каждой ячейке case надо делать inc(i), а перед case поставить i:=-4; .... думать надо а не лететь на форум ...