Перевод Программы Из Паскаля На C

FaRReLL

New member
07.12.2014
4
0
#1
Код:
program vlad;
uses crt;
var
x: integer;
a,b,c,y:real;
begin
clrscr;
write('введите a: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
write('введите x: ');
readln(x);
case x of
1..4:  y:=c*x*x;
5..10: y:=a*sin(x+a);
11..15: y:=a*ln(abs(b*b+c/2/x));
else	y:=b+2*c;
end;
writeln('y= ',y:0:4);
readln;
end.